Codedesign

[negaH]

Delphi-Quellcode:

function IsValidDay(const Value: String): Boolean;
begin
  Result := StrToIntDef(Value, 0) in [1..31];
end;

function CalcJulianYear(Year: Word; Month: Word = 1; Day: Word = 1): Word;
begin
// falls CalcJulianYear eine "lowlevel" private Funktion ist
  Assert(Month in [1..12]);
  Assert(Day in [1..31]);
// falls CalcJulianYear eine "highlevel" globale Funktion ist
  if not (Month in [1..12]) then
    raise EConvertError.Create();
  if not (Day in [1..31]) then
    raise EConvertError.Create();
  
// hier die Berechnung aus der PDF, ich verstehe aber nicht was dort berechnet wird, 
// da die wichtigen Remarks fehlen !!?? :-)  
  
end;

Gruß hagen