[Modulo] Más sobre Date

[& eDu &]

Buenas, he creado un módulo basado en el aburrimiento de 'Erik' x'dd jeje

Código (vb) [Seleccionar] Expandir

' This module has been created based in a document for Erik
' #########################################################
' # How use the propiety Date                             #
' #########################################################
Dim fcha() As String
Dim mes As String

Function fecha()
fcha = Split(Date, "/")
Select Case fcha(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 = "Agostro"
Case "09"
mes = "Octubre"
Case "10"
mes = "Septiembre"
Case "11"
mes = "Noviembre"
Case "12"
mes = "Diciembre"
End Select
fecha = fcha(0) & "/" & mes & "/" & fcha(2)
End Function


Para llamarlo

Código (vb) [Seleccionar] Expandir

MsgBox fecha

[Novlucker]

Noto mucha gente aburrida  , pero bueno, quizás a quienes recién comienzan les pueden servir estas funciones, ahora una que convierta la fecha a formato "largo", algo como "Martes 9 de Diciembre de 2008"


P.D: ya ves, te pongo tarea pa' quitar el aburrimiento XD

[Karcrack]

Me parece que si que estais aburridos, y mucho ...

Porque yo en una linea lo he podido hacer

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    Debug.Print FormatearFecha(Now)
    Debug.Print FormatearFecha(Date)
    Debug.Print FormatearFecha("03/08/1992")
End Sub

Public Function FormatearFecha(ByVal sFecha As String) As String
    'Cualquier formato de fecha es valido
    '03/08/92
    '3/8/1992
    '03/8/92
    '....
    'Mas informacion sobre la funcion Format$() : http://www.apostate.com/vb-format-syntax
    FormatearFecha = Format$(sFecha, "dd/MMMM/yyyy")
End Function

Hacer el favor de visitar esta URL, asi aprendereis a usar esta gran funcion Format() 

Código [Seleccionar] Expandir

http://www.apostate.com/vb-format-syntax



NovLucker, creo que lo que tu dices tambien se puede hacer con Format ... lamento quitarte trabajo Edu

Saludos

[Novlucker]

Si, conozco la función, varias veces me ha sido útil sobre todo al trabajar con macros de excel 

NovLucker, creo que lo que tu dices tambien se puede hacer con Format ... lamento quitarte trabajo Edu

Si se puede 

Código (vb) [Seleccionar] Expandir

Msgbox Format(Date, "dd ""de"" mmmm ""de"" yyyy")
Ahora le has quitado el trabajo a & eDu &   

[& eDu &]

Me parece que si que estais aburridos, y mucho ...

Porque yo en una linea lo he podido hacer

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    Debug.Print FormatearFecha(Now)
    Debug.Print FormatearFecha(Date)
    Debug.Print FormatearFecha("03/08/1992")
End Sub

Public Function FormatearFecha(ByVal sFecha As String) As String
    'Cualquier formato de fecha es valido
    '03/08/92
    '3/8/1992
    '03/8/92
    '....
    'Mas informacion sobre la funcion Format$() : http://www.apostate.com/vb-format-syntax
    FormatearFecha = Format$(sFecha, "dd/MMMM/yyyy")
End Function

Hacer el favor de visitar esta URL, asi aprendereis a usar esta gran funcion Format() 

Código [Seleccionar] Expandir

http://www.apostate.com/vb-format-syntax



NovLucker, creo que lo que tu dices tambien se puede hacer con Format ... lamento quitarte trabajo Edu

Saludos

El aburrimiento hace que nos comamos la cabeza x'dd

[‭‭‭‭jackl007]

jajajaja pero si es el mismo que postee yo hace un rato; jaja
nose necesita un modulo para esto...

oh vaya! no pense ver esto...

Código (vb) [Seleccionar] Expandir


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


[& eDu &]

Solo lei el primero de Erik, sorry x'dd