Classe OOP Número por Extenso e o reverso Extenso para Número - Classe OOP Number by Extended e or reverse Extended for Number

cl1 is ClasseOopNumeroExtenso

cl1.m_s_moeda_plural = "dolars"
cl1.m_s_moeda_singular = "dolar"
cl1.m_s_centavo_plural = "cents"
cl1.m_s_centavo_singular = "cent"
cl1.m_s_Simbolo = "US$"
xValor is numeric = EDT_Digite_o_Numero

EDT_Extenso_do_Número = "O valor de "+cl1.m_s_Simbolo+NumToString(xValor,"12.2fs")+ " é " + cl1.ValorExtenso(xValor)

Info("O valor de "+cl1.m_s_Simbolo+NumToString(xValor,"12.2fs")+" é ","",cl1.ValorExtenso(xValor))

Qualquer dúvida me ligue no +55 41 99949 1800

ESSA CLASSE FOI CEDIDA PELO SR MELLO