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
im').AsDateTime,queryRelHora.DataSetField.DataSet.FieldByName('ext_hrini').A
sDateTime);
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Rodrigo Mota
Enviada em: quinta-feira, 15 de setembro de 2005 10:44
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Erro Estranho DateTime
Galera tenho essa função, que retorna a diferença de hora e tal. Ela
funciona
function TRelfrmHoras.DifHora(Inicio, Fim: String): String;
{Retorna a diferença entre duas horas}
Var H1, H2, Total: TDateTime;
begin
H1 := StrToTime(Inicio);
H2 := StrToTime(Fim);
Total := H2 - H1;
Result := TimeToStr(Total);
end;
Estou usando ela no evento do quick rep BeforePrint
lblTempo.Caption :=
DifHora(queryRelHora.DataSetField.DataSet.FieldByName('ext_hrfim').Text,
queryRelHora.DataSetField.DataSet.FieldByName('ext_hrini').Text);
esta dando um Access Violation.....violento....estou usando a TSqlQuery
do Dbexpress e db SQLServer os dois campos
são Varchar(5)
quem puder ajudar...ja agradeço qq sugestão....
Rodrigo Mota
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
