|
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
|