7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2005-10-15
- 打赏
- 举报
Private Sub Command1_Click()
Dim x As Double, dfm As String
x = CDbl(InputBox("please enter a degree for trans ;", "INFO", "120.375"))
dfm = x & "°=" & Int(x) & "°"
x = (x - Int(x)) * 3600
dfm = dfm & Format(TimeSerial(0, 0, x), "nn′ss″")
MsgBox dfm
End Sub
Dim x As Double, dfm As String
x = CDbl(InputBox("please enter a degree for trans ;", "INFO", "120.375"))
dfm = x & "°=" & Int(x) & "°"
x = (x - Int(x)) * 3600
dfm = dfm & Format(TimeSerial(0, 0, x), "nn′ss″")
MsgBox dfm
End Sub
zou19820704 2005-10-15
- 打赏
- 举报
Dim D As Long
Dim F As Double
Dim M As Double
Dim k As Double
k = 2.35
D = k \ 1
F = k - D
F = F * 60
M = F - F \ 1
F = F - M
D：度
F：分
M：秒
Dim F As Double
Dim M As Double
Dim k As Double
k = 2.35
D = k \ 1
F = k - D
F = F * 60
M = F - F \ 1
F = F - M
D：度
F：分
M：秒
