DBR Delphi-Ecke

// Errechnen des Geburtstermins nach der erweiterten Naegele'schen Regel.
// Es kommen aber nur wenige Kinder (3,9%) direkt am errechneten Termin auf
// die Welt. 26,4% der Babys werden innerhalb einer Woche, und 66,6%
// innerhalb von 3 Wochen um den errechneten Geburtstermin geboren. Und
// 3,1% machen was sie wollen (z.B. Frühgeburten).

// Getestet mit D4 unter XP

function Geburtstermin(TagDerLetztenRegelblutung: TDate; 
  Zyklus: Integer = 28): TDate; 
begin 
  Result := TagDerLetztenRegelblutung + 7; 
  Result := incmonth(Result, -3); 
  Result := Result + Zyklus - 28; 
  Result := incmonth(Result, 12); 
end;


// Beispielaufruf  mit Regelbutung durchschnittlich alle 29 Tage 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  label1.caption := DateToStr(geburtstermin(StrToDate('17.11.2010'), 29)); 
end;