Code Snippet "VBA allgemein"

Datumseingaben in VBA

'Datumseingaben in VBA
Sub procDate()
  Dim dateDatumA 'Amerikanisches Datum
  Dim dateDatumS 'Schweizer Datum
  
  'VBA reagiert flexibel auf Datumseingaben, d.h. solange es geht, wird Datum in lokalem Format gelesen
  dateDatumA = "03/24/2004"
  dateDatumS = "4/3/04" 'könnte auch "03.04.2004" geschrieben werden
  
  MsgBox ("Amerkanisch: " & dateDatumA & " " & FormatDateTime(dateDatumA, vbLongDate) & vbCrLf & _
    "Schweizerisch: " & dateDatumS & " " & FormatDateTime(dateDatumS, vbLongDate))
  
End Sub