Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Kleine Helferlein

Formatierte Datumsausgabe [WINDOWS]

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.RedakteurVolta 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 RedakteurVolta angelegt.
  • Die aktuellste Version wurde am 15.10.2010 von RedakteurVolta gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen