Código Delphi [-] if (daysBetween(now, DateTimePicker1.DateTime)<0) then begin MessageDlg('No puede asignar una fecha de montaje superior a la de hoy.', mtError, [mbOk], 0); Datetimepicker1.SetFocus; end
if (daysBetween(now, DateTimePicker1.DateTime)<0) then begin MessageDlg('No puede asignar una fecha de montaje superior a la de hoy.', mtError, [mbOk], 0); Datetimepicker1.SetFocus; end