!tenho um relatorio no quick report

[leoprofessor 0]

Tenho um relatório no quickreport que mostra a soma dos campos na tabela Precipatacao no BANCO DE DADOS Paradox da seguinte forma com os seguintes campos:DataHora ---- Prp 5/11/2006 00:00 ---- 0,0025/11/2006 01:00 ---- 0,0025/11/2006 02:00 ---- 0,0025/11/2006 03:00 ---- 0,0025/11/2006 04:00 ---- 0,0025/11/2006 05:00 ---- 0,0025/11/2006 06:00 ---- 0,0025/11/2006 07:00 ---- 0,0025/11/2006 08:00 ---- 0,0025/11/2006 09:00 ---- 0,0025/11/2006 10:00 ---- 0,0025/11/2006 11:00 ---- 0,0025/11/2006 12:00 ---- 0,0025/11/2006 13:00 ---- 0,0025/11/2006 14:00 ---- 0,0025/11/2006 15:00 ---- 0,0025/11/2006 16:00 ---- 0,0025/11/2006 17:00 ---- 0,0025/11/2006 18:00 ---- 0,0025/11/2006 19:00 ---- 0,0025/11/2006 20:00 ---- 0,0025/11/2006 21:00 ---- 0,0025/11/2006 22:00 ---- 0,0025/11/2006 23:00 ---- 0,0026/11/2006 00:00 ---- 0,0036/11/2006 01:00 ---- 0,0036/11/2006 02:00 ---- 0,0036/11/2006 03:00 ---- 0,0036/11/2006 04:00 ---- 0,0036/11/2006 05:00 ---- 0,0036/11/2006 06:00 ---- 0,0036/11/2006 07:00 ---- 0,0036/11/2006 08:00 ---- 0,0036/11/2006 09:00 ---- 0,0036/11/2006 10:00 ---- 0,0036/11/2006 11:00 ---- 0,0036/11/2006 12:00 ---- 0,0036/11/2006 13:00 ---- 0,0036/11/2006 14:00 ---- 0,0036/11/2006 15:00 ---- 0,0036/11/2006 16:00 ---- 0,0036/11/2006 17:00 ---- 0,0036/11/2006 18:00 ---- 0,0036/11/2006 19:00 ---- 0,0036/11/2006 20:00 ---- 0,0036/11/2006 21:00 ---- 0,0036/11/2006 22:00 ---- 0,0036/11/2006 23:00 ---- 0,003no dia 5/11/2006 choveu 0,048 mm e no dia 6/11/2006 choveu 0,072. essa soma é gravada na tabela Estatistica no campo TotalPrecipitacao da seguinte forma:EstDataHora -- TotalPrecipitacao5/11/2006 -- 0,0486/11/2006 -- 0,072 e assim sucessivamente para todos os dias do mês. Como que eu faço para, somente na hora de mostrar o relatório, essa operação abaixo:(5/11/2006 -- 0,048) MENOS (5/11/2006 00:00 ---- 0,002) MAIS (6/11/2006 00:00 ---- 0,003)OU SEJApego o total de um dia e diminuo pela 00:00 desse dia e somo o registro 00:00 do dia seguinte. Esse será o valor que tenho que mostrar no relatório quickreport. ALGUEM PODE ME AJUDAR?CLIQUEI DUAS VEZES NO CAMPO DO RELATÓRIO QUE MOSTRA ISSO E POSTEI ABAIXO PRA VER SE FACILITA.procedure TRelResumoClimatologicoMensal01.QRDBText13Print(sender: TObject; var Value: String);beginend;end.ACHO QUE ESSA OPERAÇÃO DEVERÁ SER FEITA ENTRE O BEGIN -- END;POR FAVOR, ME AJUDEM ...MEU EMPREGO ESTA EM JOGO.

[leoprofessor 0]

AI GENTE, FUI DIRIMINDO O PROBLEMA E CHEGUEI AO PONTO ONDE É FEITO A CONTA TOTALÉ ASSIM:(*Precipitação Quantidade JANA*) If TbPrp.RecordCount> 0 then Begin If (TbPrpPrecipitacao.Value ='T') Then Begin FlagT:= 'T'; ExistePrp:= False; End Else If (TbPrpPrecipitacao.Value ='X') Then Begin PrpTotal:= 'X'; ExistePrp:= False; End Else If (TbPrpPrecipitacao.Value <>'T') And (TbPrpPrecipitacao.Value <>'X') And (TbPrpPrecipitacao.Value <>'000,0') then Begin ExistePrp:= True; End; If (ExistePrp) and (PrpTotal <> 'T') and (PrpTotal <> 'X') then Begin //É EXATAMENTE AQUI QUE ELE FAZ A CONTA //SO QUE AGORA EU PRECISO PEGAR O PRIMEIRO REGISTRO DE TbPrpPrecipitacao.Value //E ARMAZENAR NUMA VARIAVEL QUALQUER. PEGAR O PRIMEIRO REGISTRO DA DATA SEGUINTE A //ESSA QUE ESTA NO RECORDCOUNT E ARMAZERNAR EM OUTRA VARIAVEL QUALQUER PRA DEPOIS FAZER A CONTA QUE EU PRECISO. ALGUEM PODE ME AJUDAR A FAZER ISSO? PrpTotal:= FormatFloat('000.0',(StrToFloat(PrpTotal)) + (StrToFloat(TbPrpPrecipitacao.Value))); ExistePrp:= False; End; End;