Innerfuse Pascal Script III Copyright (C) 2000-2003 by Carlo Kok (ckWARNING: @carlo-kok.com)
procedure RegisterDateTimeLibrary_C(S: TIFPSPascalCompiler); |
procedure RegisterDateTimeLibrary_C(S: TIFPSPascalCompiler); |
Register the compiler pare of the Datetime library
TDateTime = double;
function EncodeDate(Year, Month, Day: Word): TDateTime;
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
function TryEncodeDate(Year, Month, Day: Word; out Date: TDateTime): Boolean;
function TryEncodeTime(Hour, Min, Sec, MSec: Word; out Time: TDateTime): Boolean;
procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word);
procedure DecodeTime(const DateTime: TDateTime; var Hour, Min, Sec, MSec: Word);
function DayOfWeek(const DateTime: TDateTime): Word;
function Date: TDateTime;
function Time: TDateTime;
function Now: TDateTime;
function DateTimeToUnix(D: TDateTime): Int64;
function UnixToDateTime(U: Int64): TDateTime;
function DateToStr(D: TDateTime): string;
function StrToDate(const s: string): TDateTime;
function FormatDateTime(const fmt: string; D: TDateTime): string;
Carlo Kok <ck@carlo-kok.com>