PDA

Ver la Versión Completa : todos los dias entre 2 fechas


Racso2006
10-11-2017, 13:11:43
Buenos dias y gracias de antemano.

e visto muchos temas indicando como calcular los dias entre dos fechas, pero no veo como calcular que dias hay entre dos fechas.

pongo un ejemplo:

si introducimo 28/11/2017 y 2/12/2017
tendria que sacarnos
28/11/2017
09/11/2017
30/11/2017
01/12/2017
02/12/2017

dichas fechas las introduzco con dos Tdateedit.

Casimiro Notevi
10-11-2017, 14:29:12
http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween

roman
10-11-2017, 15:40:30
Creo que Racso2006 se refiere a listar todos los días entre ambas fechas, no sólo a contar cuántos hay. Podría hacer algo así:


while DateTimePicker1.Date < DateTimePicker2.Date do
begin
DateTimePicker1.Date := DateUtils.IncDay(DateTimePicker1.Date, 1);
Memo1.Lines.Add(DateToStr(DateTimePicker1.Date));
end;


Ya sólo tendría que ajustar detalles dependiendo de si quiere incluir los extremos o no.

LineComment Saludos

Racso2006
10-11-2017, 15:55:47
casimiro lo que me has pasado es lo que digo que he visto muchos temas sobre ello.

roman, lo que me indicas me parece que es exactamente lo que deseo pero me puedes indicar que es el DateTimePicker? (perdon por mi ignoracia) ya que me indica que no esta declarado y no conozco esa funcion

roman
10-11-2017, 16:14:00
Bueno, el DateTimePicker es lo de menos; es un selector de fechas. Sustitúyelo por el TDateEdit que usas. La función IncDay está en la unidad DateUtils o System.DateUtils según la versión de Delphi que uses.

LineComment Saludos

mamcx
10-11-2017, 21:55:22
Si Delphi no tiene la utilidad, rehacerla es muy simple. Arranca de la fecha base y suma de a 1 dia, agrega a lista mientras no se mayor a la final.

Racso2006
13-11-2017, 11:43:05
roman, muchisimas gracias, ya funciona correctamente :D