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

名前

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

本文 各引数の値が -32,768 〜 32,767 の範囲なら以下も通ります。 超えるとエラーになります。詳しくはヘルプに書いてあります。 [VB6.0] Private Sub Command1_Click() Dim wTimeCount As Date wTimeCount = TimeSerial(0, 0, 1800) MsgBox wTimeCount MsgBox DateAdd("s", -1, wTimeCount) End Sub