Problema con DateTimePicker1

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