VBScript単独使用例(10進数角度を、度分秒表示に変換 |
- 日時: 2004/07/12 09:51
- 名前: mmy
| ' 10進数角度を、度分秒表示に変換
title = " ● 角度の度分秒変換"
x = inputbox(" 角度を10進数で入力して下さい。" & Chr(13) & Chr(13) & " 度分秒に変換します。", title)
If x <> "" Then ' <>は、文字化けのため、実際には半角で入力して下さい。
x1 = Fix( x ) ' 度
x2 = ( x - x1 ) * 60
x3 = Fix( x2 ) ' 分
x4 = ( x2 - x3 ) * 60
' 小数点以下2桁で表示(3桁目四捨五入) x5 = Round( x4, 2) ' 秒
' °′″表示例 'msgbox " " & x & "°は" & Chr(13) & Chr(13) & x1 & "°" & x3 & "′" & x5 & "″ です。", VbOkOnly + VbInformation, title
' 度分秒表示例 msgbox " " & x & " 度は" & Chr(13) & Chr(13) & x1 & " 度 " & x3 & " 分 " & x5 & " 秒 です。", , title
End If |
|
|