57d7291d92
- Fixed case of registered symbols using the case in Delphi sources
- Fixed formatting in method signatures
- put registration across multiple lines onto one line
"...GAMONSERV'
+'ER )');"
-> "...gamOnServer)');"
64 lines
1.8 KiB
ObjectPascal
64 lines
1.8 KiB
ObjectPascal
|
|
unit uPSR_dateutils;
|
|
{$I PascalScript.inc}
|
|
interface
|
|
uses
|
|
SysUtils, uPSRuntime;
|
|
|
|
|
|
|
|
procedure RegisterDateTimeLibrary_R(S: TPSExec);
|
|
|
|
implementation
|
|
|
|
function TryEncodeDate(Year, Month, Day: Word; var Date: TDateTime): Boolean;
|
|
begin
|
|
try
|
|
Date := EncodeDate(Year, Month, Day);
|
|
Result := true;
|
|
except
|
|
Result := false;
|
|
end;
|
|
end;
|
|
|
|
function TryEncodeTime(Hour, Min, Sec, MSec: Word; var Time: TDateTime): Boolean;
|
|
begin
|
|
try
|
|
Time := EncodeTime(hour, Min, Sec, MSec);
|
|
Result := true;
|
|
except
|
|
Result := false;
|
|
end;
|
|
end;
|
|
|
|
function DateTimeToUnix(D: TDateTime): Int64;
|
|
begin
|
|
Result := Round((D - 25569) * 86400);
|
|
end;
|
|
|
|
function UnixToDateTime(U: Int64): TDateTime;
|
|
begin
|
|
Result := U / 86400 + 25569;
|
|
end;
|
|
|
|
procedure RegisterDateTimeLibrary_R(S: TPSExec);
|
|
begin
|
|
S.RegisterDelphiFunction(@EncodeDate, 'EncodeDate', cdRegister);
|
|
S.RegisterDelphiFunction(@EncodeTime, 'EncodeTime', cdRegister);
|
|
S.RegisterDelphiFunction(@TryEncodeDate, 'TryEncodeDate', cdRegister);
|
|
S.RegisterDelphiFunction(@TryEncodeTime, 'TryEncodeTime', cdRegister);
|
|
S.RegisterDelphiFunction(@DecodeDate, 'DecodeDate', cdRegister);
|
|
S.RegisterDelphiFunction(@DecodeTime, 'DecodeTime', cdRegister);
|
|
S.RegisterDelphiFunction(@DayOfWeek, 'DayOfWeek', cdRegister);
|
|
S.RegisterDelphiFunction(@Date, 'Date', cdRegister);
|
|
S.RegisterDelphiFunction(@Time, 'Time', cdRegister);
|
|
S.RegisterDelphiFunction(@Now, 'Now', cdRegister);
|
|
S.RegisterDelphiFunction(@DateTimeToUnix, 'DateTimeToUnix', cdRegister);
|
|
S.RegisterDelphiFunction(@UnixToDateTime, 'UnixToDateTime', cdRegister);
|
|
S.RegisterDelphiFunction(@DateToStr, 'DateToStr', cdRegister);
|
|
S.RegisterDelphiFunction(@FormatDateTime, 'FormatDateTime', cdRegister);
|
|
S.RegisterDelphiFunction(@StrToDate, 'StrToDate', cdRegister);
|
|
end;
|
|
|
|
end.
|