Código Delphi [-] uses ...., DateUtils; procedure consultar(Desde,Hasta:Tdate); Begin Consulta.Close; consulta.Params.ParamByName['ValDesde']:=Desde; consulta.Params.ParamByName['ValHasta']:=IncDays(Hasta,1); consulta.Open; End;
uses ...., DateUtils; procedure consultar(Desde,Hasta:Tdate); Begin Consulta.Close; consulta.Params.ParamByName['ValDesde']:=Desde; consulta.Params.ParamByName['ValHasta']:=IncDays(Hasta,1); consulta.Open; End;
Código Delphi [-] try ProgramarMicro(80C52,'Intel',MnHex,True); except On Exception do MicroChip.IsPresent(True); end;
try ProgramarMicro(80C52,'Intel',MnHex,True); except On Exception do MicroChip.IsPresent(True); end;