Bom dia amigo...
Tenho três funções q desenvolvi aqui no trabalho, veja se te ajuda:
Function CalcTime(Const TempoInic,TempoFim : TdateTime): string;
var
Calc : real;
begin
Calc:=Tempoparareal(TimeToStr(TempoFim))-Tempoparareal(TimeToStr(TempoInic));
if Calc 0 then Calc:=Calc+24;
Pq vc não faz assim?
if (not queryRelHora.DataSetField.DataSet.FieldByName('ext_hrfim').isnull)
and (not queryRelHora.DataSetField.DataSet.FieldByName('ext_hrini').isnull)
then
lblTempo.Caption :=
IntToStr(HoursBetween(queryRelHora.DataSetField.DataSet.FieldByName('ext_hrf
Rodrigo,
Access Violation ocorre quando você tenta acessar um objeto que não está criado.
Muito provavelmente o DataSetField ou DataSet está sem associação.
Debuga a aplicação e me diga em que linha que ocorre o erro.
[]'s
Andreano Lanusse
System Engineer
Borland Latin America
[EMAIL
-feira, 15 de setembro de 2005 14:31
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Erro Estranho DateTime
Rodrigo,
Access Violation ocorre quando você tenta acessar um objeto que não está
criado.
Muito provavelmente o DataSetField ou DataSet está sem associação.
Debuga a aplicação e
Access Violation ocorre quando você tenta acessar um objeto
que não está criado.
Ou quando tenta acessar um objeto que já foi destruido.
--
Erick Sasse
www.ericksasse.com.br
___
Novo Yahoo! Messenger
5 matches
Mail list logo