E sempre bom ter opiniões diferentes, pois todos nós não temos a mesma
lógica.
Valew lista
Rodrigo
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Eduardo
Enviada em: quinta-feira, 16 de junho de 2005 11:17
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Variant type conversion
O problema e q um dos dois valores estão nulos e não com 0.
Basta colocar 0 na tabela ou testar primeiro antes de tentar calcular.
function iif(Condicao: boolean; Verdadeiro, Falso: variant): variant;
begin
if Condicao then
Result := Verdadeiro
else
Result := Falso;
end;
iif(DTM.tb_avan_soma.FieldByname( 'Soma' ).AsString = '', 0,
DTM.tb_avan_soma.FieldByname( 'Soma' ).Asfloat);
Eduardo
Ps.: espero ter ajudado.
----- Original Message -----
From: "eduardo.sic" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, June 16, 2005 10:22 AM
Subject: Re: [delphi-br] Variant type conversion
> que tal:
>
> Total.Caption := FormatFloat('###, ###,
> ###0.00',(DTM.tb_avan_soma.FieldByname( 'Soma' ).Asfloat -
> DTM.tb_avanc_debito.FieldByname('debito').asFloat ) );
>
>
>
>
>
> =================
>>De:"Rodrigo Mota" <[EMAIL PROTECTED]>
>>Para:<delphi-br@yahoogrupos.com.br>
>>Assunto:[delphi-br] Variant type conversion
>>
>>
>>Esta dando o erro EVariantError Invalid variant
>>type conversion
>>
>>Percebi o erro quando o resultado de soma é
>>vazio ou débito é vazio,
>>quando os dois não estão vazios o erro não
>>ocorre
>>Como procedo agora???
>>
>>Total.Caption := FormatFloat('###, ###,
>>###0.00',(DTM.tb_avan_soma.FieldValues['soma'])
>>-
>>-(DTM.tb_avanc_debito.FieldValues['debito']));
>>
>>Rodrigo
>>
>>
>>
>>[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/messa
>>ges
>>
>>Para falar com o moderador, envie um e-mail
>>para:
>> [EMAIL PROTECTED] ou
>>[EMAIL PROTECTED]
>>
>>Links do Yahoo! Grupos
>>
>> http://br.groups.yahoo.com/group/delphi-br/
>>
>>
>> http://br.yahoo.com/info/utos.html
>
>
>
>
>
> ____________________________________________________________________
>
>
>
> --
> <<<<< 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
>
>
>
>
>
>
>
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
--
<<<<< 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]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
<http://br.yahoo.com/info/utos.html> 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
