Calculo de Fecha Probable de Parto (FPP) mediante Regla de Naegele

La Regla de Naegele es un método estandarizado de calcular la fecha prevista de parto para una gestación normal. Se llamó así en honor de Franz Karl Naegele (1778-1851), el obstetra alemán que la desarrolló. Fuente: http://es.wikipedia.org/wiki/Naegele

//FPP = FUM + 1 año + 7 días - 3 meses

&NeageleSumaAnos = AddYr(&FUM, 1)  //Sumamos 1 año
&NeageleSumaDias = &NeageleSumaAnos + 7  //Sumamos 7 dias
&NeageleRestaMeses = AddMth(&NeageleSumaDias, -3)  //Restamos 3 meses
&FPP = &NeageleRestaMeses  //Resultado



FUM = Fecha de Ultima Menstruación
FPP = Fecha Probable de Parto

Todas estas variables son de tipo Date:
&FUM
&FPP
&NeageleSumaAnos
&NeageleSumaDias
&NeageleRestaMeses