日付をまたぐ時間の計算をするには？ (ID:115059)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 [VB6.0] Private Sub Command1_Click() Dim wTimeCount As Date wTimeCount = TimeSerial(1, 59, 30) MsgBox wTimeCount MsgBox DateAdd("s", -1, wTimeCount) End Sub