Comparando datas

Delphi

30/03/2004

Galera,

Não sei se alguém já postou aki mais vamo lá:

Estou tentando fazer um programinha de lembretes, o qual tenho que cadastrar dos lembretes em um banco de dados e usando um timer estou tentando a cada segundo comparar a data e hora do sistema com a data/hora que estão cadastrados no meu banco de dados só que não tô conseguindo de jeito nenhum...

Aí vai o código:

procedure TfrmAgenda.VerificaLembretes(data, hora: string);
var
     i: integer;
begin
     with ADOTLembretes do
     begin
          Open;
          for i := 0 to ADOTLembretes.FieldCount - 1 do
          begin
               if
                 (FieldValues[´Data´] >= data) and
                 (FieldValues[´Avisar´] = True) and
                 (FieldValues[´Executou´] = False) and
                 (FieldValues[´Hora´] >= hora)
               then
               begin
                    if frmLembrete = nil then
                       frmLembrete := TfrmLembrete.Create(Application);

                    frmLembrete.memLem.Lines.Add(FieldValues[´Lembrete´]);
                    frmLembrete.PassaCodigo(FieldValues[´Codigo´]);
                    frmLembrete.ShowModal;
               end;
          end;
          Close;
     end;
end;

.....


procedure TfrmAgenda.TMRLembretesTimer(Sender: TObject);
var
   data, hora, msg: string;
   i: integer;
begin
     hora := FormatDateTime(ShortTimeFormat, Time);
     data := FormatDateTime(ShortDateFormat, Date);

     VerificaLembretes(data, hora);
end;


Dados adicionais:

Banco de dados:
:arrow: Access 2000

Campos:
:arrow: Data tipo [b:f3e3a4f47c]Texto[/b:f3e3a4f47c]
:arrow: Hora tipo [b:f3e3a4f47c]Texto[/b:f3e3a4f47c]
:arrow: Executou tipo [b:f3e3a4f47c]Sim/Não[/b:f3e3a4f47c]
:arrow: Avisar tipo [b:f3e3a4f47c]Sim/Não[/b:f3e3a4f47c]


Os campos Data e Hora eram do tipo [b:f3e3a4f47c]Data/hora[/b:f3e3a4f47c] do Access só que como eu não consegui comparar daquele jeito mudei pra string e também não deu certo! O campo data eu defini também como [b:f3e3a4f47c]data abreviada[/b:f3e3a4f47c] e no campo hora coloquei [b:f3e3a4f47c]hora abreviada[/b:f3e3a4f47c]

O que acontece é que não aparece o formulário de lembrete de forma alguma e também qdo passa da data e horário não dá erro nem nada apenas o programa continua normal...


t+ :cry:


Mns

Mns

Curtidas 0
POSTAR