FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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. |
#2
|
||||
|
||||
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; Un Saludo. |
|
|
|