输出度分秒

Question

输入一个xxx.xx度，换算成一个度分秒形式的
怎么把结果完整输出  xxx·xx'xx"

Answer 1

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 - MD：度
F：分
M：秒

Answer 2

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