Dátum – Pascal – Fórum – Programujte.com

Dá sa v pascale pracovavať s aktuálnym dátumom?

No jasně. Tenhle prográmek ti napíše aktuální datum. (klíčová je procedura GetDate)

uses  Dos;

const denstr:array[0..6]  of string[2]=('po','ut','st','ct','pa','so','ne');

      mesicstr:array[1..12]  of string[8]=('ledna','unora','brezna','dubna',

                                           'kvetna','cervna', 'cervence',

                                           'srpna','zari','rijna',

                                           'listopadu','prosince');

var rok,mesic,den,den_v_tydnu:word;



begin

GetDate(rok,mesic,den,den_v_tydnu);

WriteLn('Dneska je:');

WriteLn(denstr[den_v_tydnu],', ',den,'. ',mesicstr[mesic],' ',rok,'.');

readln;

end.

GetDate musí obsahovať aj den v týždni? pretože ak ho tam nepoužijem (nepotrebujem ho) vyhodí mi chybu:
Wrong number of parameters specified for call to "GetDate"

a ešte čo je to za dátovy typ word?

Word je celočíselná proměnná v rozsahu 0..65535 zabírající dva bajty paměti.
Jestli ti vadí, že musíš zadat právě typ word, a ne integer, a že GetData vyžaduje i parametr dne v týdnu, tak není nic jednoduššího, než proceduru GetData obalit do své procedury:

Procedure DejDatum(var rok,mesic,den:integer);

var r,m,d,t:word;

begin

GetDate(r,m,d,t);

rok:=r;

mesic:=m;

den:=d;

end;

nechám to tak ako si to napísal pôvodne tak je to dobre
toto som chcel podstate vedieť len zo zvedavosti... ;)