Timer関数で1899/12/31 0:40:23とでてしまいます (ID:113494)

名前

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

本文 付け足していうならば > MyStr = Format(Count, "h:m:s") これもあなたが期待している通りの表示にはならないはずです。 なぜならCountの内部形式が長整数型になってしまうからです。 意図通りに書き直すなら Dim Ntime As Date Dim Count As Long Dim MyStr As String Ntime = DateAdd("h", 1, Now) Count = DateDiff("s", Now, Ntime) MyStr = Format(Count \ 3600) & ":" & Format((Count Mod 3600) \ 60)_ & ":" & Format((Count Mod 3600) Mod 60) といった感じでしょうか。