Descomponer un número
Hola Query, lo que pretendo es descomponer un número para luego poder colocar en un informe las unidades en un lugar, las decenas en otro, las centenas en otro, y así sucesivamente, espero haberme explicado bien; un saludo.
Respuesta de query
1
Supongo que la solución que te propongo te servirá para los informes y para los formularios (si lo quieres utilizar). Consiste en copiar la función que más abajo te indico en el módulo del informe donde quieras descomponer los números y luego introducir como origen del control de los cuadros de texto del informe una llamada a la función de la siguiente manera =Descomponer([CampoNumero], 0)
' Numero: número que se quiere descomponer
' unidad: 0-> unidades
' 1-> decenas
' 2-> centenas
' 3-> unidades de millar
' 4-> decenas de millar
' 5-> centenas de millar
' 6-> unidades de millón
Public Function Descomponer(ByVal Numero As Long, unidad As Integer) As String
Dim sNumero As String
Dim iLongitud As Integer
Dim sUnidad As String
sNumero = Str(Numero)
iLongitud = Len(sNumero)
If unidad + 1 > iLongitud Then
Descomponer = ""
Exit Function
End If
sUnidad = Mid(sNumero, iLongitud - unidad, 1)
Descomponer = sUnidad
End Function
Si no te sirve házmelo saber.
' Numero: número que se quiere descomponer
' unidad: 0-> unidades
' 1-> decenas
' 2-> centenas
' 3-> unidades de millar
' 4-> decenas de millar
' 5-> centenas de millar
' 6-> unidades de millón
Public Function Descomponer(ByVal Numero As Long, unidad As Integer) As String
Dim sNumero As String
Dim iLongitud As Integer
Dim sUnidad As String
sNumero = Str(Numero)
iLongitud = Len(sNumero)
If unidad + 1 > iLongitud Then
Descomponer = ""
Exit Function
End If
sUnidad = Mid(sNumero, iLongitud - unidad, 1)
Descomponer = sUnidad
End Function
Si no te sirve házmelo saber.
