※ ChatGPTを利用し、要約された質問です(原文:VB6で、表示させた時間をExcelのセルに書き込む際の質問です!)
VB6での時間表示とExcel書き込みの問題
このQ&Aのポイント
VB6で表示させた時間をExcelのセルに書き込む際の問題について質問です。
VB6でGetLapTimeという関数を作成し、時間を取得しています。
Excelに書き込む際にはxlSheet.Cells(a + 1, 2).Value = GetLapTimeというコードを使用していますが、正常に表示されない場合があります。なぜでしょうか?
VB6で、表示させた時間をExcelのセルに書き込む際の質問です!
VB6で、表示させた時間をExcelのセルに書き込む際の質問です!
よろしくお願いします。
まず、時間をGetLapTimeとして作成してます。
Private Function GetLapTime() As String
Dim strTime As String
Dim intMillsec As Integer 'ミリ秒
Dim intSec As Integer '秒
Dim intMinute As Integer '分
Dim IngTime As Long
'スタートからの時間を取得
IngTime = timeGetTime - StartTime
'ミリ秒の取得
intMillsec = IngTime Mod 1000
IngTime = (IngTime \ 1000)
'秒の取得
intSec = IngTime Mod 60
IngTime = IngTime \ 60
'分の取得
intMinute = IngTime Mod 60
IngTime = IngTime \ 60
'表示文字を作成
strTime = Format(intMinute, "00") & ":" & _
Format(intSec, "00") & ":" & _
Format(intMillsec, "000")
GetLapTime = strTime
End Function
そして、Excelに書き込む際に
xlSheet.Cells(a + 1, 2).Value = GetLapTime
を使って書き込んでいます。
書き込みの前にMsgBoxで表示させると、
『00:23:214』
のように正常に表示されるのですが、
Excelに書き込まれたのを見ると、
0.238217943
のように違う数字が表示されてしまいます。
10回に1回くらいは正常に書き込まれるのですが、
このように違う数字が表示されるのはなぜなのでしょうか?
説明が長くて下手でわかりにくくて申し訳ないのですが、
わかる方いらっしゃいましたら
教えてください!
お願いします。
お礼
ありがとうございます!! 正常に表示されました。