fpc/docs/datutex/ex19.pp

Program Example19;

{ This program demonstrates the Tomorrow function }

Uses SysUtils,DateUtils;

Begin
  Writeln(FormatDateTime('"Today is" dd mmmm yyyy',Today));
  Writeln(FormatDateTime('"Tomorrow will be" dd mmmm yyyy',Tomorrow));
End.