Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Werkzeuge (https://www.delphipraxis.net/63-sonstige-werkzeuge/)
-   -   Fastreport und Extract(Year . . . (https://www.delphipraxis.net/185882-fastreport-und-extract-year.html)

HPB 15. Jul 2015 07:14

Fastreport und Extract(Year . . .
 
Guten Tag Delphianer,
ich möchte eine Liste mit Jubiläen in Fastreport ausgeben.
Dazu benutze ich folgenden Code:
Delphi-Quellcode:
procedure Memo9OnBeforePrint(Sender: TfrxComponent);
var
 pJahre: Integer;                                              
begin
 pJahre := Extract(Year from Current_Date) - Extract(year from <frxDBGeburtstagsListe."AUFGENOMMENAM">);
 Memo9.Text := Inttostr(pJahre) + '. Jubiläum';                                                                                                              
end
Beim Ausführen bekommen ich die Fehlermeldung: "Script error at 7:25:')' expected.
An Stelle 7:25 steht ja folgendes:' ' Also ein Leerzeichen.
Wieso an dieser Position eine ")" erwartet wird?
Auch ein ein Austauschen von "Current_Date" in "Date" bringt keinen Erfolg.
Die Fehlermeldung bleibt immer gleiche.

Kennt vielleicht Fastreport "extract" nicht??
Hat jemand schon einmal in Fastreport mit extract gearbeitet und kann einen Ratschlag geben?
Mit Gruß
HPB

mkinzler 15. Jul 2015 07:48

AW: Fastreport und Extract(Year . . .
 
Warum sollte Fastreport SQL verstehen? (EXTRACT ist ja eine SQL Funktion). Hier sollte DecodeDate() o.ä. helfen

alex517 15. Jul 2015 07:56

AW: Fastreport und Extract(Year . . .
 
Hi,

im PASCAL-Script musst du YearOf() verwenden.

HPB 15. Jul 2015 08:23

AW: Fastreport und Extract(Year . . .
 
Guten Tag Delhianer,
vielen Dank für Eure Hilfe.
Mit YearOf() hat es wunderbar funktioniert.
Aber auch mit DecodeDate() funktioniert es.
Ich hätte auch selber darauf kommen können.:oops:
Mit Gruß
HPB


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:58 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz