cuantos domingos tiene un periodo

[[Lepe]]

....Esto.... si tiene 3 domingos, fijo que también tiene 3 sábados
Aunque existe el caso especial: habiendo 1 domingo, tiene 2 sábados

No es nada difícil hacer esa rutina, mira un calendario, enseguida lo verás.

Saludos

[thelibmx]

mmm, estaba viendo esa funcion y parece ser que en periodos mayores a una semana funciona bien, pero no funciona cuando es menos de una semana, por ejemplo si ponemos 08/06/2007 y 11/06/2007 el resultado que arroja es 0, y moviendo las fechas siempre y cuando sea menos de 7 dias el resultado sigue siendo 0 sabiendo que hay un domingo de por medio q no cuenta.

Supongo que esto es por que la funcion cuenta las semanas que hay en ese rango y no los dias en especifico, alguna sugerencia para podertomar en cuenta ese detalle...

¿ Existira alguna funcion que te devuelva cuantos dias domingos o lunes o martes etc... existen en un periodo de fechas ? ¿?

Seria bueno que existiera algo como WeeksBetween() pero de dias no?.. creo que seria asi SundaysBetween() jeje je.. pero creo que no existe jaja, si alguien conoce algo parecido seria muy bueno buen dia!!

[[egostar]]

Me tome la libertad de modificar la rutina de poliburro con sabados y domingos, además te recomiendo que leas la ayuda de Delphi sobre el manejo de fechas.

Código Delphi [-]
function TForm1.GetSundays(IniDate: TDateTime; EndDate: TDateTime): Integer;
var
  Sundays: Integer;
  i,Dias : Integer;
begin
  Sundays := 0;
  Dias := DaysBetween(IniDate,EndDate);
  for I := 0 to dias - 1 do begin
      If DayOfWeek(IniDate+i) = 1 then Sundays := Sundays + 1;
      If DayOfWeek(IniDate+i) = 7 then Sundays := Sundays + 1;
  end;
  Result := SunDays;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ShowMessage(inttostr(GetSundays(strtodate('01/05/2007'),strtodate('30/06/2007'))));
end;

Salud OS.

[thelibmx]

muy buena tu funcion, yo tambien modifique un poco el codigo y lo adapte a lo que yo queria, que es contar los sabados y domingos de un periodo de fechas, les dejo el codigo para que lo chequen y me den sus sugerencias para mejorarlo o acortarlo je je

function cuentasabadosydomingos(fechaInicial:Tdatetime;fechafinal:Tdatetime):Integer;
var
Dias:Integer;
e,c:integer;
totaldominsaba:integer;
begin
Dias := Trunc (fechafinal) - Trunc (fechainicial);
dias:=dias+1;
totaldominsaba:=0;
c:=(Dias-1);
for e:=0 to c do
begin
if (DayOfTheWeek(fechaInicial)=6) or(DayOfTheWeek(fechaInicial)=7) then
begin totaldominsaba:=totaldominsaba+1;
end; fechaInicial:=IncDay(fechaInicial,1);
end;cuentasabadosydomingos:=totaldominsaba;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
e3.Text:=inttostr(cuentasabadosydomingos(DateTimePicker1.date,DateTimePicker2.date));
end;

[[egostar]]

Hola thelibmx, en esa rutina estas contando viernes y sabados.

Los dias se cuentan de 1 a 7 comenzando en Domingo.

Salud OS.

[thelibmx]

Empezado por egostar

Hola thelibmx, en esa rutina estas contando viernes y sabados.

Los dias se cuentan de 1 a 7 comenzando en Domingo.

Salud OS.

creo que no entendi el comentario o el error, segun las pruebas que hice, sabado vale 6 y domingo 7, entonces cada que hay un sabado o domingo suma 1, podrias explicarte un poco, o tal ves tuviste tu algun error, por que incluso cuando selecciono alguna fecha en viernes, mi resultado es 0, ¿?..

[[egostar]]

Cierto, es que estas usando la función DayoftheWeek, la cual efectivamente, toma los valores de 1 a 7 comenzando en Lunes. Yo estoy usando DayofWeek, por eso la confusión.

Aqui te pongo la ayuda de Delphi

Empezado por Ayuda Delphi

DayOfWeek returns the day of the week of the specified date as an integer between 1 and 7, where Sunday is the first day of the week and Saturday is the seventh.

Note:
DayOfWeek is not compliant with the ISO 8601 standard, which defines Monday as the first day of the week. For an ISO 8601 compliant version, use the DayOfTheWeek function instead.

Salud OS.