16 lines
282 B
Plaintext
16 lines
282 B
Plaintext
program SetYear;
|
|
|
|
uses Dos;
|
|
|
|
var y,m,d,dow: word;
|
|
ec,ny: integer;
|
|
|
|
begin
|
|
GetDate(y,m,d,dow);
|
|
WriteLn('Datum im Computer: ',d,'.',m,'.',y);
|
|
Val(ParamStr(1),ny,ec);
|
|
SetDate(ny,m,d);
|
|
GetDate(y,m,d,dow);
|
|
WriteLn('Neues Datum : ',d,'.',m,'.',y);
|
|
end.
|