ＶＢＡで自動時刻修正

質問

表題の通りなのですが，ＶＢＡから自動で時刻修正をするやり方をご存知ないでしょうか？
フリーソフトを使ってWinからは出来るのですが，どうしてもＶＢＡから時刻の修正の必要が出てきてしまいました。
どうか，アドバイスをよろしくお願いいたします

回答No.2

Wendy02 · ベストアンサー

こんにちは。

w32tm を使えばよいと思います。
一度、ご自分の時刻サーバーをご確認ください。

Sub TimeAdjustment()
Dim ret As Long
Const MYCOMMAND = "w32tm /config /update /manualpeerlist:time.windows.com"
ret = Shell(MYCOMMAND)

End Sub

詳しい、ErrorLevelは分かりませんが、調整できない場合は、たぶん、ret が、1000以下だと思います。

ErrorLevel を調べて、If で分岐し、もし、ダメだった場合は、rediscover　オプションで、リカバーを設けたほうがよいかもしれません。

言うまでもなく、これは、インターネットにつながっていることが条件です。

一応、こちらでは、時刻の同期は成功しています。

回答No.3

Wendy02

#2です。

書き忘れていたけれど、それは、#2 は、Win XP のみです。9x系では、たぶん、net time を使うようにはなると思いますが、試していません。そもそも、あまり、VBA上では、Net Work の調整以外には、あまりこうした必要性が出てきませんね。

お礼

別件でお礼を言わせていただきました。ありがとうございました。

回答No.1

noname#22222

Private Sub CommandButton1_Click()
　　Time = #12:00:00 AM#
End Sub

補足

ありがとうございます・・・しかし
これは時刻を１２時に修正するということですよね？
ネットに接続して，正確な時刻を修正したいのですが。