Question

How to localize date format in Pascal

Answer 1

program LocalizedDateFP;

{$mode objfpc}{$H+}

uses
  SysUtils;

var
  FS: TFormatSettings;
  Today: TDateTime;

begin
  // Load the system locale (regional settings)
  FS := DefaultFormatSettings;

  Today := Now;

  WriteLn('--- Using system locale ---');
  WriteLn('Short date : ', FormatDateTime(FS.ShortDateFormat, Today));
  WriteLn('Long date  : ', FormatDateTime(FS.LongDateFormat, Today));
  WriteLn('Time       : ', FormatDateTime(FS.LongTimeFormat, Today));
  WriteLn('Weekday    : ', FormatDateTime('dddd', Today));  // localized weekday
  WriteLn('Month name : ', FormatDateTime('mmmm', Today));  // localized month
end.





(*
run:

Short date : 19-4-26
Long date  : 19 April 2026
Time       : 08:38:30
Weekday    : Sunday
Month name : April

*)

 

70+ SQL courses for beginners and professionals