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

名前

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

本文 初心者ですが質問させてください。 visual basic6.0 windows XP 環境で 指定時刻までのカウントダウンプログラムを作ろうと思い、 Dim Count As Variant Dim Ntime As Variant Dim MyStr As String Ntime = Time + TimeSerial(1, 0, 0) Count = DateDiff("s", Time(), Ntime) MyStr = Format(Count, "h:m:s") Label2.Caption = MyStr このように書いているのですが、実行一時停止で値を見てみると Timeは現在の時刻がでているのですが、 Ntimeの値が1899/12/31 0:40:23となってしまいます。 なぜこのようになってしまうのかわかりません。 どなたか教えていただけますか。