Arrrrgh! I Can't Get A Date!

[LegoPiece]

I have a Calendar control in my application, and when the user clicks on a day, I want to take that information to ascertain the day of the week. Problem is that I can't seem to format the clicked calendar information into a date format.

Private Sub MyCal_Click()
'------------------------------
dim dt as Date

dt = MyCal.Month/MyCal.Day/MyCal.Year
'The Value I get here is 12:00AM (!)

msgbox Weekday(dt) 'This always yields '7'

'------------------------------
End Sub

Any Thoughts? Peace
Lego

"I don't think we have the right or the wisdom to interfere with an alien tribe no matter how it's evolving!" - Captain James T. Kirk

"Your people must embrace these words and the words that follow, for their true meanings are..." - Captain James T. Kirk (same episode)

 

[JohnYingling]

Try DateSerial
dt = DateSerial (Cint(MyCal.Year),Cint(MyCal.Month), Cint(MyCal.Day))

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[LegoPiece]

John,

Jeez... I forgot to thank you the last time I logged on dude - but - it worked! You will be blessed and rewarded in a later life.... =)

Peace
Lego

"I don't think we have the right or the wisdom to interfere with an alien tribe no matter how it's evolving!" - Captain James T. Kirk

"Your people must embrace these words and the words that follow, for their true meanings are..." - Captain James T. Kirk (same episode)