Formatação de Valores

Delphi

16/12/2003

Bom dia pessoal.

Seguinte:

Tenho uma tabela com um campo do tipo numeric(15,2). Preciso formatar de maneira que o valor final seja com 3 casas decimais e com 2, sem vírgula e com tamaho total de 14 dígitos (preencher os anteriores com 0).
Ex.:
Valor original: 740,35
Valor Formatado (3 casas): 000000000740350
Valor Formatado (2 casas): 000000000074035


Agradeço quem ajudar.


Netosdr

Netosdr

Curtidas 0

Respostas

Netosdr

Netosdr

16/12/2003

Utilizei o formatFloat mas só trouxe o valor antes da virgula:

FormatFloat(´00000000000000´, TabelaCampo.Value);

Valor original: 220.036,81
Valor resultado: 00000000220037


GOSTEI 0
Nigro

Nigro

16/12/2003

Você usou o formatfloat de forma correta, mas para retirtar a vírgula, antes, de usar o formatfloat, multiplique o valor, por 100. Me parece que você está fazendo transmissão de boletos, certo?:


GOSTEI 0
Netosdr

Netosdr

16/12/2003

Eae Nigro, valeu pela ajuda. Ainda não tinha pensado em fazer isso.

Estou fazendo o arquivo da DNF (Demonstrativo de Notas Fiscais) que é entrege à Receita Federal mensalmente.

Té +.


GOSTEI 0
POSTAR