[Casimiro Notevi]

Código Delphi [-]
var
  myDate : TDateTime;
  formattedDate : string;

begin
  myDate := StrToDate('29/02/2000');

  // Display using the default LongDateFormat
  DateTimeToString(formattedDate, 'dddddd', myDate);
  ShowMessage('29/02/2000 using  default = '+formattedDate);

  // Change the display formatting
  LongDateFormat := 'dddd dd of mmmm yyyy';
  DateTimeToString(formattedDate, 'dddddd', myDate);
  ShowMessage('29/02/2000 using override = '+formattedDate);
end;