Buenas, he creado un módulo basado en el aburrimiento de 'Erik' x'dd jeje
' 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
MsgBox fecha
Noto mucha gente aburrida :xD, 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" :rolleyes:
P.D: ya ves, te pongo tarea pa' quitar el aburrimiento XD
Me parece que si que estais aburridos, y mucho :xD...
Porque yo en una linea lo he podido hacer >:D :xD
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() ;D ;D
http://www.apostate.com/vb-format-syntax
NovLucker, creo que lo que tu dices tambien se puede hacer con Format :rolleyes:... lamento quitarte trabajo Edu :xD
Saludos ;) ;)
Si, conozco la función, varias veces me ha sido útil sobre todo al trabajar con macros de excel :P
CitarNovLucker, creo que lo que tu dices tambien se puede hacer con Format :rolleyes:... lamento quitarte trabajo Edu :xD
Si se puede :-X
Msgbox Format(Date, "dd ""de"" mmmm ""de"" yyyy")Ahora le has quitado el trabajo a
& eDu & :¬¬ :xD
Cita de: Karcrack en 9 Diciembre 2008, 19:24 PM
Me parece que si que estais aburridos, y mucho :xD...
Porque yo en una linea lo he podido hacer >:D :xD
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() ;D ;D
http://www.apostate.com/vb-format-syntax
NovLucker, creo que lo que tu dices tambien se puede hacer con Format :rolleyes:... lamento quitarte trabajo Edu :xD
Saludos ;) ;)
El aburrimiento hace que nos comamos la cabeza x'dd
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...
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
Solo lei el primero de Erik, sorry x'dd