[RESOLVED] "Good Morning/Afternoon"

[yatesell]

I'm making a program for a company, and I would like it to show a message box saying "Good Morning", or "Good Afternoon", depending on AM/PM.

I have a timer and a label working all fine and good with:

Private Sub TimerTime_Timer()
    LblClock.Caption = Format$(Time, "HH:MM:SS AMPM")
End Sub

And then I created a message box on form load:

If LblClock.Caption = "**:**:** AM" Then
   MsgBox "Good Morning"
     Else
   MsgBox "Good Evening"
End If

I'm not too good at Visual Basic, so I'm probably making a really stupid and obvious error, but what is wrong with that code? It doesn't show any message box.

[Joacim Andersson]

If DateDiff("s", CDate("12:00:00 PM"), CDate(lblClock.Label)) < 0 Then
    'Earlier than 12:00 PM
    MsgBox "Good Morning"
Else
    MsgBox "Good Afternoon"
End If

[yatesell]

Where do I put that? If I put it on Form Load, it gives me the error "Method or Data Member not Found".

[Hack]

Where do I put that? If I put it on Form Load, it gives me the error "Method or Data Member not Found".

Welcome to the forums.

Put it in Form_Activate

Your form won't be visible until all the code in the Form Load event has executed so any reference to any controls on that form will generate an error.

[yatesell]

Cheers. Unfortunately, it still comes up with the error, and it highlights the .label bit on CDate(LblClock.Label))

Would I need to put a value in it first (like 0), and then the 0 would over-write it with the time?

[Joacim Andersson]

In Form_Load the Timer event hasn't been fired yet so the Label doesn't have the correct time, or rather it doesn't contain a value that can be converted to a time so that's why you'll get the error. You can use this code in Form_Load instead:

If DateDiff("s", CDate("12:00:00 PM"),[b] Time[/b]) < 0 Then
    'Earlier than 12:00 PM
    MsgBox "Good Morning"
Else
    MsgBox "Good Afternoon"
End If

[Winder]

Does this code work on PPC ?
I tried it but it doesn't seem to work.

[cssriraman]

If DateDiff("s", CDate("12:00:00 PM"), CDate(lblClock.Label)) < 0 Then
    'Earlier than 12:00 PM
    MsgBox "Good Morning"
Else
    MsgBox "Good Afternoon"
End If

If DateDiff("s", CDate("12:00:00 PM"), CDate(lblClock.[B]caption[/B])) < 0 Then
    'Earlier than 12:00 PM
    MsgBox "Good Morning"
Else
    MsgBox "Good Afternoon"
End If

[cssriraman]

Does this code work on PPC ?
I tried it but it doesn't seem to work.

What is PPC??????