時刻データを日付データへ (Access2.0)

質問

あるシステムからデータを抜き出し、アクセスやエクセルにて二次加工
利用しています。システム側では、以下のように時刻欄を（便宜的に）
日付として利用しています。

時刻欄に入力されている　6:01:27 （2006年01月17日の意味）

これを数値表示させた場合以下の通りであり、当然、時刻として扱われ
てしまいます。

2006/01/27　 (38744)
6:01:27　(0.2510069)

やむなく 6:01:27 のまま日付表示を意味するとして印字しているので
すが、このままでは日数計算など数式に取り込むことができません。

6:01:27　を計算式にて日付データへ変換することは可能でしょうか？
識者の方、ご経験者の方アドバイスいただけましたら幸いです。

回答No.1

chibita_papa · ベストアンサー

これは？
Sub aaa()

Dim strDate As String

strDate = "6:01:27"
strDate = Replace(strDate, ":", "/")

Debug.Print DateValue(strDate) '2006/1/27

End Sub

お礼

早速の回答有難うございました。
明日、実際に試して見たいと思います。まずはお礼まで。

回答No.3

imogasi

下記でもできると思います。
Sub Test01()
Dim strDate As String
strDate = "6:01:27"
t = Split(strDate, ":")
MsgBox DateSerial(t(0), t(1), t(2))
End Sub

お礼

回答ありがとうございました。
ANo.1の方の方法と併せて試して見ます。
有難うございました。

回答No.2

papayuka

データが A1 として =DATEVALUE(TEXT(A1,"hh/mm/ss")) で下記の期間なら対応出来ると思いますが、、、

0:01:27 ～ 23:01:27　→　2000/1/27 ～ 2023/01/27

お礼

こちらはエクセルでの解決策ですね。
あわせて活用したいと思います。有難うございました。