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