modify a vb6 project

I don't understand how you want to use gintDailyReminder so I've set it to 0 in this code. It will only give one notification at 2 hours, 1 hour and pill-taking time. It won't give any notice once your sister indicates she's taken the pills. If she's late it will continue to notify her until they're taken.

Please note line 2 where I've defined a collection for notifications, line 14 where you can try different due times for testing and the 2 new procedures in lines 45 to 65. If you need help understanding how the code works please let me know.

Option Explicit
Private mcolNotifications As New Collection

Private Sub TimeCheck()
Dim lngTimeTotask As Long
Dim strTaskTime As String
Dim dteTaskTime As Date
Dim lngSecondsToDueTime As Long

Dim gintDailyReminder As Integer
strTaskTime = 1426
dteTaskTime = Left$(strTaskTime, Len(strTaskTime) - 2) & ":" & Right$(strTaskTime, 2)

gintDailyReminder = 0 '2 'from ini file(Hours)

' This routine runs every 10 seconds so if we want to produce a message at one
' or two hours before the due time, and produce the message only once then
' we need to look at seconds rather than hours and minutes

' Get the time to the task time in seconds
lngTimeTotask = DateDiff("s", Time(), dteTaskTime)

lngSecondsToDueTime = lngTimeTotask - gintDailyReminder * 3600
Debug.Print lngSecondsToDueTime
Select Case lngSecondsToDueTime
' Over 2 hours
Case Is > 7210
    Exit Sub
' 2 hours to 2 hours and 10 seconds
Case 7200 To 7210
    Notify "You need to take your medicine in 2 hours at " & Format(dteTaskTime, "HH:NN AM/PM") & "." & vbCrLf & _
           "If you do it now, then come back and click 'Yes'.", strTaskTime, vbExclamation
' 1 hour to 1 hour and 10 seconds
Case 3600 To 3610
    Notify "You need to take your medicine in 1 hours at " & Format(dteTaskTime, "HH:NN AM/PM") & "." & vbCrLf & _
           "If you do it now, then come back and click 'Yes'.", strTaskTime, vbExclamation
Case 0 To 10
    Notify "It's time to take your medicine." & vbCrLf & _
           "When you've done that please come back and click 'Yes'.", strTaskTime, vbExclamation
Case Is < 0
    Notify "You Forgot to take your medicine at " & Format(dteTaskTime, "HH:NN AM/PM") & "." & vbCrLf & _
           "Please do it now and then come back and click 'Yes'.", strTaskTime, vbExclamation
End Select
End Sub
Private Sub Notify(strMsg As String, strTaskTime As String, Optional intMsgType As Integer = vbInformation)
    On Error Resume Next
    If Not keyExists(strTaskTime & Format(Now(), "yymmdd")) Then
        If vbYes = MsgBox(strMsg, intMsgType + vbYesNo) Then
              mcolNotifications.Add strTaskTime, strTaskTime & Format(Now(), "yymmdd")
        End If
    End If
    On Error GoTo 0

End Sub
Public Function keyExists(strKey As String) As Boolean
  On Error GoTo ErrorHandler:

  Dim strItem As String

  strItem = mcolNotifications(strKey)
  keyExists = True
  Exit Function
ErrorHandler:
  keyExists = False
End Function
Private Sub Timer1_Timer()
TimeCheck
End Sub

Select all Open in new window