Aktuelles Datum , zweistellig ermitteln / ausgeben

Geschrieben von Christopher Pope am
Ist zwar eine einfach Funktion aber dennoch wenn man sie hat muß man sie nicht immer selber Tippen ;-)


Function GetDate()
'------------------ Ermittelt das aktuelle Datum
Dim Monat : Monat = Month(now)
Dim Tag : Tag = Day(Now)
Dim Jahr : Jahr = Year(now)
If Monat < 10 then
Monat = "0" & Monat
End If
If Tag < 10 Then
Tag = "0" & Tag
End If
GetDate = Tag & "." & Monat & "." & Jahr
End Function
“Das einzig sichere System müsste ausgeschaltet, in einem versiegelten und von Stahlbeton ummantelten Raum und von bewaffneten Schutztruppen umstellt sein.”
Gene Spafford (Sicherheitsexperte)