Código Delphi [-] cont := 0; while date1 < date2 do begin cont := cont + 1; date1 := date1+ 1; end;
cont := 0; while date1 < date2 do begin cont := cont + 1; date1 := date1+ 1; end;