VB-Homepage Tipp 039
Datumsformat (Tag des Jahres)
In vielen Projekten ist es notwendig, ratsam oder einfach nur informativ,
Datum und Uhrzeitformate mit einzubinden.
Da wir nun einmal bei dem Thema sind, möchte ich etwas ausholen
und beginnen mit ein paar grundlegenden Infos.
(Fortgeschrittene lesen einfach weiter unter weiter)

Um ein Datum oder eine Uhrzeit nach seinen Vorstellungen zu entwerfen, gibt es die einfache Möglichkeit mit den Befehlen FORMAT ; DATE ; TIME und NOW

Einige Kostproben

SYNTAX ERGEBNIS
Variable=Format(Date,"DD.MM.YYYY") 13.06.1997
Variable=Format(Date,"DD-MM-YY") 13-06-97
Variable=Format(Date,"DDD DD.MM.YY") Freitag 13.06.97
Variable=Format(Time,"HH:NN:SS") + " Uhr" 14:13:55 Uhr
Variable=Format(Now,"DDD DD.MM.YY - HH:NN:SS") + " Uhr" Freitag 13.06.97 - 14:13:55 Uhr

Nun könnte es ja auch interessant sein, zu ermitteln, wieviel Tage in diesem jahr schon vergangenen sind.
(Bsp.: Heute ist der 163 von 365 Tagen im Jahr).

Dies läßt sich über eine kleine Funktion abfragen. Geben Sie dazu im Abschnitt
General/Declarations - Allgemein/Deklarationen folgende Syntax ein.

Function TagimJahr (Datum As Double)
TagimJahr = Val(Format(Datum, "y"))
End Function

Durch die Eingabe wird ein neuer Eintrag TagimJahr erzeugt.
Auswerten können Sie dies nun durch beliebige Aktionen.
Die Syntax lautet :

Label1.Caption = TagimJahr(Date)          'Anzeige für den aktuellen Tag
Tipp-Download
Quelle :
Zurück zur Übersichtsseite