Fijaros la diferencia de código en estos dos ejemplos:
Public Sub Form_Open()
Print "El día de hoy es " & DiaSemana1()
Print "El día de hoy es " & DiaSemana2()
End
Public Function DiaSemana1() As String
Dim dia As String
Select Case WeekDay(Now)
Case gb.Monday '1
dia = "lunes"
Case gb.Tuesday '2
dia = "martes"
Case gb.Wednesday '3
dia = "miercoles"
Case gb.Thursday '4
dia = "jueves"
Case gb.Friday '5
dia = "viernes"
Case gb.Saturday '6
dia = "sabado"
Case gb.Sunday '7
dia = "domingo"
End Select
Return dia
End
Public Function Diasemana2() As String
Dim dia As String
dia = Choose(WeekDay(Now), "lunes", "martes", "miercoles", "jueves", "viernes", "sabado", "domingo")
Return dia
End
Print "El día de hoy es " & DiaSemana1()
Print "El día de hoy es " & DiaSemana2()
End
Public Function DiaSemana1() As String
Dim dia As String
Select Case WeekDay(Now)
Case gb.Monday '1
dia = "lunes"
Case gb.Tuesday '2
dia = "martes"
Case gb.Wednesday '3
dia = "miercoles"
Case gb.Thursday '4
dia = "jueves"
Case gb.Friday '5
dia = "viernes"
Case gb.Saturday '6
dia = "sabado"
Case gb.Sunday '7
dia = "domingo"
End Select
Return dia
End
Public Function Diasemana2() As String
Dim dia As String
dia = Choose(WeekDay(Now), "lunes", "martes", "miercoles", "jueves", "viernes", "sabado", "domingo")
Return dia
End
En este caso es posible. Habrá en otros que no.Pero fijaros la simplificación de código y reducción de instrucciones.
Saludos
