Foros Club Delphi - Contar dias de la semana entre fechas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Contar dias de la semana entre fechas (https://www.clubdelphi.com/foros/showthread.php?t=3377)

lolobs

04-09-2003 13:32:43

Contar dias de la semana entre fechas

Hola a todos!
Me gustaria saber cómo puedo saber cuantos lunes hay entre un rango de fechas. Por ejemplo,cuantos lunes hay entre el 1/9/2003 y el 14/9/2003.
Existe alguna función que me devuelva eso?.
Utilizo Delphi 7.:confused:

marcoszorrilla

04-09-2003 16:11:24

No me consta la existencia de dicha función, pero puedes probar con esta idea:

Código:

procedure TForm1.Button1Click(Sender: TObject);

var

dIni:Tdate;

dFin:Tdate;

nDias:Integer;

begin

dIni:=date - 3;

dFin:=date + 29;

nDias:=0;



 While dIni <= dfin do

 begin





   if FormatDateTime('ddd',dIni) = 'lun' then

   nDias:= nDias + 1;



 dIni:= dIni +1;



 end;



 ShowMessage('Hay '+IntToStr(nDias)+' lunes');

end;

También puedes utilizar la función DayOfWeek.

Un Saludo.

La franja horaria es GMT +2. Ahora son las 15:52:07.