Foro de elhacker.net

Programación => 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
  1. ' This module has been created based in a document for Erik
  2. ' #########################################################
  3. ' # How use the propiety Date                             #
  4. ' #########################################################
  5. Dim fcha() As String
  6. Dim mes As String
  7.  
  8. Function fecha()
  9. fcha = Split(Date, "/")
  10. Select Case fcha(1)
  11. Case "01"
  12. mes = "Enero"
  13. Case "02"
  14. mes = "Febrero"
  15. Case "03"
  16. mes = "Marzo"
  17. Case "04"
  18. mes = "Abril"
  19. Case "05"
  20. mes = "Mayo"
  21. Case "06"
  22. mes = "Junio"
  23. Case "07"
  24. mes = "Julio"
  25. Case "08"
  26. mes = "Agostro"
  27. Case "09"
  28. mes = "Octubre"
  29. Case "10"
  30. mes = "Septiembre"
  31. Case "11"
  32. mes = "Noviembre"
  33. Case "12"
  34. mes = "Diciembre"
  35. End Select
  36. fecha = fcha(0) & "/" & mes & "/" & fcha(2)
  37. End Function
  38.  

Para llamarlo

Código
  1. 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
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4.     Debug.Print FormatearFecha(Now)
  5.     Debug.Print FormatearFecha(Date)
  6.     Debug.Print FormatearFecha("03/08/1992")
  7. End Sub
  8.  
  9. Public Function FormatearFecha(ByVal sFecha As String) As String
  10.     'Cualquier formato de fecha es valido
  11.     '03/08/92
  12.     '3/8/1992
  13.     '03/8/92
  14.     '....
  15.     'Mas informacion sobre la funcion Format$() : http://www.apostate.com/vb-format-syntax
  16.     FormatearFecha = Format$(sFecha, "dd/MMMM/yyyy")
  17. End Function

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

Código:
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

Citar
NovLucker, creo que lo que tu dices tambien se puede hacer con Format :rolleyes:... lamento quitarte trabajo Edu :xD
Si se puede  :-X
Código
  1. 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
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4.     Debug.Print FormatearFecha(Now)
  5.     Debug.Print FormatearFecha(Date)
  6.     Debug.Print FormatearFecha("03/08/1992")
  7. End Sub
  8.  
  9. Public Function FormatearFecha(ByVal sFecha As String) As String
  10.     'Cualquier formato de fecha es valido
  11.     '03/08/92
  12.     '3/8/1992
  13.     '03/8/92
  14.     '....
  15.     'Mas informacion sobre la funcion Format$() : http://www.apostate.com/vb-format-syntax
  16.     FormatearFecha = Format$(sFecha, "dd/MMMM/yyyy")
  17. End Function

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

Código:
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
  1. Public Function sFecha() As String
  2. Dim fecha() As String
  3. fecha = Split(Date, "/")
  4.  
  5. Dim Mes As String
  6. Select Case fecha(1)
  7.     Case "01": Mes = "Enero"
  8.     Case "02": Mes = "Febrero"
  9.     Case "03": Mes = "Marzo"
  10.     Case "04": Mes = "Abril"
  11.     Case "05": Mes = "Mayo"
  12.     Case "06": Mes = "Junio"
  13.     Case "07": Mes = "Julio"
  14.     Case "08": Mes = "Agosto"
  15.     Case "09": Mes = "Septiembre"
  16.     Case "10": Mes = "Octubre"
  17.     Case "11": Mes = "Noviembre"
  18.     Case "12": Mes = "Diciembre"
  19. End Select
  20. sFecha = fecha(0) & " de " & Mes & " de " & fecha(2)
  21. End Function
  22.  

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


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines