当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。

テクてく Lotus 技術者 Slack に参加しよう!

2008年8月19日火曜日

x秒待つ

夏休み明け一発目なので、軽い奴にしましょう。

タイマー機能です。
指定した数値の秒数だけLotusScriptの実行を停止するものです。

サンプルは、入力した数値の秒数だけ停止するものです。
Sleep前後の時間を記録しておくことにより、実際に停止していたのは何秒だったのかを表示します。

----------------------------------------------------------------------------------------------
Sub Click(Source As Button)
Dim FromTime As String
Dim ToTime As String
Dim x As Integer

res = Inputbox( "何秒待つか入力してください。", "x秒待つ", "0" )
If res = "" Then
Msgbox "キャンセルしました"
Else
x = Cint( res )
FromTime = Now
Sleep x
ToTime = Now
Msgbox "Sleep前: " + FromTime + Chr$(10) + "Sleep後: " + ToTime
End If
End Sub


Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: