Working with datepicker values vb6

I don't know what you have in mydate, but if I set it to Now - 1 or Now + 1 it worked (with the changes below).

If mydate > Now Then
    'start tomorrow
    MsgBox "Notifications will start tomorrow, " & Format(DateAdd("d", 1, Now), "dddd") & ", at " _
          & Format(DTPicker1.Value, "HH:MM AM/PM") & " and will continue everyday"
Else
    'start today
    MsgBox "Reminder will appear at " & Format(DTPicker1.Value, "HH:MM AM/PM") & " today and will continue everyday" '12 hr time"
End If

Select allOpen in new window

Debug.Print DTPicker1.Value produces this: 10/3/2015 7:00:00 PM
mydate = DTPicker1.Value
i willtest your code

no matter what time i select it only does the else
MsgBox "Reminder will appear at " & Format(DTPicker1.Value, "HH:MM AM/PM") & " today and will continue everyday" '12 hr time"

example

What is in mydate?

Private Sub Command_Click()
Dim mydate As Date

I meant - what is the value when the code runs?

here is everything
Private Sub Command_Click()
Dim mydate As Date
Dim myDay As Integer
'  Dim fName As String
   mydate = DTPicker1.Value
    If mydate > Now Then
    'start tomorrow
    MsgBox "Notifications will start tomorrow, " & Format(DateAdd("d", 1, Now), "dddd") & ", at " _
          & Format(DTPicker1.Value, "HH:MM AM/PM") & " and will continue everyday"
Else
    'start today
    MsgBox "Reminder will appear at " & Format(DTPicker1.Value, "HH:MM AM/PM") & " today and will continue everyday" '12 hr time"
End If
also
   the tomorrow date need to add 1 day to the date

Did you actually choose 10/17? I did and it works for me with this code (you don't need mydate; you can always use the vales of controls directly).

Private Sub Command1_Click()

If DTPicker1.Value > Now Then
    'start tomorrow
    MsgBox "Notifications will start tomorrow, " & Format(DateAdd("d", 1, Now), "dddd") & ", at " _
          & Format(DTPicker1.Value, "HH:MM AM/PM") & " and will continue everyday"
Else
    'start today
    MsgBox "Reminder will appear at " & Format(DTPicker1.Value, "HH:MM AM/PM") & " today and will continue everyday" '12 hr time"
End If
End Sub

Select allOpen in new window

However if you choose a date after tomorrow, the message will still say "tomorrow". what do you want it to say?

Oh I see! You have time in the datepicker. Let me try that and see what I can do.

ok

This works but there's a problem I think.

Private Sub Command1_Click()

If DateDiff("h", DTPicker1.Value, Now) > 1 Then
    'start tomorrow
    MsgBox "Notifications will start tomorrow, " & Format(DateAdd("d", 1, Now), "dddd") & ", at " _
          & Format(DTPicker1.Value, "HH:MM AM/PM") & " and will continue everyday"
Else
    'start today
    MsgBox "Reminder will appear at " & Format(DTPicker1.Value, "HH:MM AM/PM") & " today and will continue everyday" '12 hr time"
End If
End Sub

Select allOpen in new window

The problem is this. Let's say it's 7:19 PM here (which it is) if I use the up button on the dtpicker to get to, say, 10PM I get the "tomorrow" message. If however I use the down button until it shows 10PM I get the "today" message.

yes there is something wrong
time now 7:52
datepicker time 10:00pm
message says tomorrow, but it should say today

As I said, you can get to 10PM by going up or down. If you sister chooses 10PM, no matter which way she gets there, do you always want to say "tomorrow"?

If so change the first line to

If Format(DTPicker1.Value, "HH:MM") > Format(Now, "HH:MM") Then

Select allOpen in new window

Note: Don't add the "AM/PM" to that line.

No if the datepicker time is later than the pc time the it should say today

Then change the > to a <.

something is wrong

With this code
where the dtpicker time is less than the PC time (10:19 PM) I get this
and when the dtpicker time is greater I get this
 

Yes it's backwards

Could you post the code instead of a image of the code ?

Thanks marty got it, never  relized dates/times was so difficult