hi!
can anyone help me with the following:
I'm doing a project whereby i need to find the day, (Monday, Tuesday etc.) of the first of the month when giving a date
eg. giving 15th april 2003 should return Tuesday because the 1st of April 2003 was on a tuesday (i'll settle for a number, can convert it later)
Many thanks in advance
hi
input Date : see Weekday(Date)
output Day : see xDay
-
Private Sub Form_Load()
-
strDays = "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday"
-
aDay = Split(strDays, ",")
-
wDay = Weekday(Date)
-
xDay = aDay(wDay - 1)
-
End Sub
-
