Como comparar o Mes atual com os registros?
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;
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;
Wgm8
Curtidas 0
Respostas
Andre Silveira
03/11/2004
use um While:
dadosQ.First;
while Not DadosQ.EOF do
begin
if IntMonth2(DadosQ.FieldByName(´VEN_DHCOMPRA´).AsDateTime) = IntMonth2(Date) then
begin
TotalMesGrupo := TotalMesGrupo + TotalMesGrupo;
end;
DadosQ.Next;
End;
dadosQ.First;
while Not DadosQ.EOF do
begin
if IntMonth2(DadosQ.FieldByName(´VEN_DHCOMPRA´).AsDateTime) = IntMonth2(Date) then
begin
TotalMesGrupo := TotalMesGrupo + TotalMesGrupo;
end;
DadosQ.Next;
End;
GOSTEI 0
Wgm8
03/11/2004
Mas o problema esta no if, quero saber o que há de errado no if
GOSTEI 0