投稿日	： 2006/12/08(Fri) 16:48
投稿者	： こう
Ｅメール	：
ＵＲＬ	：
タイトル	： 経過時間の表示

開始と終了の経過時間を表示しています。
このサイトにあった、経過時間測定の方法を参考に
やってみました。
以下のようなのよいのでしょうか。

Dim lngST As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Command1_Click()
    lngST = 0&
    lngST = timeGetTime
End Sub

Private Sub Command2_Click()
    Dim st As Long
    Dim strtime As String

    st = (timeGetTime - lngST) / 1000
    strtime = Int(st / 3600) & "時間" & Int((st Mod 3600) / 60) & "分" & st Mod 3600 Mod 60 & "秒"
    MsgBox "経過時間： " & strtime
End Sub

★ - 経過時間の表示 - こう 12/08-16:48No.7857
• Re: 経過時間の表示 - 花ちゃん 12/08-20:38 No.7861
  • Re^2: 経過時間の表示 - こう 12/12-12:30 No.7879
    • Re^3: 経過時間の表示 - 花ちゃん 12/12-13:11 No.7880
      • Re^4: 経過時間の表示 - こう 12/13-00:26 No.7885