FastReport Datum formatieren

[Union]

Und hier die Mischung aus beidem:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
   // Fastreport die Funktion mitteilen
   frxReport1.AddFunction('function MyDateTimeToStr(ADateTime : TDateTime) : string');
end;

function TForm1.frxReport1UserFunction(const MethodName: String;
  var Params: Variant): Variant;
var
   fs : TFormatSettings;
begin
   if Methodname = 'MYDATETIMETOSTR' then
   begin
      GetLocaleFormatSettings($0409, fs);
      result := FormatDateTime('ddd dd.mm.yyyy', Params[0], fs);
   end;
end;

Im Fastreport trägst Du dann folgendes in das Memo ein, um die Funktion aufzurufen (Achtung, Datumsformatierung löschen, da String zurückgegeben wird!):

Zitat von FastReport 4.0:

[MyDateTimeToStr(<Date>)]