Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: EncodeDateTime mit Werten <1?

    Delphi
    by Helmi, 22. Okt 2006
  Ich denke, das Problem liegt in der Zeile von:
  
  ADay := DaysInAMonth(AYear, AMonth-1) + ADay;
  
  
  Ich hab AMonth = 2 gemacht und da passiert es, dass die Function "DaysInAMonth" als Montag die 0 erhält (laut Debugger).
  Dann ist ADay über 49000 und EncodeDate weiss nimmer was zu tun ist.
• Forum: Object-Pascal / Delphi-Language

  Re: EncodeDateTime mit Werten <1?

    Delphi
    by Helmi, 22. Okt 2006
  Hallo,
  
  ich hab deine Function mal ausprobiert, aber ohne dass ich eine Exception erhalten habe.
  
  Habs so aufgerufen:
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  ShowMessage(DateTimeToStr(EncodeDateTime0Based(2005, 3, -5)));
  end;