Fórum Data por Extenso. #161325

function TForm_notafiscal.Extenso(valor: extended): string; var sValorInt,sValor,sBilh,sMilh,sMil,sCent,sCvos:String; function Cem( sVal:string ):string; const und:array[1..19] of string = ( ´Um´, ´Dois´,´Três´,´Quatro´,´Cinco´,´Seis´,´Sete´,´Oito´, ´Nove´,´Dez´,´Onze´,´Doze´,´Treze´,´Quatorze´,´Quinze´, ´Dezesseis´,´Dezesete´,´Dezoito´,´Dezenove´); dez:array[2..9] of string = (´Vinte´,´Trinta´,´Quarenta´,´Cinqüenta´,´Sessenta´,´Setenta´,´Oitenta´,´Noventa´); cen:array[1..9] of string = (´Cento´,´Duzentos´,´Trezentos´,´Quatrocentos´,´Quinhentos´,´Seiscentos´,´Setecentos´,´Oitocentos´,´Novecentos´); var u,d,c,du:integer; begin result:=´´; c:=strtoint(sVal[1]); d:=strtoint(sVal[2]); u:=strtoint(sVal[3]); du:=strtoint(sVal[2]+sVal[3]); if sVal=´100´ then result:= ´ Cem ´ else if (c>0) then result := cen[c]; if (c>0)and(du>0) then result:=result+´ e ´; if (d>1) then result := result + dez[d]; if (d>1)and(u>0) then result:=result+ ´ e ´+ und[u]; if (du<20)and(du>0) then result := result + und[ du ]; end; begin sValorInt:= formatfloat(´000000000000´,valor); sValor:= formatfloat(´000000000000.00´,valor); sBilh :=copy(sValor,1,3); sMilh :=copy(sValor,4,3); sMil :=copy(sValor,7,3); sCent :=copy(sValor,10,3); sCvos :=´0´+copy(sValor,14,2); Result:= trim(Cem( sBilh )); if sBilh=´001´ then Result:=Result+´ Bilhão, ´; if sBilh>´001´ then Result:=Result+´ Bilhões, ´; Result:=Result + trim(Cem( sMilh )); if sMilh=´001´ then Result:=Result+´ Milhão, ´; if sMilh>´001´ then Result:=Result+´ Milhões, ´; Result:=Result + trim(Cem( sMil )); if sMil >´000´ then begin if (sCvos=´000´) and (scent=´000´) then Result:=Result+´ Mil ´ else Result:=Result+´ Mil e ´; end; Result:=Result + trim(Cem( sCent )); if sValorInt=´000000000001´ then Result:=Result+´ Real ´ else Result:=Result+´ Reais ´; if sCvos=´001´ then Result:=Result +´ e ´ + trim(Cem( sCvos )) + ´ Centavo ´; if sCvos>´001´ then Result:=Result +´ e ´ + trim(Cem( sCvos )) + ´ Centavos ´; end;

Muito obrigado pela resposta.