[[duilioisola]]

Mirándolo nuevamente, creo que esta es la solución:

Código Delphi [-]
function MyWeekOfTheMonth(Date: TDate): Integer
var
   Meses : integer;
   FechaInicial : TDateTime;
   FechaAuxiliar : TDateTime;
begin
   FechaInicial := StrToDate('01/01/1900');        {es el 0 en DATEDIF y DATEADD - Supongo que será una fecha inicial}
   Meses := MonthsBetween(FechaInicial , Date);    {DATEDIF(month, 0, fecha_nac)}
   FechaAuxiliar := IncMonth(FechaInicial ,Meses); {DATEADD(month, diferencia, 0)}
   result := WeekOf(Date) - WheekOf(FechaAuxiliar) + 1;
end;