código vb: Cómo cambiar cantidades numéricas a mayúsculas'Uppercase Const strN = "cero uno dos tres cuatro cinco seis siete ocho nueve" Const strG = "recoge cien mil billones" Const intN = "0123456789" Dim Zeroo_Count As Long 'Leer recuento cero Const privado ERROR_SUCCESS = 0 amperios Const privado ERROR_BADDB = 1009 amperios Const privado ERROR_BADKEY = 1010 amperios Const privado ERROR_ CANTWRITE = 1013amp; Const privada ERROR_OUTOFMEMORY = 14 amperios Const privado ERROR_INVALID_PARAMETER = 87 amperios Const privado ERROR_ACCESS_DENIED = 5 amperios Const privado ERROR_NO_MORE_ITEMS = 259 amperios Const privado ERROR_MORE_DATA = 234 amp; 1, 1 ) Función final Función privada GetG(ByVal G As Long) Como cadena Seleccionar caso G Caso 1 GetG = "" Caso 2, 6 GetG = Mid(strG, 1, 1) Caso 3, 7 GetG = Mid(strG, 2, 1) Caso 4, 8 GetG = Mid(strG, 3, 1) Caso 5 GetG = Mid(strG, 4, 1) Caso 9 GetG = Mid(strG, 5, 1) Fin Seleccionar Función final Función privada ReadLongNumber(ByVal LongX As String ) Como cadena Dim NumberX Como cadena Dim l As Long 'Longitud Dim m As Long 'Número de dígitos adicionales Dim c As Long 'Número de bucles Dim i As Long, j As Long 'Flag Dim CurN Como cadena NumberX = LongX l = Len (NumberX) Hacer hasta l lt; 9 m = l Mod 8 Si m = 0 Entonces m = 8 CurN = Left(NumberX, m) If ReadIntNumber(CurN) lt;
LongNumber = ReadLongNumber & ReadIntNumber(CurN) & "billion" Else ReadLongNumber = ReadLongNumber & "End If NumberX = Right (NumberX, Len(NumberX) - m) l = Len(NumberX) Loop ReadLongNumber = ReadLongNumber & ReadIntNumber( Número 2) = "10" Luego pellizca la cabeza de una pastilla ReadLongNumber = Right(ReadLongNumber, Len(ReadLongNumber) - 1) Mid(ReadLongNumber, 1, 1) = "pickup" End If Zeroo_Count = 0 Función final Función privada ReadIntNumber( ByVal NumberX As String) As String Dim l As Long 'Longitud Dim m As Long 'Número de dígitos adicionales Dim c As Long 'Número de bucles Dim i As Long, j As Long 'Flags Dim CurN As String Si Val(NumberX) = 0 Entonces ReadIntNumber = GetN(0): Salir de la función l = Len(NumberX) Si l gt 8 Entonces salir de la función m = l Mod 9 CurN = Right(NumberX, m) Para i = Len( CurN) A 1 Paso -1 Si GetN( Int(Mid(CurN, i, 1))) = "Cero" y Zeroo_Count = 1 Entonces si GetG(Len(CurN) - i 1) = "Diez mil" Entonces si (Not (Val(Left(CurN, Len( CurN) - 5)) = 0)) Entonces ReadIntNumber = GetG(Len(CurN) - i 1) & ReadIntNumber End If Else If GetN(Int(Mid(CurN, i, 1)) = "cero" Entonces ReadIntNumber = GetN (Int(Mid(CurN, i, 1)) amp; ReadIntNumber Si GetG(Len(CurN) - i 1) = "Diez mil" Entonces si (No (Val(Left(