RES: [delphi-br] Numero por extenso

Mon, 15 Jan 2007 05:35:31 -0800 

 

Pega ai um exemplo.

unit Ext;

interface

function extenso (valor: real): string;

 

implementation

 

uses

SysUtils,  Dialogs;

 

 

function extenso (valor: real): string;

var

Centavos, Centena, Milhar, Milhao, Texto, msg: string;

const

Unidades: array[1..9] of string = ('Um', 'Dois', 'Tres', 'Quatro', 'Cinco',

                                   'Seis', 'Sete', 'Oito', 'Nove');

Dez: array[1..9] of string = ('Onze', 'Doze', 'Treze', 'Quatorze', 'Quinze',

                              'Dezesseis', 'Dezessete', 'Dezoito',
'Dezenove');

Dezenas: array[1..9] of string = ('Dez', 'Vinte', 'Trinta', 'Quarenta',

                                  'Cinquenta', 'Sessenta', 'Setenta',

                                  'Oitenta', 'Noventa');

Centenas: array[1..9] of string = ('Cento', 'Duzentos', 'Trezentos',

                                   'Quatrocentos', 'Quinhentos',
'Seiscentos',

                                   'Setecentos', 'Oitocentos',
'Novecentos');

 

 

 

 

 

 

 

 

 

 

 

 

  _____  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Igor Alexandre
Enviada em: segunda-feira, 15 de janeiro de 2007 11:09
Para: Delphi-Br; Delphi-Total
Assunto: [delphi-br] Numero por extenso

 

Alguem sabe como retornar um numero por extenso. ex: 29 - Vinte e nove;

-- 

Igor Alexandre.

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]

Responder a