Days, Month, Year

[Bonzo2008]

I get some help for this code
but copy it as you like change
month and days what you like.

I put this code in Form Load event.

Dim MyDay As Variant
 Dim MyMonth As Variant
 Dim WD As Long
 Dim MM As Long
 Dim MyDate1, MyDate2, EngDays
 
'********************************* Date & Year
 MyDate1 = StrConv(Format$(Date, "dd"), vbProperCase)
 MyDate2 = StrConv(Format$(Date, "yyyy"), vbProperCase)
 
 '********************************* Days
 MyDay = Array("Monday", "Tuesday", "Wednesday", "Thursday", "Fridag", "Saterday", "Sunday")
 WD = Weekday(Now, vbMonday) 'day of week, where Monday is the 1st day of the week (1 based)
 
 '********************************* Month
 MyMonth = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
 MM = Month(Now)
 
 '************************* Day ************** Date *********** Month *****************Year
 LabelDatumEng.Caption = MyDay(WD - 1) & " " & MyDate1 & " " & MyMonth(MM - 1) & " " & MyDate2
 
 '********************************** END Date Year

Lenny