comparando dateTime
19/01/2013
0
Evandro Viana
Posts
21/01/2013
Bruno Leandro
var
Data: TDateTime;
Ano,Mes,Dia,Hora,Minuto,Segundo: Integer;
begin
Ano := 2012;
Mes := 1;
Dia := 1;
Hora := 10;
Minuto := 1;
Segundo := 10;
Data := EncodeDateTime(Ano,Mes,Dia,Hora,Minuto,Segundo);
Qry.Locate( 'Campo',Data, [] );
22/01/2013
Evandro Viana
23/01/2013
Bruno Leandro
23/01/2013
Evandro Viana
tentei fazer o seguinte
procedure TFDadosAgenda.DTPHoraInicialExit(Sender: TObject);
var tempo01, tempo02 :TDateTime;
begin
tempo01 := FViewAgenda.CDSAgendix.FieldByName('HORARIOINICIALAGENDA').AsDateTime;
tempo02 := DTPHoraInicial.Time;
if TimeToStr(tempo01) = TimeToStr(tempo02)then
begin
ShowMessage(''Horário já agendado'');
end;
end;
Obs: Só consegue pegar o primeiro valor,,ele nao varre todos os valores...como eu posso ajeitar?
23/01/2013
Evandro Viana
Clique aqui para fazer login e interagir na Comunidade :)