minimo hubieras puesto algo en esa caja de texto... y te hubieras dado cuenta...
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Public Function sFecha() As String
Dim fecha() As String
fecha = Split(Date, "/")
Dim Mes As String
Select Case fecha(1)
Case "01": Mes = "Enero"
Case "02": Mes = "Febrero"
Case "03": Mes = "Marzo"
Case "04": Mes = "Abril"
Case "05": Mes = "Mayo"
Case "06": Mes = "Junio"
Case "07": Mes = "Julio"
Case "08": Mes = "Agosto"
Case "09": Mes = "Septiembre"
Case "10": Mes = "Octubre"
Case "11": Mes = "Noviembre"
Case "12": Mes = "Diciembre"
End Select
sFecha = fecha(0) & " de " & Mes & " de " & fecha(2)
End Function