how can this be done ?
Private Sub TimeCheck dim TimeDifference as integer dim TimeNow as ? dim TaskTime as ? TaskTime = 0500 '5AM gintDailyReminder = 2 'from ini file(Hours) TaskTime = TaskTime - megintDailyReminder TimeDifference = timenow - gintDailyReminder If TimeDifference > 2 then exit sub Select Case TimeDifference Case 2 MsgBox "You need to take your medicine in 2 hours at " & TaskTime 'convert to AM/PM Case 1 MsgBox "You need to take your medicine in 1 hour at " & TaskTime 'convert to AM/PM Case Else MsgBox "You Forgot to take your medicine at " & TaskTime 'convert to AM/P End Select
From novice to tech pro — start learning today.