DateLastModifiedのフォーマット

VBSを使って、
ファイルの更新日時プラス任意の時間をファイル名に書き込むプログラムを作ろうとしています。


zisa = 10
zikan = objFile.DateLastModified +zisa
objFile.Name = Right("0" & CStr(Hour(zikan)), 2) & Right("0" & CStr(Minute(zikan)), 2)


のようにして、変数zisaに任意の時間を代入して
ファイル名を書き換えたいのですが、
objFile.DateLastModified　の　フォーマットが不明であるため
上記の方法では、うまくいきません。

zisa を10000とか適当な値にも変えてみましたが
うまくいきませんでした。

objFile.Name = Right("0" & CStr(Hour(zikan)+zisa), 2) & Right("0" & CStr(Minute(zikan)), 2)
とする方法だとうまくいきますが、
日付が変わってしまう場合には、うまくいきません。


どうすればうまくいきますでしょうか？

No.1 ベストアンサー 回答者： bin-chan 回答日時： 2014/11/06 22:29

時刻は24時間を1とする値じゃなかったかな？

現状のまま、ZISA の値を0．25にして実行したらどうなります？
6時間ズレの結果になるなら間違いない

この回答へのお礼

うまくいきました。
ありがとうございます。
　

お礼日時：2014/11/06 22:39