DateToStr Format

program Latihan87;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, sysutils
  { you can add units after this };

// Mencoba mengubah & menampilkan format Tanggal

begin



   // writeln(Format('Tanggal Saat Ini : %s', [LongDateFormat]));

   writeln(Format('Tanggal Saat Ini : %s', [DateToStr(Date)]));

   writeln('Tekan tombol ENTER untuk menutup');

   readln;


end.