بررسی ساعت و محاسبه یک عملگر

[mohsen_iceman2000]

سلام
من یه textbox دارم که توش مثلا مقدار ساعت 20.00 هست
میخوام سیستم زمانی که ساعت رسید به 15 دقیقه قبل از ساعت ۲۰ آلارم بده کسی راهی بلده

[mehran901]

خیلی سادس ی تایمر بذارین و توش اینو بنویسین

if Hour(now) = 19 and Minute(now) >= 45 then msgbox "alarm"

[vbhamed]

سلام
اين يك نمونه، يك كنترل تايمر با Interval = 1000 هم روي فرم بزاريد
ساعت رو هم حتما بايد به شكل استاندارد كه براتون نوشتم توي Textbox بزاريد، هر ساعتي تو Textbox باشه 15 دقيقه قبلش هشدار ميده
Private Sub Form_Load()

Text1 = "20:00:00"

End Sub

Private Sub Timer1_Timer()

Dim t As Date
t = Text1
If DateDiff("n", t, Time) = 15 Then MsgBox "Alarm"

End Sub

[PMTornado]

http://s5.picofile.com/file/8103167568/01_Alarm_Pic.jpg

سلام . به هر ساعتي كه دوس داري ميتوني تنظيم كني :)

http://s5.picofile.com/file/8103167542/Alarm.zip.html