Frage deutsch
~~~~~~~~~~~~
Wie zeige ich das Datum in deutscher Schreibweise TT.MM.JJJJ an?
 

Question English
~~~~~~~~~~~~
How to display the date in the German dd.mm.yy notation?
 

Antwort
~~~~~~~~~~~~
[ von Thomas Antoni, 10.5.2002 ]
 
Die Lösung findest Du in meinem untenstehenden Programm DAT-ZEIT.BAS
 
*** Programm DAT-ZEIT.BAS
******************************************************************************
' DAT-ZEIT.BAS - QBASIC-Programm zur Ausgabe von Datum und Uhrzeit
' =================================================================
' ... auf den Bildschirm sowie Umwandlung des Datums ins deutsche Format
'
' Verwendete Befehle: DATE$, TIME$, PRINT, INKEY$, MID$, LEFT$, RIGHT$
'
' \ (c) Thomas Antoni, 4.3.99 - 18.9.99
' \ /\ Mailto:thomas*antonis.de
' ( ) http://www.antonis.de
' .( o ).
' ----==== Hottest QBasic Stuff on Earth !!! ====----
'
'******************************************************************************
CLS
DO
LOCATE 1, 1 'Cursor wieder auf Zeile 1, Spalte 1, um alte
'Ausgabe zu Ueberschreiben und Zeilenfortschal-
'tung zu unterdruecken
'
'---------------- Systemvariablen "Uhrzeit" und "Datum" ausgeben -----------
PRINT "Datum im Normalformat : "; DATE$
PRINT "Uhrzeit : "; TIME$
PRINT
'
'--------- Datum zusaetzlich im deutschen Format dd.mm.jjjj ausgeben --------
'--------- statt in der Form mm-dd-jjjj -----------------
d$ = DATE$
Datum$ = MID$(d$, 4, 2) + "." + LEFT$(d$, 2) + "." + RIGHT$(d$, 4)
PRINT "Datum in deutschem Format : "; Datum$
PRINT
'
'------------- Schlussdialog -----------------------------------------------
'
PRINT "Drcke eine beliebige Taste, um abzubrechen ..."
LOOP WHILE INKEY$ = ""
'END ' Controlle an den QBASIC-Editor bergeben
SYSTEM ' Controlle an DOS Uebergeben
 
Das obige Programm steht im Verzeichnis Progs\ zur Verfügung sowie online unter www.antonis.de/faq/progs/dat-zeit.bas .
 
 

[ The QBasic-MonsterFAQ --- Start Page: www.antonis.de/faq ]