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

名前

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

本文 Dim dtTm1 As Date Dim dtTm2 As Date dtTm1 = Now dtTm2 = DateAdd("n", 30, dtTm1) Do While DateDiff("s", dtTm2, Now) < 0 Debug.Print TimeSerial(0, 0, -DateDiff("s", dtTm2, Now)) DoEvents Loop