Marc's Place

DDAT2 / DDAT3 - Datumweergave DD-MM-[JJ]JJ




Aanroep
 
xcall ddat2 (rrkkk, datum6)
xcall ddat3 (rrkkk, {datum6 | datum8})
 
Common velden vóór aanroep
mhatr
Weergave attribuut (bold, underline, etc)
Parameters te vullen bij aanroep
rrkkk (d5)
Regel/kolomnummer waar de inname plaats moet vinden.
pos 1 - 2 = Beeldschermregelnummer
pos 3 - 5 = Beeldschermkolomnummer
Indien nul, dan vindt de inname plaats vanaf de huidige cursorpositie.
datum6 (d6), datum8 (d8)
Weer te geven datum in de vorm [JJ]JJMMDD.
De routine DDAT2 geeft een datum als DD-MM-JJ weer, ongeacht de lengte van het veld.
De routine DDAT3 kan beide aan:
Een veld van 6 posities of een veld van 8 posities met alleen de laatste 6 posities gevuld, wordt als DD-MM-JJ weergegeven.
Een veld van 8 lang dat volledig is gevuld wordt als DD-MM-JJJJ weergegeven.
Parameters gevuld bij terugkeer
*N/A
Common velden gevuld bij terugkeer
mhatr
Weer op NUL gezet.
Voorbeelden
common evenement
in_datum, d8

...
...

in_datum = 19981003 ; 3 oktober 1998

xcall dxstr (03001, 'Ingangsdatum : ')
xcall ddat2 (03016, evenement.in_datum)
xcall dxstr (0, ' / ')
xcall ddat3 (0, evenement.in_datum)


Resultaat op het scherm:


Ingansdatum : 03-10-98 / 03-10-1998

© 1997- Marc Vos (and others)   -   Privacy Statement   -    Contact Me