Fórum Como comparar o Mes atual com os registros? #256963

Quero somar os registros do mes atual comparando com o campo da tabela:
Mas esta que escrevi não tá dando certo?
Uso Oracle e Delphi 5 como posso obter melhor este resultado.


if IntMonth2(DadosQ.FieldByName(´VEN_DHCOMPRA´).AsDateTime) = IntMonth2(Date) then
begin
TotalMesGrupo := TotalMesGrupo + TotalMesGrupo;
end;