Timer 関数

Timer

午前 0:00 以降に経過した秒数を返します。

使用例

次の例では、For...Next ループを N 回繰り返すために必要な時間を、Timer 関数を使って決める例です。

Function lngTime(lngNum)
    Dim i
    Dim lngStart
    Dim ingEnd
    lngStart = Timer
    For i = 1 To lngNum
    Next
    ingEnd = Timer
    lngTime = ingEnd - lngStart
End Function

この記事を読んで当サイトが面白いと思ったら、ぜひRSSリーダーやはてブなどに登録していただいて、また遊びにきてくださいね！ツイッターでも、更新履歴を流してます。

最速攻略VBScriptサンプル大全集

好評の「最速攻略 VBScript サンプル大全集」の改訂版です。これまでのWindows2000／XPに加え、Windows Vista、最新のWindows 7環境にも対応しています。Windows上での処理の自動化や一括処理（バッチ処理）をテーマとしたVBScriptのサンプルスクリプト集です。付属 CD-ROMには、すぐに使うことができる100以上のサンプルスクリプトを用意しています。

VBScriptポケットリファレンス改訂版

ＷｅｂでもＷｉｎｄｏｗｓでも使えるＶＢＳｃｒｉｐｔだから手元においてさっと引けるこの一冊！ＶＢＳｃｒｉｐｔ５．６に対応！待望の改訂版！目的別リファレンスでやりたいことから調べられます。すべての項目にサンプルコード掲載！ＷＳＨ、ＡＳＰ、ＩＥすべての環境でお役に立ちます。

Excel VBAポケットリファレンス改訂第3版

好評のExcel VBAポケットリファレンスが改訂第3版としてリニューアルしました。知りたいコマンドがすぐ調べられる機能引きリファレンスはそのままに、最新の Excel 2010に完全対応。もちろん、これまでのExcel 97、2000、2002、2003、2007のすべてのバージョンに対応しています。「こんなときどうするの？」「どう書けばいいの？」という疑問がすぐ解決する、全てのExcel VBAユーザー必携の、最強のリファレンスブックです！

Access VBA逆引きハンドブック

本書はAccess VBAの各機能を、豊富なプログラミング例を使って、初心者にもわかりやすく、かつ網羅的に解説しています。また、やりたいことを目的別に簡単に探せる「逆引き」の構成になっています。

スポンサードリンク