Seite 1 von 1
Jahreszahlen ändern
Verfasst: Mittwoch 29. Mai 2019, 11:04
von Wilfried Jansen
Hallo,
ich möchte in einem Report statt der in Schild angegebenen Jahreszahl für das Ende einer Ausbildung das Folgejahr angeben (also: statt Juli 2019 soll Juli 2020 stehen). Ich greife dabei in Schild auf der Individualseite I auf "voraussichtlicher Abschluss" zu.
Wie lässt sich das programmieren?
Re: Jahreszahlen ändern
Verfasst: Mittwoch 29. Mai 2019, 11:25
von Raffenberg
Hallo Herr Jansen,
Sie können z.B. im OnGetText Ereignis folgendes reinschreiben:
Code: Alles auswählen
var
y1,m1,d1: Integer;
begin
DecodeDate(StrToDate(Schueler['AbschlussDatum']),y1,m1,d1);
Text := IntToStr(y1+1);
end;
Re: Jahreszahlen ändern
Verfasst: Mittwoch 29. Mai 2019, 15:41
von Wilfried Jansen
Hallo, Herr Raffenberg!
Die Codierung funktioniert. Danke für die schnelle Hilfe.
Einen kleinen Schönheitsfehler gibt es allerdings:
Bei uns wird unter "voraussichtlicher Abschluss" neben dem Kalenderjahr auch ein Monat eingetragen. Der Monat wird in der geänderten Variante aber nicht mehr erwähnt, sodass ich den Monat (Juli) in den "Fließtext" eingefügt habe, damit "Juli 2021" (ff.) ausgegeben wird. Das kann bei Bildungsgängen, die nicht einem Jahresturnus unterliegen, allerdings zu Problemen führen:
var
y1,m1,d1: Integer;
begin
DecodeDate(StrToDate(Schueler['AbschlussDatum']),y1,m1,d1);
Text := 'Der Bildungsgang der Fachoberschule endet mit dem erfolgreichen Besuch der Klasse 12 (Vollzeit) voraussichtlich im Juli' + ' ' + IntToStr(y1+1) + '.';
end;
Geht dies auch so, dass der eingetragene Monat mit übernommen wird?
Re: Jahreszahlen ändern
Verfasst: Mittwoch 29. Mai 2019, 18:55
von Raffenberg
Hallo Herr Jansen,
dann können Sie diese Variante nehmen. Bei dieser kommen gar keine Variablen zum Einsatz:
Code: Alles auswählen
begin
Text := FormatDateTime('mmmm yyyy', StrToDate(Schueler['AbschlussDatum'])+365);
end;
Sofern man nur Monat und Jahr ausgeben möchte, ist +365 genau genug. Ansonsten müsste man ja Schaltjahre berücksichtigen.
http://docwiki.embarcadero.com/Librarie ... atDateTime
Re: Jahreszahlen ändern
Verfasst: Mittwoch 29. Mai 2019, 20:14
von Wilfried Jansen
Guten Abend, Herr Raffenberg!
Danke für die Hilfe. Die Variante klingt gut. Ich werde sie in Kürze ausprobieren.
Re: Jahreszahlen ändern
Verfasst: Donnerstag 30. Mai 2019, 08:38
von Wilfried Jansen
Hallo, Herr Raffenberg!
Die Variante funktioniert prima und ist letztlich sogar einfacher zu handhaben. Danke nochmals!