codigo Visual Basic para eliminar digito

Aquí te pongo un ejemplo si los valores son de tipo Long.
Por ejemplo QuitarDigitosDerecha(12345,3) te devolverá
12
QuitarDigitosDerecha(12345,1) te devolverá
1234
________________________________________

Public Function QuitarDigitosDerecha( _
ByVal Valor As Long, _
Caracteres As Long _
) As Long
Dim strvalor As String
strvalor = CStr(Valor)
strvalor = ElimarCaracteresDerecha(Valor, Caracteres)
QuitarDigitosDerecha = CLng(strvalor)
End Function

Public Function ElimarCaracteresDerecha( _
ByVal Cadena As String, _
Caracteres As Long _
) As String
Dim lngCadena As Long
lngCadena = Len(Cadena)
If Caracteres >= 0 And lngCadena > Caracteres Then
ElimarCaracteresDerecha = Left(Cadena, lngCadena - Caracteres)
Else
ElimarCaracteresDerecha = ""
End If
End Function

________________________________________

Para otros tipos sería fácil su ajuste


Saludos desde la calle Estafeta de Pamplona:

Eduardo Olaz
Microsoft [MVP] Access

eduardoALGARROBAolaz.net
ALGARROBA = @


"Rafa" escribió en el mensaje
news:

tengo una columna con muchos registros. en estos momentos lo tengo en
excel.quiero eliminar el ultimo digito de todos los registros. cual es
el codigo para hacer esto con visual basic?
gracias
Rafa