Option Explicit
Sub Bsp()
Dim dtm As Date
dtm = DateSerial(2015, 3, 30) 'CDate("2015-03-30")
'hier wird die Systemeinstellung / Ländereinstellung von Windows verwendet
'(diese kann natürlich je nach System auch z.Bauf . Englisch eingesellt sein
' und da kommt dann halt nicht 'Mo' sondern 'Mon' raus)
MsgBox "System: " & dtm & vbNewLine & _
Format$(dtm, "ddd")
'darum alternativ:
MsgBox "Eigen (DE): " & dtm & vbNewLine & _
Choose(Weekday(dtm, vbMonday), "Mo", "Di", "Mi", "Do", "Fr", "Sa", "So")
'noch ein/zwei Beispiel(e):
dtm = DateAdd("d", 4, dtm) '+4 Tage -> Fr
MsgBox "Eigen (DE): " & dtm & vbNewLine & _
Choose(Weekday(dtm, vbMonday), "Mo", "Di", "Mi", "Do", "Fr", "Sa", "So")
Range("A1").Value = dtm
Range("A1").NumberFormat = "ddd dd.mm.yyyy"
End Sub
|