Ver Mensaje Individual
  #123 (permalink)  
Antiguo 17/09/2011, 06:02
DanielImago
 
Fecha de Ingreso: septiembre-2011
Mensajes: 8
Antigüedad: 13 años, 1 mes
Puntos: 0
Respuesta: Biblioteca de Clases,Funciones y Sub-rutinas.

Algunas veces nos vienen querystrings que el usuario puede meter textos para explotar sitios, o una db que en un campo int admite nulos... cosas asi que hacen que las cuentas no cierren. La funcion Numero es mi caballito de batalla..

Esta emprolija el texto para que quede mas bonito.

Function Mayusculas(ByVal Texto)
strLetras = "abcdefghijklmnopqrstuvwxyzñàèìùòáéíóúí"
Texto = Lcase(Texto) & ""
ProximaMayuscula = True

For Mayusculas_t = 1 To Len(Texto)
strLetra = Mid(Texto, Mayusculas_t, 1)
If Instr(strLetras, strLetra) = 0 Then
ProximaMayuscula = True
Mayusculas = Mayusculas & strLetra
Else
If ProximaMayuscula = True Then
Mayusculas = Mayusculas & Ucase(strLetra)
Else
Mayusculas = Mayusculas & strLetra
End IF
ProximaMayuscula = False
End If
Next
End Function

'
'Funciones de Numeros
'
Function EsNumero(tmpNumero)
On Error Resume Next

EsNumero = False
'Saco cualquier espacio a los costados y me aseguro de que no sea Null
tmpNumero = Trim(tmpNumero & "")

'Si no esta vacio
If tmpNumero & "" <> "" Then
'Si no tiene espacios en el medio
If Instr(tmpNumero, " ") = 0 Then
'Ahora si podemos caer en el IsNumeric con seguridad
If IsNumeric(tmpNumero) Then
EsNumero = True
End IF
End IF
End IF
End Function

Function Numero(tmpNumero)
On Error Resume Next
'Igual que el EsNumero, pero devuelve el numero en lugar de True o False
'Si lo que se pasa no es un numero devuelve 0
Numero = 0
'Saco cualquier espacio a los costados y me aseguro de que no sea Null
tmpNumero = Trim(tmpNumero & "")

'Si no esta vacio
If tmpNumero & "" <> "" Then
'Si no tiene espacios en el medio
If Instr(tmpNumero, " ") = 0 Then
'Ahora si podemos caer en el IsNumeric con seguridad
If IsNumeric(tmpNumero) Then
Numero = tmpNumero
End IF
End IF
End IF
End Function