08/02/2011, 20:36
|
| | | Fecha de Ingreso: abril-2010
Mensajes: 66
Antigüedad: 14 años Puntos: 4 | |
| Respuesta: Problema con funciones
Puedes Intentar asi
Código:
Public Function conv(ByVal value As Short) As String
Select Case value
Case 1 : Return "ENERO"
Case 2 : Return "FEBRERO"
Case 3 : Return "MARZO"
Case 4 : Return "ABRIL"
Case 5 : Return "MAYO"
Case 6 : Return "JUNIO"
Case 7 : Return "JULIO"
Case 8 : Return "AGOSTO"
Case 9 : Return "SEPTIEMBRE"
Case 10 : Return "OCTUBRE"
Case 11 : Return "NOVIEMBRE"
Case 12 : Return "DICIEMBRE"
case Else
Return "Opcion no valida. . ."
End Select
End Function
|