Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6051 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【47427】時間の計算について たいやきの頭 07/3/9(金) 17:00 質問[未読]
【47429】Re:時間の計算について ウッシ 07/3/9(金) 17:08 回答[未読]
【47430】Re:時間の計算について Kein 07/3/9(金) 17:09 発言[未読]
【47431】Re:時間の計算について たいやきの頭 07/3/9(金) 17:12 質問[未読]
【47432】Re:時間の計算について neptune 07/3/9(金) 17:32 回答[未読]
【47434】Re:時間の計算について Kein 07/3/9(金) 17:38 発言[未読]
【47435】Re:時間の計算について ウッシ 07/3/9(金) 17:50 発言[未読]
【47468】Re:時間の計算について たいやきの頭 07/3/11(日) 19:31 発言[未読]
【47469】Re:時間の計算について りん 07/3/11(日) 20:23 回答[未読]
【47480】Re:時間の計算について たいやきの頭 07/3/12(月) 9:21 お礼[未読]
【47488】Re:時間の計算について りん 07/3/12(月) 12:10 発言[未読]
【47427】時間の計算について
質問  たいやきの頭  - 07/3/9(金) 17:00 -
引用なし
パスワード
   処理がどのぐらい後に終わるかを表示しようと思って、
For i = 1 To 10
　　taimu(1) = Hour(Time)
　　taimu(2) = Minute(Time)
　　taimu(3) = Second(Time)
　　ActiveWindow.Caption = i
　　DoEvents
　　For a = 1 To 99999
　　　　DoEvents
　　Next a
　　g = 10 - i
　　Debug.Print "後 " & DateDiff("h", taimu(1) * g, Hour(Time)) & "時間" & DateDiff("n", taimu(2) * g, Minute(Time)) & "分" & DateDiff("s", taimu(3) * g, Second(Time)) & "秒後です"
Next i
というコードをくんだのですが、
めちゃくちゃな値が出てくるのですが、なぜなんでしょうか？
誰か詳しい方教えてください。
【47429】Re:時間の計算について
回答  ウッシ  - 07/3/9(金) 17:08 -
引用なし
パスワード
   こんにちは

何故かは見てないですけど、よくあるのは

Sub test()
　　Dim a As Long
　　Dim s As Single
　　s = Timer
　　For a = 1 To 99999
　　　　DoEvents
　　Next a
　　Debug.Print Timer - s
End Sub

です。
【47430】Re:時間の計算について
発言  Kein  - 07/3/9(金) 17:09 -
引用なし
パスワード
   処理時間を計測する方法はいくつかありますが、簡単なものでよければ
Timer関数が使えます。Timer をキーワードにして過去ログを検索して
みて下さい。記事番号 36758 には拙作のサンプルもあります。
【47431】Re:時間の計算について
質問  たいやきの頭  - 07/3/9(金) 17:12 -
引用なし
パスワード
   Timerの使い方はしっているのですが、
今回は、時間と分もほしいんです。
なんか方法ありませんか？
【47432】Re:時間の計算について
回答  neptune  - 07/3/9(金) 17:32 -
引用なし
パスワード
   ▼たいやきの頭 さん：
こんにちは

多分ですが、
>For i = 1 To 10
　　'処理してないのに時間を取り入れている----A
>　　taimu(1) = Hour(Time)
>　　taimu(2) = Minute(Time)
>　　taimu(3) = Second(Time)
>　　ActiveWindow.Caption = i
>　　DoEvents
>　　For a = 1 To 99999
>　　　　DoEvents
>　　Next a
>　　g = 10 - i
　　'Aの時間を使用しても無意味じゃないでしょうか？debug.printの計算方法
　　　をもう一度考えてみては？
>　　Debug.Print "後 " & DateDiff("h", taimu(1) * g, Hour(Time)) & "時間" & DateDiff("n", taimu(2) * g, Minute(Time)) & "分" & DateDiff("s", taimu(3) * g, Second(Time)) & "秒後です"
>Next i
【47434】Re:時間の計算について
発言  Kein  - 07/3/9(金) 17:38 -
引用なし
パスワード
   Win32APIを使うと、もっと正確に計測できそうです。

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

Sub TM_Test()
　nStart = timeGetTime()
　For i = 0 To 1000000000
　Next
　nEnd = timeGetTime
　MsgBox (CDbl(nEnd) - CDbl(nStart)) / 1000 & " 秒"
End Sub

秒数の算出が分かれば、後はできると思いますが。
【47435】Re:時間の計算について
発言  ウッシ  - 07/3/9(金) 17:50 -
引用なし
パスワード
   こんにちは

なんとなく、

経過時間ではなくて残り時間を表示するのは難しいのでは？
処理データ件数とトータル処理時間とかが分かっていれば別ですけど。

（たぶん・・・結局処理時間は短縮出来なかったんですね。）
【47468】Re:時間の計算について
発言  たいやきの頭  - 07/3/11(日) 19:31 -
引用なし
パスワード
   返信遅くなり申し訳ございません。
処理件数はわかってはいるんです。
なので一度ＬＯＯＰを通って出てきたらその時間を計測して
それを元に残りの処理時間を計算し、表示させたいと思っているんです。
【47469】Re:時間の計算について
回答  りん E-MAIL  - 07/3/11(日) 20:23 -
引用なし
パスワード
   たいやきの頭 さん、こんばんわ。

>処理件数はわかってはいるんです。
>なので一度ＬＯＯＰを通って出てきたらその時間を計測して
>それを元に残りの処理時間を計算し、表示させたいと思っているんです。

１回あたりの経過時間から終了時間を予測してみます。
Sub test()
　 Dim t1 As Double, t2 As Double
　 t1 = Now
　 imax = 10
　 For i = 1 To imax
　　　For a = 1 To 99999
　　　　　DoEvents '適当に時間のかかる処理
　　　Next a
　　　'
　　　t2 = Now
　　　Debug.Print i & "/"; imax & " 残り（およそ）　" & Format(((t2 - t1) / i) * (10 - i), "hh時間mm分ss秒")
　 Next i
End Sub

こんな感じです。
【47480】Re:時間の計算について
お礼  たいやきの頭  - 07/3/12(月) 9:21 -
引用なし
パスワード
   おぉ〜！！できました。
教えてくださった方々ありがとうございました
【47488】Re:時間の計算について
発言  りん E-MAIL  - 07/3/12(月) 12:10 -
引用なし
パスワード
   たいやきの頭 さん、こんにちわ。

>おぉ〜！！できました。
>教えてくださった方々ありがとうございました

Sub test()
　 Dim t1 As Double, t2 As Double
　 t1 = Now
　 imax = 10
　 For i = 1 To imax
　　　For a = 1 To 99999
　　　　　DoEvents '適当に時間のかかる処理
　　　Next a
　　　'
　　　t2 = Now
　　　Debug.Print i & "/"; imax & " 残り（およそ）　" & Format(((t2 - t1) / i) * (imax - i), "hh時間mm分ss秒")
　 Next i
End Sub

結果表示のところが間違っていたので、訂正します。
10　→　imax　でした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6051 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free