Reducción
Publicado por Sah1d Ra (196 intervenciones) el 23/05/2025 19:07:58
Saludo a todos
Hace días tuve la necesidad de convertir el mes textual a mes numérico.
El resultado de ello fue el siguiente (18 líneas):
Mi pregunta y reto para quien lo desees abordar es el siguiente, que tanto puedes reducir ese código.
El código anterior lo logre reducir a 5 líneas.
Felices líneas de programa10n, los leo en algunos dos meses para comparar y compartir mi solución.
Hace días tuve la necesidad de convertir el mes textual a mes numérico.
El resultado de ello fue el siguiente (18 líneas):
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function iMes(vMes As String) As Integer
Select Case LCase(vMes)
Case "enero": iMes = 1
Case "febrero": iMes = 2
Case "marzo": iMes = 3
Case "abril": iMes = 4
Case "mayo": iMes = 5
Case "junio": iMes = 6
Case "julio": iMes = 7
Case "agosto": iMes = 8
Case "septiembre": iMes = 9
Case "octubre": iMes = 10
Case "noviembre": iMes = 11
Case "diciembre": iMes = 12
Case Else
iMes = 0End Select
End Function
Mi pregunta y reto para quien lo desees abordar es el siguiente, que tanto puedes reducir ese código.
El código anterior lo logre reducir a 5 líneas.
1
2
3
4
5
Public Function iMes(vMes As String) As Integer
'Linea 2'Linea 3'Linea 4End Function
Felices líneas de programa10n, los leo en algunos dos meses para comparar y compartir mi solución.
Valora esta pregunta
0