Excel VBA質問箱 IV

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

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


29920 / 76732 ←次へ | 前へ→

【52085】Re:時刻同士の計算(ミリ秒単位)方法ってありますか
発言  neptune  - 07/10/19(金) 17:51 -

引用なし
パスワード
   ▼ふぁっしー さん:
>このようなデータがあったとき、
>Data1.CSVの01:00:350の200というデータと
>Data2.CSVの01:00:331の40というデータを
>比較したいです。

殆ど検証してないのですが、検証は出来るようです。
※↑なので保障なし+このままでは実用不可
Sub t()
  Dim Ret1 As Date, Ret2 As Date
  
  Ret1 = FormatTime("01:00:050")
  Ret2 = FormatTime("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("00" & sSpliter & sBuf(0) & sSpliter & sBuf(1)), "hh:mm:ss")
  If sBuf(2) > 0 Then
    dblBuf = Val(sBuf(2)) / (24 * 60) / 60 '秒以下を秒単位に成型 data/1日の分(1440分)/60秒
  End If
  dtmBuf = dtmBuf + CDate(dblBuf)
  FormatTime = dtmBuf
End Function

>second()のようにシリアル値から秒ではなく、ミリ秒を算出する関数があれば可能だと思うのですが、見つけることができませんでした。
関数は無いです。

0 hits

【52083】時刻同士の計算(ミリ秒単位)方法ってありますか ふぁっしー 07/10/19(金) 15:00 質問
【52084】Re:時刻同士の計算(ミリ秒単位)方法って... ichinose 07/10/19(金) 17:43 発言
【52136】Re:時刻同士の計算(ミリ秒単位)方法って... ふぁっしー 07/10/23(火) 14:40 お礼
【52138】Re:時刻同士の計算(ミリ秒単位)方法って... ichinose 07/10/23(火) 20:42 発言
【52141】Re:時刻同士の計算(ミリ秒単位)方法って... ふぁっしー 07/10/24(水) 14:05 お礼
【52085】Re:時刻同士の計算(ミリ秒単位)方法って... neptune 07/10/19(金) 17:51 発言
【52137】Re:時刻同士の計算(ミリ秒単位)方法って... ふぁっしー 07/10/23(火) 15:26 お礼
【52142】Re:時刻同士の計算(ミリ秒単位)方法って... neptune 07/10/24(水) 15:03 発言
【52162】Re:時刻同士の計算(ミリ秒単位)方法って... ふぁっしー 07/10/25(木) 22:03 お礼

29920 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free