Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: & eDu & en 9 Diciembre 2008, 17:51 PM

Título: [Modulo] Más sobre Date
Publicado por: & eDu & en 9 Diciembre 2008, 17:51 PM
Buenas, he creado un módulo basado en el aburrimiento de 'Erik' x'dd jeje

Código (vb) [Seleccionar]
' 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]
MsgBox fecha
Título: Re: [Modulo] Más sobre Date
Publicado por: Novlucker en 9 Diciembre 2008, 18:04 PM
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
Título: Re: [Modulo] Más sobre Date
Publicado por: 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

Código (vb) [Seleccionar]
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 ;) ;)
Título: Re: [Modulo] Más sobre Date
Publicado por: Novlucker en 9 Diciembre 2008, 19:37 PM
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
Código (vb) [Seleccionar]
Msgbox Format(Date, "dd ""de"" mmmm ""de"" yyyy")
Ahora le has quitado el trabajo a & eDu &  :¬¬  :xD
Título: Re: [Modulo] Más sobre Date
Publicado por: & eDu & en 9 Diciembre 2008, 19:45 PM
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

Código (vb) [Seleccionar]
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
Título: Re: [Modulo] Más sobre Date
Publicado por: ‭‭‭‭jackl007 en 9 Diciembre 2008, 20:43 PM
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]

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
Título: Re: [Modulo] Más sobre Date
Publicado por: & eDu & en 9 Diciembre 2008, 20:59 PM
Solo lei el primero de Erik, sorry x'dd