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

名前

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

本文 日付等関数の使い方の問題です。 以下に動作するコードを掲載します。 タイマー・テキストボックス・ボタンを各１個フォームに 配置して下さい。 テキストボックスには、カウントダウンしたい秒数を数字 で入力し、ボタンをクリックして下さい。 Option Explicit Private startTime As Date Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 End Sub Private Sub Command1_Click() Dim n As Date If Text1.Text = "" Then Exit Sub End If startTime = Now + TimeSerial(0, 0, CInt(Text1.Text)) Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Dim t As Integer Dim n As Date n = startTime - Now t = Hour(n) * 60 * 60 + Minute(n) * 60 + Second(n) Text1.Text = CStr(t) If t = 0 Then Timer1.Enabled = False Me.Hide Unload Me End If End Sub 以上。