[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：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

投稿時間：2006/12/08(Fri) 20:38
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: 経過時間の表示
> 以下のようなのよいのでしょうか。
逆にどこか、問題があるのですか？
自分が意図するように動作していればいいのでは。

但し、timeGetTime は、Windows が起動してから経過した時間です。
起動してから、約 49.71 日で、0 に戻りますので、常時稼動しているOS等での
使用や長期の計測は注意して下さい。

投稿時間：2006/12/12(Tue) 12:30
投稿者名：こう
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: 経過時間の表示
ありがとうございます。

> 但し、timeGetTime は、Windows が起動してから経過した時間です。
> 起動してから、約 49.71 日で、0 に戻りますので、常時稼動しているOS等での
> 使用や長期の計測は注意して下さい。
約 49.71 日で、0 に戻りますので、常時稼動しているOS等での使用や長期の計測は注意して下さい。
は知りませんでした。
GetTickCount や Timer などを使用した方がよいのですか。

投稿時間：2006/12/12(Tue) 13:11
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: 経過時間の表示
> GetTickCount や Timer などを使用した方がよいのですか。

貴方がどのような使い方をするか、どの程度の精度を求めているかによります。
因みに、GetTickCount もtimeGetTime と同様で、timeGetTime の方が精度が高いと
言われております。
Timer 関数 も 24時で 0 に戻ります。
下記のような使い方をする事もできます。
　http://hanatyan.sakura.ne.jp/vbhlp/NowAlpha.htm
正しい時間というなら下記のようなものもあります。
　http://www2.nict.go.jp/cgi-bin/JST.pl

投稿時間：2006/12/13(Wed) 00:26
投稿者名：こう
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: 経過時間の表示
> > GetTickCount や Timer などを使用した方がよいのですか。
>
> 貴方がどのような使い方をするか、どの程度の精度を求めているかによります。
> 因みに、GetTickCount もtimeGetTime と同様で、timeGetTime の方が精度が高いと
> 言われております。
> Timer 関数 も 24時で 0 に戻ります。
> 下記のような使い方をする事もできます。
> 　http://hanatyan.sakura.ne.jp/vbhlp/NowAlpha.htm
> 正しい時間というなら下記のようなものもあります。
> 　http://www2.nict.go.jp/cgi-bin/JST.pl

いろいろとありがとうございます。