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