const pi As Double = 3.141592653589732
dim x為double,i1為long,i2為long,i3為long,y為Double,ss為string
如果X是以弧度為單位的角度,換算成度、分、秒,應該用三個數字表示,顯示時可以組合成壹個字符串。
Y=x*180/pi '轉換成帶小數的度數。
I 1 = int(y):y =(y-I 1)* 60
i2=int(y):y=(y-i2)*60
i3 =圓形(y)
如果i3=60,則
i3=0:i2=i2+1
如果i2=60,則i2=0:i1=i1+1
endif
ss = I 1 & amp;“/”& amp;i2 & amp“/”& amp;i3 & amp"/"
您也可以反向轉換。