Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29844 / 76732

←次へ　｜　前へ→


	【52162】Re:時刻同士の計算（ミリ秒単位）方法ってありますか

ふぁっしー - 07/10/25(木) 22:03 -


	引用なし

	パスワード

neptune さん

度々のフォローありがとうございます。
時間混みだと、

Sub t()
　　Dim Ret1 As Date, Ret2 As Date
　
　　Ret1 = FormatTime("05:01:00:050")
　　Ret2 = FormatTime("05:01:00:100")
　
　　MsgBox "Ret2 > Ret1 :" & (Ret2 > Ret1)
End Sub

'これにはデータ確認の処理が必要。サンプルなのでしてない。
Function FormatTime(pData As String) As Date
Dim sBuf() As String
Dim dtmBuf As String
Dim dblBuf As Double
Const sSpliter As String = ":"

　　sBuf = Split(pData, sSpliter)
　　dtmBuf = Format(CDate(sBuf(0) & sSpliter & sBuf(1) & sSpliter & sBuf(2)), "hh:mm:ss")
　　If sBuf(3) > 0 Then
　　　　dblBuf = Val(sBuf(3)) / (24 * 60) / 60　'秒以下を秒単位に成型　data/１日の分(1440分)/60秒
　　End If
　　dtmBuf = dtmBuf + CDate(dblBuf)
　　FormatTime = dtmBuf
End Function

というように変更する必要があるのですね。
私では思いつかない方法なので、大変参考になりました。
丁寧かつ迅速に対応していただきありがとうございました。

0 hits

▼

【52083】時刻同士の計算（ミリ秒単位）方法ってありますか ふぁっしー 07/10/19(金) 15:00