時刻を正しく取得するには？ (ID:110658)

名前

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

本文 質問させていただきます。 例えば、ちょうど午後７時００分００秒になったら絵を変える・・など、 きっちり何時０分０秒の時に何らかの動作をさせるプログラムを作りました。 プログラムは以下の通りです。 Jikan = Mid(Time, 2, 1) If Jikan = ":" Then Jikan = Mid(Time, 1, 1) hun1 = Mid(Time, 3, 1) hun2 = Mid(Time, 4, 1) Byou1 = Mid(Time, 6, 1) Byou2 = Mid(Time, 7, 1) If hun1 = 0 And hun2 = 0 And Byou1 = 0 And Byou2 = 0 Then 'ここに、00分00秒になったときの処理 End If Else Jikan = Mid(Time, 1, 2) hun1 = Mid(Time, 4, 1) hun2 = Mid(Time, 5, 1) Byou1 = Mid(Time, 7, 1) Byou2 = Mid(Time, 8, 1) If hun1 = 0 And hun2 = 0 And Byou1 = 0 And Byou2 = 0 Then 'ここに、00分00秒になったときの処理 End If End If jikanはstring、他はinteger型で宣言しました。 ところが、 windowsXPにてエラーが出る場合と、XPでも正常に動く場合があるという 二つの報告を受けました。 このエラーはパソコンの時刻設定に関係するものなのでしょうか？ それとも、プログラム上のミスなのでしょうか？ どなたかご教示お願いいたします。