Problema con DateTimePicker1

[Fat]

Tengo dos DateTimePicker1 necesito saber los días de diferencia entre una fecha y otra, por ejemplo entre 1/01/2006 y 1/02/2006 que me diga que la diferencia es 31

[bismarck_sierra]

Que tal

Sólo tienes que restar las fechas:

Código Delphi [-]
iDias:= Trunc(DateTimePicker1.Date - DateTimePicker2.Date);

Saludos
Bismarck

[Fat]

Código Delphi [-]
var
  a:Word;
begin
  a:=trunc(DateTimePicker1.Date - DateTimePicker2.Date);
  label1.Caption:= inttostr(a);

Y me devuelve este valor: 655355

[Fat]

Con este funciona

Código Delphi [-]
var
  Ano1,Mes1,Dia1,Ano2,Mes2,Dia2:Word;
begin
  DecodeDate(DateTimePicker1.DateTime,Ano1,Mes1,Dia1);
  DecodeDate(DateTimePicker2.DateTime,Ano2,Mes2,Dia2);
  label1.Caption:= inttostr(dia2-dia1);

de todas maneras si puedes dime como podria hacerlo a tu manera.

[ContraVeneno]

Fat, utiliza las etiquetas para encerrar tu código
se ve mejor y a todos nos ayuda a leer el código.

[Fat]

ok
Vale la sugerencia

Código Delphi [-]
var
  Ano1,Mes1,Dia1,Ano2,Mes2,Dia2:Word;
  a: integer;
begin
  DecodeDate(DateTimePicker1.DateTime,Ano1,Mes1,Dia1);
  DecodeDate(DateTimePicker2.DateTime,Ano2,Mes2,Dia2);

[Fat]

De todas formas voy a usar el de bismarck_sierra
que es menos complicado y eficas.
salu2

[bismarck_sierra]

Que tal

Sólo cambia el tipo de variable

Código Delphi [-]
var
  a: int64;  // Es el tipo que regresa la función Trunc
begin
  a:= Trunc(DateTimePicker1.Date - DateTimePicker2.Date);
  Label1.Caption:= IntToStr(a);

Saludos
Bismarck

[[maeyanes]]

Otra opción es usar la función DaysBetween de la unidad DateUtils:

Código Delphi [-]
function DaysBetween(const ANow: TDateTime; const AThen: TDateTime): Integer;


// Un ejemplo de uso:
var
  Days: Integer;

begin
  Days := DaysBetween(DateTimePicker1.Date, DateTimePicker2.Date);
end;

Saludos...

[Fat]

Esta está perfecta solo cambie el orden de los DateTimePicker para que me diera el valor que queria.

Código Delphi [-]
var
a: int64; // Es el tipo que regresa la función Trunc
begin

a:= Trunc(DateTimePicker2.Date - DateTimePicker1.Date);

Label1.Caption:= IntToStr(a);




Muchas Gracias por su ayuda como siempre