Código Delphi [-] label1.Caption:=inttostr(trunc(strtodate('05/05/2003')-strtodate('01/05/2003'))) ;
label1.Caption:=inttostr(trunc(strtodate('05/05/2003')-strtodate('01/05/2003'))) ;