Calendar Control in a Form

[hansjhamm]

I have a headscratcher...
I have used the "how to add a pop up calendar" from MS...and for two of
the calendars it works perfectly.

Then I added a third calendar and it returns the serial date and not
Gregorian...

This is the code that I used to open the calendar and insert that value
into a text box...

Anyone have a clue why this all of a sudden happened?

Private Sub Calendar3_Click()
' Set BackgroundStart to the selected date and hide the calendar.
BackgroundStart.Value = Calendar3.Value
BackgroundStart.SetFocus
Calendar3.Visible = False
End Sub
Private Sub BackgroundStart_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
' Show Calendar and set its date.
Calendar3.Visible = True
Calendar3.SetFocus
' Set to today if Background has no value.
Calendar3.Value = IIf(IsNull(BackgroundStart), Date,
BackgroundStart.Value)

End Sub



Thanks!!!


Hans

 

[hansjhamm]

I hate it when people respond to themselves...but now I have
to...figured it out.
H