返回列表 上一主題 發帖

[發問]時間格式的轉換(已解決)

回復 1# jiuhtsair
  1. Sub Ex()
  2.     Dim d As Date, t As Double
  3.     '1小時=1 / 24
  4.     '1分 = 1 / 24 / 60
  5.     '1秒=1 / 24 / 60 / 60
  6.     t = (1 / 24) * 9 + (1 / 24 / 60) * 3 + (1 / 24 / 60 / 60) * 1
  7.     d = t
  8.     MsgBox t & Chr(10) & d
  9. End Sub
複製代碼

TOP

        靜思自在 : 手心向下是助人,手心向上是求人;助人快樂,求人痛苦。
返回列表 上一主題