Code-Beispiel

Formatierte Datumsausgabe [WINDOWS]

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	Volta	15.10.2010

#Include Once "windows.bi"

Dim sdt As String*64



GetTimeFormat LANG_GERMAN, TIME_FORCE24HOURFORMAT, 0, 0, sdt, SizeOf(sdt)

Print Trim(sdt)

MessageBox(0, Trim(sdt), "Uhrzeit", MB_OK)



sdt=""

GetDateFormat LANG_GERMAN, DATE_SHORTDATE, 0, 0, sdt, SizeOf(sdt)

Print Trim(sdt)

MessageBox(0, Trim(sdt), "Kurzes Datum", MB_OK)



sdt=""

GetDateFormat LANG_GERMAN , DATE_LONGDATE, 0, 0, sdt, SizeOf(sdt)

Print Trim(sdt)

MessageBox(0, Trim(sdt), "Langes Datum", MB_OK)



sdt=""

Print : Print "Datumsformate nach DIN 5008"

'DIN 5008, Schreib- und Gestaltungsregeln für die Textverarbeitung

GetDateFormat LANG_GERMAN, 0, 0, "yyyy'-'MM'-'dd", sdt, SizeOf(sdt)

Print Trim(sdt);"  Datumsformat nach ISO-Norm (Jahr-Monat-Tag)"

MessageBox(0, Trim(sdt), "Datumsformate nach DIN 5008", MB_OK)



'ohne vorangestellte „0“, wenn einstelliges Tagesdatum

sdt=""

GetDateFormat LANG_GERMAN , 0, 0, "d'. 'MMMM' 'yyyy", sdt, SizeOf(sdt)

Print Trim(sdt)

MessageBox(0, Trim(sdt), "ausgeschriebener Monatsname", MB_OK)



sdt=""

GetDateFormat LANG_GERMAN , 0, 0, "d'. 'MMM' 'yyyy", sdt, SizeOf(sdt)

Print Trim(sdt)

MessageBox(0, Trim(sdt), "abgekürzter Monatsname", MB_OK)



Sleep 2000

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 15.10.2010 von Volta angelegt.
Die aktuellste Version wurde am 15.10.2010 von Volta gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.