Archief - [PROG]cobol datum in dd/mm/yyyy formaat

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
s

schop aars

Legacy Member
kheb dus problemen met datum in dd/mm/yyyy formaat te krijgen.
kheb al dag, maand en jaar apart kunnen verkrijgen maar hoe zet ik die dan weer samen in een variabele???
of is der ook een gemakkelijkere manier om dit op te lossen?
j

jodeman

Legacy Member
declaratie :
01 datum.
03 dag pic 9(2).
03 maand pic 9(2).
03 jaar pic 9(4).

voor invoer :
DISPLAY "Geef datum in (ddmmyyyy) : " ACCEPT datum

voor uitvoer :
DISPLAY dag "/" maand "/" jaar
s

schop aars

Legacy Member
mja nvm had het al gevonden
met string kunde blijkbaar al die dinges in ne string variabele zetten en tan weer moven
naar ne pic 9(2)/9(2)/9(4)

ik rule aja
j

jodeman

Legacy Member
Hmm nee, string en unstring zijn methoden in cobol, geen variabelen. Ge hebt alleen numerieke, alfanumerieke en alfabetische variabelen.
Met 'unstring' kunt ge die dingen in numerieke waarden zetten als je persé invoer a la : 10/11/1982 wilt hebben.

dus bv.
display "Geef datum in 'dd/mm/yyyy'" accept invoer (met invoer pic x(10))
unstring invoer delimited by "/" into dag maand jaar
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan