function ShortToLongDateFormat(ADate: string): string; begin Result := FormatDateTime('dddddd', StrToDate(ADate)); end;
Function RtnDateDuJour(aDate: TDateTime): string;
Begin
Result := 'Nous sommes aujourd''hui le : ' + FormatDateTime('dddddd', aDate);
end;