Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); Var dIni,dFin:TDate; nDias:variant; begin dIni:=StrToDate('01/03/2005'); dFin:=Date; nDias:=dFin - dIni; ShowMessage(nDias); end;
procedure TForm1.Button1Click(Sender: TObject); Var dIni,dFin:TDate; nDias:variant; begin dIni:=StrToDate('01/03/2005'); dFin:=Date; nDias:=dFin - dIni; ShowMessage(nDias); end;