【エクセルマクロ】日付変換

質問

A1 → 12：00
A1のセルに入力してあります。

マクロで、
Dim 時刻1 As Date

時刻1 = Cells(1, 1).Value

としたところ、、
時刻1 → 0：05

となってしまいます。

なぜでしょうか。。。

回答No.1

tsubuyuki · ベストアンサー

えっと、いろんな意味でなかなか難しい質問ですね。

通常、
Sub sample()
Dim myTime As Date
　　myTime = Range("A1").Value
　　Range("C1") = myTime
End Sub
などとして、Ｃ１セルの表示形式が日付/時刻以外にすると、
Ｃ１セルには「０．５」と返りますが、コレは正常な挙動です。
「１２：００＝０．５」ですから。
ちなみに、「０時＝０」「２４時＝１」です。

「１２：００」を代入して「０：０５」を返す方がむしろ難題です。
どのようにして
> としたところ、、
> 時刻1 → 0：05
これを取り出しているのでしょう？
前後の処理を踏まえて補足していただけたら考えやすいです。