[RESOLVED] show the date in a label

[chris1990]

How do i show the day (Saturday) not the date (10/02/07) in a label.

[bushmobile]

Label1.Caption = Format$(Now, "dddd")

[Bloodymess]

If anyone still read this [Resolved] post:

Do anyone know how I make the day, month and year to be displayed in english and not in my mothertongue?

[bushmobile]

the simplest way is probably to just do it yourself:

Private strMonthNames() As String, strDayNames() As String
 
Private Sub Form_Load()
    strMonthNames = Split("January,February,March,April,May,June,July," & _
                          "August,September,October,November,December", ",")
    strDayNames = Split("Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday", ",")
    
    Me.Caption = strDayNames(Weekday(Now, vbMonday)) & ", " & CStr(Day(Now)) & _
                 " " & strMonthNames(Month(Now)) & " " & Year(Now)
End Sub

[Bloodymess]

Good idea, thanks.