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