Ergebnis der Suchanfrage

• Forum: Neuen Beitrag zur Code-Library hinzufügen

  Re: Gregorianischer Tag - Gregorianisches Datum

    Delphi
    by Satty67, 18. Jul 2009
  Macht (hoffentlich) nichts anderes, aber verändert nicht den Parameter und vergleicht im Fehlerfall nicht immer beide Werte:
  function GregorToStr(n:longint):String;
  begin
  if (n >= 1) and (n <= 3074324) then
  Result := DateTimeToStr(n - 115859)
  else
  raise Exception.CreateFmt('GregorToStr(%d) - invalid n', )
  end;
  
  Nicht wirklich eine Verbesserung, fand es aber so schöner ...