VB初心者友の会 - Q&A掲示板過去ログ

> Dim DateTime As String
> Dim dateLocal As String
> 
> '日付と時間を合体
> DateTime = Date & " " & Time
> dateLocal = Format(DateTime, "yyyy/mm/dd hh:MM:ss")
> Label1.Caption = dateLocal
これは、
Dim dateLocal As String
dateLocal = Format(Now, "yyyy/mm/dd hh:MM:ss")
Label1.Caption = dateLocal
でＯＫ。
現在の時間を取っておきたいのなら
Dim DateTime As Date
DateTime = Now
です。

> のようにしているのですが、グリニッジ標準時の場合
> （モジュール内に宣言部は記述）
> 
> Dim typSystemTime As SYSTEMTIME
> Dim GMT As String
> 
> 'グリニッジ標準時を取得
> Call GetSystemTime(typSystemTime)
>     
> '結果を取り出して出力
> With typSystemTime
> 
>     GMT = .wYear & "/" & .wMonth & "/" & .wDay _
>     & " " & .wHour & ":" & .wMinute & ":" & .wSecond
> End With
> 
> Label2.Caption = GMT
> 
> とすると、Label2.Caption にグリニッジ標準時を表示できるのはいいのですが
> たとえば DateAdd 関数などを使って、日本の時間を表示させるばあい
> （世界のどこからでも日本の時間を正しく参照できるように）
> 
> dateJa = DateAdd("h", 9, GMT)
dateJa = Format(CDate(DateAdd("h", 9, CDate(GMT))), "yyyy/mm/dd hh:MM:ss")
正確に書くとこうですね。

日付を扱うのなら日付型を使いましょう。
日付を扱う場合は特に明示的に型変換した方がいいです。
日付型のデータを文字型に直接セットするとコントロールパネルで設定された
形（YY/MM/DD等）に変換されてセットされます。
したがってパソコンが変わると結果が違うなんてことになります。
この場合はFormat等で自分のほしい形に変換するようにしましょう。
また、関数は引数，戻り値の型にも注意。

宮野です。
いなちゃんさんレスありがとうございます。

> これは、
> Dim dateLocal As String
> dateLocal = Format(Now, "yyyy/mm/dd hh:MM:ss")
> Label1.Caption = dateLocal
> でＯＫ。

そのとおりでした。
Now を使えば、Date と Time で面倒なことなんてする必要なかったんですね(^^;。

> > のようにしているのですが、グリニッジ標準時の場合
> > （モジュール内に宣言部は記述）
> > 
> > Dim typSystemTime As SYSTEMTIME
> > Dim GMT As String
(snip)
> > dateJa = DateAdd("h", 9, GMT)
> dateJa = Format(CDate(DateAdd("h", 9, CDate(GMT))), "yyyy/mm/dd hh:MM:ss")
> 正確に書くとこうですね。

この通りにやったらグリニッジ標準時からの時間の表示形式を制御できるようになりました。
ありがとうございます！

> 日付を扱うのなら日付型を使いましょう。
> 日付を扱う場合は特に明示的に型変換した方がいいです。
> 日付型のデータを文字型に直接セットするとコントロールパネルで設定された
> 形（YY/MM/DD等）に変換されてセットされます。
> したがってパソコンが変わると結果が違うなんてことになります。
> この場合はFormat等で自分のほしい形に変換するようにしましょう。
> また、関数は引数，戻り値の型にも注意。

そうなんです！コンパネの地域の設定にまどわされてしまうので
実はこれも悩んでました。日付型にすればよかったんですね♪


またひとつ賢くなった感じです。
ありがとうございました。