はじめましてるるです。
ＶＢ初心者です。
３分毎にある処理を行うプログラムを作成したいのですが、
タイマーコントロールの上限値が99,999だったので
出来ない事に気づきました・・・。
簡単な説明で申し訳ありませんが
何か他に良い方法はないものでしょうか？
どんな情報でも構いません！！
宜しくお願いいたします。
環境：Windowes2000、VB6.0
きっとこんな感じ
Option Explicit
Private NowTime As Date
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
NowTime = Now
Debug.Print 開始時間： & NowTime
End Sub
Private Sub Timer1_Timer()
If DateDiff(s, NowTime, Now) >= 180 Then
Debug.Print ３分たったよ： & Now
NowTime = DateAdd(n, 3, NowTime)
End If
End Sub
GODさんありがとうございます。
GODさんの方法で上手くいきました。。
本当に助かりました。
ありがとうございます♪♪
返信する
最新の投稿: お久しぶりです、いかがお過ごしでしょうか。 最新のメンバー: gantez 最近の投稿 未読の投稿
