Tema
:
cuantos domingos tiene un periodo
Ver Mensaje Individual
#
3
14-02-2005
[poliburro]
Miembro Premium
Registrado
: ago 2004
Ubicación
: México D.F
Posts
: 3.068
Reputación
:
24
pues asi me quedo
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;
poliburro
Ver Perfil
Encontrar Todos los Mensajes de poliburro