cuantos domingos tiene un periodo

[[poliburro]]

Pues tengo problemas para sacar el algoritmo que de un periodo dado me retorne el numero de domingos que hay en ese periodo.

Si alguien me pudiera hechar la mano gracias

[delphi.com.ar]

Podrías utilizar WeeksBetween o DaysBetween entre las dos fecha, y dependiendo la posición en la semana de las fechas será un domingo menos o no.

Saludos!

[[poliburro]]

Function GetSundays(IniDate: TDateTime; EndDate: TDateTime): Integer;
Var
Sundays: Integer;
Begin
Sundays := WeeksBetween(IniDate,EndDate);
If DayOfWeek(EndDate) = 1 Then Result := SunDays + 1
Else Result := SunDays;
End;

[jafl1965]

Y si tu período también empieza el domingo? Debes validar eso también, porque por ejemplo:
Entre el 6 y el 27 de febrero hay 4 domingos y con tu función devuelve 3. Debes incluir ambos extremos, a no ser, claro, que tus períodos no empiecen nunca un domingo...

[[poliburro]]

mil gracias por la observacion.

[[poliburro]]

asi quedo finalmente

Function GetSundays(IniDate: TDateTime; EndDate: TDateTime): Integer;
Var
Sundays: Integer;
Begin
Sundays := WeeksBetween(IniDate,EndDate);
If DayOfWeek(IniDate) = 1 then Sundays := Sundays + 1;
If DayOfWeek(EndDate) = 1 Then Sundays := SunDays + 1;
Result := SunDays;
End;