Cas a datum – Pascal – Fórum – Programujte.com

cavte neviete náhodou ako sa dá vypísať čas alebo dátum v pascale? dik za ochotu

program cas;

uses crt,dos;

var m,h,s,ms,r,me,d,dd: word;

begin

     clrscr;

     GetTime(h,m,s,ms);

     writeln(h,':',m,':',s);

     GetDate(r,me,d,dd);

     writeln(d,'.',me,'.',r);

     readln;

end.

To jozo0025 :
diky moc to som presne potreboval :smile2:

To jozo0025 : jenom drobná opravička: poslední parametr u Gettime je v setinách sekundy, ne v milisekundách.

To Mircosoft : veru mas pravdu! :smile2: