Código Delphi [-] date1,date2:Tdate; num:integer; num:=trunc(date1-date2)
date1,date2:Tdate; num:integer; num:=trunc(date1-date2)