Start day in month

[escfoe2]

I'm trying to implement a calendar into my game.  So here's my question.
Okay, so if you click on your computers built in calendar it will bring up your current month. When you look at that calendar it shows all the days and such. I'm trying to find the day of the week DAY 1 falls on. As in September 2011, DAY 1 falls on a Thursday. My question is, how do I figure that out? How do i find the day of the week DAY 1 falls on for each month using vb6?

P.S. The first person to solve this wins a BRAND NEW CHEVY!!!!!!
No not really but I'll give ya an electronic hug lol <-(^-^)->

[Rithy58]

Something like this?
http://5dspace-time.org/Calendar/Algorithm.html

Sincerely,
Rithy

[escfoe2]

Close, but no cigar.  I need and only need DAY 1 and where it starts in the week of that month.  Example would be:
```
Call FirstDay(11)

Sub FirstDay(ByVal Month as Integer)
    Call MsgBox("The beginning day of " & Month & " falls on a " & DayItFallsOn)
    ' Month = November
    ' First day of that month falls on a Tuesday.  I used the Windows calendar to find that out.
    ' However, I have no idea how to calculate and retrieve this information in vb6
End Sub

```
Now either that website didn't have the right information, or I'm too stupid to understand.  lol not really, but it describes somewhat what I'm looking for however, I DON'T KNOW the vb6 procedures to get this data.

[escfoe2]

Well I figured it out =D

```
WeekDay(DateSerial(year, month, 1))

```