Rango de fechas

[JODELSA]

Hola a todos;

Tengo un rango de fecha y necesito sacar año, mes y los dias que hay de una a otra;


ejemplo : "fechainicio = 03/20/2003" y fechaFinal "04/23/2004"

resultado = 1 año, 1 mes y 3 dias

le agradezco al que me ayude...

Jose de los santos

[cso2000]

Que tal:

Primero le tienes que restar la fecha inicial a la fecha final

pon el en una variable tdatetime

y luego puedes utilizar la funcion de delphi

Decode date de la cual tienes una ayuda en delphi

espero que esto te sirva

Saludos

[cso2000]

La variable se llama DecodeDate yo escribi Decode Date

Saludos

[jhonny]

Ahora bien...

Se me ocurrre que debes de hacer algo asi:

Por ejemplo en el OnClick de un boton:

procedure Tform1.botonClick(sender :TObject);
var
   fecharesult :TDate;
   ano, mes, dia :Word;
begin
    fecharesult:=fechafinal-fechainicial;
    decodedate(fecharesult,ano,mes,dia);
    label1.caption:=inttostr(ano)+' Año, '+inttostr(mes)+
    ' mes, '+' y '+inttostr(dia)+ ' dias';
end;

//donde label1 es un TLabel

Y eso es todo

//Carambolas mientras escribia se me ha adelantado cso2000

[cso2000]

Retiro lo dicho esa operacion no sirve estoy buscando el ejemplo correcto espero no tardar demasiado


mil disculpas.

[jhonny]

Bueno cso2000, tal vez no te dio el resultado deseado debido a que haz dicho:

Primero le tienes que restar
la fecha inicial a la fecha final

Cuando en realidad es todo lo contrario, es final-inicial, pues final es mayor que inicial.

Ohhh disculpa cso2000 he mal interpretado tu mensaje...pues efectivamente no funciona

[jhonny]

tal vez con esto???

procedure Tform1.botonClick(sender :TObject);
var
ano1, mes1, dia1, ano2, mes2, dia2 :Word;
begin
decodedate(fechainicial,ano1,mes1,dia1);
decodedate(fechafinal,ano2,mes2,dia2);
label1.caption:=inttostr(ano2-ano1)+' Año, '+inttostr(mes2-mes1)+
' mes, '+' y '+inttostr(dia2-dia1)+ ' dias';
end;

[jhonny]

Si si si, a si si funciona, ahora si que funciono bien, con el segundo codigo, si me funciono bien ...

Ahora si espero te sirva de ayuda JODELSA

[cso2000]

Muy bien jhonny ya me estaba enbolando

y tu te viste muy eficiente

eso lo veo muy estimulante


Saludos a todos.