! DateTagFormat.obas (c) Andre Koppel Software GmbH 2013
! Dieses kurze Programm zeigt, wie man die
! DATEFORMAT$-Funktion benutzen kann, um symbolische
! Datumsangaben umwandeln zu lassen.
! Die Funktion erzeugt aus einem echten oder symbolischem
! Datum eine Zeichenkette, die nach individuelle
! Bedürfnissen aufgebaut ist
! Wir fragen das symbolische Datum P1 (erster Prüfungstermin)
! ab
A$=DATEFORMAT$("PT1" ; "DD.MM.Y hh:mm:ss" ; 0)
DISP A$ "\n"
! Wir lassen ein Datum in einer bestimmten Form formatiert
! ausgeben
A$=DATEFORMAT$(2012.11.10 ; "DD.N Y hh:mm:ss" ; 0)
DISP A$ "\n"
! Wir bereiten ein symbolisches Datum mit Text auf
MyForm$="'Heute ist der 'DD.N Y, 'es ist: 'hh:mm:ss"
A$=DATEFORMAT$("j" ; MyForm$,0)
DISP A$ "\n"
! Wir benutzen die TAG-Funktion, um einen XML-Text zu
! expandieren
MyXml$="1.M.YYYY "
A$=TAGEXPAND$("Die Zahlung ist fällig am " & MyXml$",42)
DISP A$ "\n"
! Wir führen eine Umfangreiche Expandion des PT1-Datums
! durch
Ev$="'Der erste Prüfungstermin ist am '"
A$=DATEFORMAT$("PT1";Ev$ & "D.M.Y 'um: 'hh:mm",0)
DISP A$ "\n"
Das ist interessant
INVEP kennt eine sehr große Zahl an Datumsangaben und Datumssymbolen, die jederzeit in ein vollwertiges Datum expandiert werden können. Zudem enthält INVEP einen XML-Generator, der die speziellen INVEP-Tags ersetzen kann.
Das hier gezeigte kurze Beispielprogramm zeigt, wie man mit den OBAS-Funktionen symbolische Datumsangaben auswerten und nach eigenen Bedürfnissen formatiert ausgeben kann.
Beispiel in INVEP laden
Sie können dieses Beispielprogramm in den INVEP-OBAS-Interpreter laden, indem Sie im Interpreter über den Button "Neu/laden" die Option OBAS-Web auswählen. Geben Sie als Nummer für das Beispiel die 8 ein.
