22/12/2005, 17:22
|
 | | | Fecha de Ingreso: septiembre-2005
Mensajes: 231
Antigüedad: 19 años, 7 meses Puntos: 0 | |
| Function Recorta(Texto)
MaxLetras = 10
If Len(Texto) > MaxLetras Then
Texto = Mid(Texto, 1, MaxLetras)
Texto = Texto & "..."
End If
Recorta = Texto
End Function
Recorta (variable)
Este el el codigo espero te sirva lo revice y esta bien |