RE:No mostrar ceros
Publicado por
Carlos Andrés (1 intervención) el 12/01/2005 13:35:48
El sgte es un algoritmo en VB Access que resuelve tu problema:
--------------------------
Dim strCadenaBase As String, strCadenaNueva As String
strCadenaBase = "11100"
strCadenaNueva = ""
Do While Len(strCadenaBase) > 0
If Left(strCadenaBase, 1) <> "0" Then
strCadenaNueva = strCadenaNueva + Left(strCadenaBase, 1)
End If
strCadenaBase = Right(strCadenaBase, Len(strCadenaBase) - 1)
Loop
------------------------------------
Espero te sea de ayuda.
Carlos Andrés