時差のコード

質問

初心者です。
日本の日付、時間を入力して、外国の日付、時間に変換するというプログラムを作りたいのですが、計算プログラムが思いつきません。
例えば９時間の時差のときに、＋９するのみでは日付の計算ができずに困っています。
どなたかアイディアがありましたらよろしくお願いします。

回答No.3

gatyan

Dim d1 As Date
Dim t1 As Date

d1 = CVDate("2006/7/16 4:00:00")
t1 = CVDate("9:0:0")
Debug.Print Format(d1 + t1, "yyyy/mm/dd hh:mm:ss")
Debug.Print Format(d1 - t1, "yyyy/mm/dd hh:mm:ss")

回答No.2

noname#22222

次のように DateAdd 関数を使います。

Me.Time1.書式=標準
Me.Time1=2006/07/14 12:00:00

Private Sub コマンド5_Click()
　　Dim dteHiduke As Date

　　dteHiduke = Me.Time1
　　Debug.Print DateAdd("h", 9, dteHiduke)
　　Debug.Print DateAdd("h", 24, dteHiduke)
End Sub

実行結果

2006/07/14 21:00:00
2006/07/15 12:00:00

回答No.1

gatyan

Date型の変数を使用する
時間はcvdate("9:0:0")みたいにしてDate型に変換して加減算する

お礼

お早い回答、ありがとうございます。
回答を拝見し、手元の本を参考にしながら作ってみたのですが、どうもうまくいきません。
大変恐縮ですが、具体的なコードがあれば記載していただけないでしょうか？