11 lines
308 B
Plaintext
11 lines
308 B
Plaintext
|
Interface;
|
||
|
|
|
||
|
|
Unit Clock(GetDat,SetDat,GetTim,SetTim);
|
||
|
|
|
||
|
|
Procedure GetDat(Vars Year,Month,Day:Integer);
|
||
|
|
Function SetDat(Year,Month,Day:Integer):Boolean;
|
||
|
|
Procedure GetTim(Vars Hours,Minutes,Seconds,Hundreds:Integer);
|
||
|
|
Function SetTim(Hours,Minutes,Seconds,Hundreds:Integer):Boolean;
|
||
|
|
|
||
|
|
End;
|