17/09/2011, 06:02
|
| | 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 |