ScriptCore3.Date

 function Date: TDateTime
 Result: Current Date (encoded)

Description

This function will return TDateTime representing current Date (not including time)

Example

var
  curr: TDateTime;

begin
  curr := Date();
  WriteLn(FormatFloat('#0',curr)+' days have passed since 1899-12-30');
  WriteLn('This means it''s '+FormatDateTime('YYYY-mm-DD',curr));
end.