Public Function Num2Text(ByVal value As Double) As String
Select Case value
Case 0 : Num2Text = "CERO"
Case 1 : Num2Text = "UN"
Case 2 : Num2Text = "DOS"
Case 3 : Num2Text = "TRES"
Case 4 : Num2Text = "CUATRO"
Case 5 : Num2Text = "CINCO"
Case 6 : Num2Text = "SEIS"
Case 7 : Num2Text = "SIETE"
Case 8 : Num2Text = "OCHO"
Case 9 : Num2Text = "NUEVE"
Case 10 : Num2Text = "DIEZ"
Case 11 : Num2Text = "ONCE"
Case 12 : Num2Text = "DOCE"
Case 13 : Num2Text = "TRECE"
Case 14 : Num2Text = "CATORCE"
Case 15 : Num2Text = "QUINCE"
Case Is < 20 : Num2Text = "DIECI" & Num2Text(value – 10)
Case 20 : Num2Text = "VEINTE"
Case Is < 30 : Num2Text = "VEINTI" & Num2Text(value – 20)
Case 30 : Num2Text = "TREINTA"
Case 40 : Num2Text = "CUARENTA"
Case 50 : Num2Text = "CINCUENTA"
Case 60 : Num2Text = "SESENTA"
Case 70 : Num2Text = "SETENTA"
Case 80 : Num2Text = "OCHENTA"
Case 90 : Num2Text = "NOVENTA"
Case Is < 100 : Num2Text = Num2Text(Int(value \ 10) * 10) & " Y " & Num2Text(value Mod 10)
Case 100 : Num2Text = "CIEN"
Case Is < 200 : Num2Text = "CIENTO " & Num2Text(value – 100)
Case 200, 300, 400, 600, 800 : Num2Text = Num2Text(Int(value \ 100)) & "CIENTOS"
Case 500 : Num2Text = "QUINIENTOS"
Case 700 : Num2Text = "SETECIENTOS"
Case 900 : Num2Text = "NOVECIENTOS"
Case Is < 1000 : Num2Text = Num2Text(Int(value \ 100) * 100) & " " & Num2Text(value Mod 100)
Case 1000 : Num2Text = "MIL"
Case Is < 2000 : Num2Text = "MIL " & Num2Text(value Mod 1000)
Case Is < 1000000 : Num2Text = Num2Text(Int(value \ 1000)) & " MIL"
If value Mod 1000 Then Num2Text = Num2Text & " " & Num2Text(value Mod 1000)
Case 1000000 : Num2Text = "UN MILLON"
Case Is < 2000000 : Num2Text = "UN MILLON " & Num2Text(value Mod 1000000)
Case Is < 1000000000000.0# : Num2Text = Num2Text(Int(value / 1000000)) & " MILLONES "
If (value – Int(value / 1000000) * 1000000) Then Num2Text = Num2Text & " " & Num2Text(value – Int(value / 1000000) * 1000000)
Case 1000000000000.0# : Num2Text = "UN BILLON"
Case Is < 2000000000000.0# : Num2Text = "UN BILLON " & Num2Text(value – Int(value / 1000000000000.0#) * 1000000000000.0#)
Case Else : Num2Text = Num2Text(Int(value / 1000000000000.0#)) & " BILLONES"
If (value – Int(value / 1000000000000.0#) * 1000000000000.0#) Then Num2Text = Num2Text & " " & Num2Text(value – Int(value / 1000000000000.0#) * 1000000000000.0#)
End Select
End FunctionImports System
Public Class Test
Public Shared Sub Main()
Num2Text(120.5)
End Sub
End Class
UHVibGljIEZ1bmN0aW9uIE51bTJUZXh0KEJ5VmFsIHZhbHVlIEFzIERvdWJsZSkgQXMgU3RyaW5nClNlbGVjdCBDYXNlIHZhbHVlCkNhc2UgMCA6IE51bTJUZXh0ID0gIkNFUk8iCkNhc2UgMSA6IE51bTJUZXh0ID0gIlVOIgpDYXNlIDIgOiBOdW0yVGV4dCA9ICJET1MiCkNhc2UgMyA6IE51bTJUZXh0ID0gIlRSRVMiCkNhc2UgNCA6IE51bTJUZXh0ID0gIkNVQVRSTyIKQ2FzZSA1IDogTnVtMlRleHQgPSAiQ0lOQ08iCkNhc2UgNiA6IE51bTJUZXh0ID0gIlNFSVMiCkNhc2UgNyA6IE51bTJUZXh0ID0gIlNJRVRFIgpDYXNlIDggOiBOdW0yVGV4dCA9ICJPQ0hPIgpDYXNlIDkgOiBOdW0yVGV4dCA9ICJOVUVWRSIKQ2FzZSAxMCA6IE51bTJUZXh0ID0gIkRJRVoiCkNhc2UgMTEgOiBOdW0yVGV4dCA9ICJPTkNFIgpDYXNlIDEyIDogTnVtMlRleHQgPSAiRE9DRSIKQ2FzZSAxMyA6IE51bTJUZXh0ID0gIlRSRUNFIgpDYXNlIDE0IDogTnVtMlRleHQgPSAiQ0FUT1JDRSIKQ2FzZSAxNSA6IE51bTJUZXh0ID0gIlFVSU5DRSIKQ2FzZSBJcyA8IDIwIDogTnVtMlRleHQgPSAiRElFQ0kiICYgTnVtMlRleHQodmFsdWUg4oCTIDEwKQpDYXNlIDIwIDogTnVtMlRleHQgPSAiVkVJTlRFIgpDYXNlIElzIDwgMzAgOiBOdW0yVGV4dCA9ICJWRUlOVEkiICYgTnVtMlRleHQodmFsdWUg4oCTIDIwKQpDYXNlIDMwIDogTnVtMlRleHQgPSAiVFJFSU5UQSIKQ2FzZSA0MCA6IE51bTJUZXh0ID0gIkNVQVJFTlRBIgpDYXNlIDUwIDogTnVtMlRleHQgPSAiQ0lOQ1VFTlRBIgpDYXNlIDYwIDogTnVtMlRleHQgPSAiU0VTRU5UQSIKQ2FzZSA3MCA6IE51bTJUZXh0ID0gIlNFVEVOVEEiCkNhc2UgODAgOiBOdW0yVGV4dCA9ICJPQ0hFTlRBIgpDYXNlIDkwIDogTnVtMlRleHQgPSAiTk9WRU5UQSIKQ2FzZSBJcyA8IDEwMCA6IE51bTJUZXh0ID0gTnVtMlRleHQoSW50KHZhbHVlIFwgMTApICogMTApICYgIiBZICIgJiBOdW0yVGV4dCh2YWx1ZSBNb2QgMTApCkNhc2UgMTAwIDogTnVtMlRleHQgPSAiQ0lFTiIKQ2FzZSBJcyA8IDIwMCA6IE51bTJUZXh0ID0gIkNJRU5UTyAiICYgTnVtMlRleHQodmFsdWUg4oCTIDEwMCkKQ2FzZSAyMDAsIDMwMCwgNDAwLCA2MDAsIDgwMCA6IE51bTJUZXh0ID0gTnVtMlRleHQoSW50KHZhbHVlIFwgMTAwKSkgJiAiQ0lFTlRPUyIKQ2FzZSA1MDAgOiBOdW0yVGV4dCA9ICJRVUlOSUVOVE9TIgpDYXNlIDcwMCA6IE51bTJUZXh0ID0gIlNFVEVDSUVOVE9TIgpDYXNlIDkwMCA6IE51bTJUZXh0ID0gIk5PVkVDSUVOVE9TIgpDYXNlIElzIDwgMTAwMCA6IE51bTJUZXh0ID0gTnVtMlRleHQoSW50KHZhbHVlIFwgMTAwKSAqIDEwMCkgJiAiICIgJiBOdW0yVGV4dCh2YWx1ZSBNb2QgMTAwKQpDYXNlIDEwMDAgOiBOdW0yVGV4dCA9ICJNSUwiCkNhc2UgSXMgPCAyMDAwIDogTnVtMlRleHQgPSAiTUlMICIgJiBOdW0yVGV4dCh2YWx1ZSBNb2QgMTAwMCkKQ2FzZSBJcyA8IDEwMDAwMDAgOiBOdW0yVGV4dCA9IE51bTJUZXh0KEludCh2YWx1ZSBcIDEwMDApKSAmICIgTUlMIgpJZiB2YWx1ZSBNb2QgMTAwMCBUaGVuIE51bTJUZXh0ID0gTnVtMlRleHQgJiAiICIgJiBOdW0yVGV4dCh2YWx1ZSBNb2QgMTAwMCkKQ2FzZSAxMDAwMDAwIDogTnVtMlRleHQgPSAiVU4gTUlMTE9OIgpDYXNlIElzIDwgMjAwMDAwMCA6IE51bTJUZXh0ID0gIlVOIE1JTExPTiAiICYgTnVtMlRleHQodmFsdWUgTW9kIDEwMDAwMDApCkNhc2UgSXMgPCAxMDAwMDAwMDAwMDAwLjAjIDogTnVtMlRleHQgPSBOdW0yVGV4dChJbnQodmFsdWUgLyAxMDAwMDAwKSkgJiAiIE1JTExPTkVTICIKSWYgKHZhbHVlIOKAkyBJbnQodmFsdWUgLyAxMDAwMDAwKSAqIDEwMDAwMDApIFRoZW4gTnVtMlRleHQgPSBOdW0yVGV4dCAmICIgIiAmIE51bTJUZXh0KHZhbHVlIOKAkyBJbnQodmFsdWUgLyAxMDAwMDAwKSAqIDEwMDAwMDApCkNhc2UgMTAwMDAwMDAwMDAwMC4wIyA6IE51bTJUZXh0ID0gIlVOIEJJTExPTiIKQ2FzZSBJcyA8IDIwMDAwMDAwMDAwMDAuMCMgOiBOdW0yVGV4dCA9ICJVTiBCSUxMT04gIiAmIE51bTJUZXh0KHZhbHVlIOKAkyBJbnQodmFsdWUgLyAxMDAwMDAwMDAwMDAwLjAjKSAqIDEwMDAwMDAwMDAwMDAuMCMpCkNhc2UgRWxzZSA6IE51bTJUZXh0ID0gTnVtMlRleHQoSW50KHZhbHVlIC8gMTAwMDAwMDAwMDAwMC4wIykpICYgIiBCSUxMT05FUyIKSWYgKHZhbHVlIOKAkyBJbnQodmFsdWUgLyAxMDAwMDAwMDAwMDAwLjAjKSAqIDEwMDAwMDAwMDAwMDAuMCMpIFRoZW4gTnVtMlRleHQgPSBOdW0yVGV4dCAmICIgIiAmIE51bTJUZXh0KHZhbHVlIOKAkyBJbnQodmFsdWUgLyAxMDAwMDAwMDAwMDAwLjAjKSAqIDEwMDAwMDAwMDAwMDAuMCMpCkVuZCBTZWxlY3QKCkVuZCBGdW5jdGlvbkltcG9ydHMgU3lzdGVtCgpQdWJsaWMgQ2xhc3MgVGVzdAoJUHVibGljIFNoYXJlZCBTdWIgTWFpbigpCgkJTnVtMlRleHQoMTIwLjUpCglFbmQgU3ViCkVuZCBDbGFzcw==
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.
/home/U65UxM/prog.vb (1,17) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (2,7) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (3,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (4,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (5,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (6,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (7,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (8,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (9,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (10,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (11,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (12,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (13,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (14,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (15,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (16,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (17,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (18,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (19,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (19,52) : error VBNC30037: Symbol is not valid.
/home/U65UxM/prog.vb (20,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (21,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (21,53) : error VBNC30037: Symbol is not valid.
/home/U65UxM/prog.vb (22,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (23,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (24,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (25,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (26,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (27,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (28,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (29,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (30,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (31,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (31,55) : error VBNC30037: Symbol is not valid.
/home/U65UxM/prog.vb (32,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (33,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (34,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (35,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (36,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (37,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (38,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (39,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (40,3) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (41,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (42,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (43,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (44,3) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (44,11) : error VBNC30037: Symbol is not valid.
/home/U65UxM/prog.vb (45,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (46,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (46,71) : error VBNC30037: Symbol is not valid.
/home/U65UxM/prog.vb (47,5) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (48,3) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (48,11) : error VBNC30037: Symbol is not valid.
/home/U65UxM/prog.vb (49,11) : error VBNC30203: Identifier expected.
/home/U65UxM/prog.vb (51,20) : error VBNC30203: Identifier expected.
There were 56 errors and 0 warnings.
Compilation took 00:00:00.2802770