Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Diferencia-Resta de Fechas (https://www.clubdelphi.com/foros/showthread.php?t=62455)

alonso.esparza 24-12-2008 19:22:26

Diferencia-Resta de Fechas
 
Hola que tal:

Tengo una duda, tengo una tabla con varios datos, los de mi interes son los que contienen fechas son dos, lo que quiero es que me reste o que me muestre le diferencia, en numero, de las dos fechas y tengo este codigo:

f1:= (ADOQuery1.Fields.Fields[3].Value); // este vale 08/11/2007
f2:= (ADOQuery1.Fields.Fields[4].Value); // este vale 16/11/2007
f3:= (f1 - f2); // y aqui en ves de mostrarme un 8 me muestra 22/12/1899

no se en que estoy mal o como interpretar el resultado, espero que me ayuden.

De antemano gracias.

PD. Que conste que ya busque, yo si busco antes de preguntar, ya utilize el DaysBetween, y la utileria del uses (Que de hecho nunca la pidio, jeje), y la que mas hay es para SQL asi que una disculpa, por estar tan verde JEJE

atte
Sergio Alonso Esparza

alonso.esparza 24-12-2008 19:53:42

jjJAJAJAJA, ya vi mi error, la variable f3 la tenia definida como TDateTime al igual que f1 y f2, jajaja, todo era cuestion de que definiera f3 como Integer y el DaysBetween Funciono de maravilla osea quedo asi:

var f1,f2:TDateTime;
f3:Integer;
begin
f1:= (ADOQuery1.Fields.Fields[3].Value);
f2:= (ADOQuery1.Fields.Fields[4].Value);
f3:= DaysBetween(ADOQuery1.Fields.Fields[3].Value,ADOQuery1.Fields.Fields[4].Value);
Label1.Caption:=DateToStr(f1);
Label2.Caption:=DateToStr(f2);
Label3.Caption:=IntToStr(f3);

JEJE

De todos modos Gracias, o si tiene otra manera de hacerlo, pues no esta demas, se acepta

ContraVeneno 24-12-2008 20:13:05

así de rápidos somos para solucionar problemas aquí, jejeje...

por cierto, tu avatar me distrae mucho... :D:cool:

alonso.esparza 24-12-2008 20:51:22

:D No Te Preocupes a mi tambien JEJE


La franja horaria es GMT +2. Ahora son las 19:13:16.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi