Datum autom. ausrechnen

[manfred_h]

Hallo zusammen

in meiner Anwendung verwende ich folgenden Code um von einem Datum "maxdate" ein paar Monate dazuzurechnen.
> (FieldByName('CS').Value * 30) // CS glein eine Anzahl von Monaten.

Leider besteht das Problem das dies ab und zu nicht geht. Mir ist nicht ganz klar wieso.

Delphi-Quellcode:

procedure TDM.main_nc_calc(Sender: TObject);
var maxdate  : string;
    d_accept : string;
begin
  with Q_tmp do
  begin
    SQL.Text := ('SELECT MAX( D_DATE ) MAX_OF_D_DATE, D_ACCEPTANCE FROM '+ sql_string_table_d +' WHERE' +
                 '(ID_AREA = '+''''+(''+id_value+''''+')')+
                 'GROUP BY D_ACCEPTANCE ORDER BY 1 DESC');
    ExecQuery;
    Close;
    d_accept := Q_tmp.FieldByName('D_ACCEPTANCE').AsString;
    maxdate  := Q_tmp.FieldByName('MAX_OF_D_DATE').AsString;
  end;
  if maxdate > '1' then
    with tmp do
    begin
      Close;
      SelectSQL.Clear;
      SelectSQL.Add (sql_string_table);
      AutoUpdateOptions.UpdateTableName := (table_name);
      Open;
    end;
    tmp.Open;
    Camps.Open;
    with tmp do
    begin
      Edit;
      FieldByName('NC').AsString := DateToStr(StrToDate(maxdate)+((FieldByName('CS').Value * 30)));
      FieldByName('ACCEPTANCE').AsString := d_accept;
      post;
    end;
end;

habt Ihr mir einen Tipp?

Manfred

[DeddyH]

Wieso nutzt Du nicht DateUtils (IncMonths oder so ähnlich, kann gerade nicht nachsehen). Und wieso hantierst Du da umständlich mit Strings herum?

[mkinzler]

Es gibt in FireBird Datumsfunktionen, entweder als UDF oder in neueren Versionen direkt.
Select DateAdd( <month, <Monate>, <Datumsfeld>) ... from <tabelle> ...;

[DeddyH]

Das ist natürlich noch besser, war mir komplett entfallen.

[SirThornberry]

Zitat:

Leider besteht das Problem das dies ab und zu nicht geht

Selbst meine Glaskugel verrät mit nicht was hinter der Aussage steckt.
Im Ernst. "geht nicht" ist keine besonder geeignete Fehlerbeschreibung wenn man Hilfe erwartet. Welcher Fehler wird dir denn angezeigt oder was soll passieren und was passiert tatsächlich?

[manfred_h]

Zitat von SirThornberry:

Zitat:

Leider besteht das Problem das dies ab und zu nicht geht

Selbst meine Glaskugel verrät mit nicht was hinter der Aussage steckt.
Im Ernst. "geht nicht" ist keine besonder geeignete Fehlerbeschreibung wenn man Hilfe erwartet. Welcher Fehler wird dir denn angezeigt oder was soll passieren und was passiert tatsächlich?

Das Problem ist das kein Fehler angezeit wird sondern einfach kein Resultat.
Werde aber die obigen Vorschläge versuchen.

Die Funktion
Select DateAdd( <month, <Monate>, <Datumsfeld>) ... from <tabelle> ...; sieht sehr interessat aus. Werde das mal ein wenig anschauen.
Besten Dank schon mal.

Shalom
Manfred

[manfred_h]

Danke Euch allen für die Hilfe.
Momentan habe ich es so gelöst:
FieldByName('NC').AsDateTime := IncMonth(maxdate, +(FieldByName('CS').Value)); @mkinzler Die Lösung von Dir finde ich sehr elegant und werde diese auch noch Testen.

Besten dank nochmals für Eure schnelle Hilfe !
Shalom
Manfred