[firebase-br] Duvidas em Update

[marcelo - teflamar]

            if 
(xquery1.fieldbyname(xquery1.Fields[c].fieldname).DataType=ftdate) and 
(funcao_ano(xquery1.fields[c].asdatetime)<>1899) then
                    Sheet.cells[x,c+1]:=xquery1.fields[c].asdatetime;

----- Original Message ----- 
From: "Fernanda Gonÿffffe7alves Bulhÿfffff5es" <fergonbu em yahoo.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Wednesday, September 26, 2007 11:18 AM
Subject: Re: [firebase-br] Duvidas em Update


Minha rotina de exportação para o excel está funcionando.... ela exporta 
normal... eu só queria que na célula aparecesse ao invés de 30/12/1899, 
simplesmente, em branco.
Segui seu exemplo, e não deu certo....

David Coelho <drcoelho em bol.com.br> escreveu:
>pq na verdade não é q a data seja nula no meu sistema,
>mas sim pq essa data é colocada mais pra frente, pq são lançamentos feitos
>por mês...

bom dia, Fernanda.
se estiver montando a planilha a partir de um dataset, experimente testar os
campos data, onde AsDate=0 ou use .Value

Exemplo:
if (dataset.Fields[0].DataType = ftDate) and (dataset.Fields[0].AsDateTime
<> 0) then
  Range['A1', 'A2'].Value := dataset.Fields[0].AsDateTime;

or simplesmente

Range['A1', 'A2'].Value := dataset.Fields[0].Value;





______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa

       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa


-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.488 / Virus Database: 269.13.30/1030 - Release Date: 25/9/2007 
08:02