[Código] Fechas

[Erik#]

Bueno, mi aburrimiento cada dia es mas grande, y si estoy en mi casa "malo" y no voy al cole, aun más... (es coña, esos dias son los mejores xD)

Bueno, os dejo un código en el que separa la fecha en 3 partes, dia, mes, año... (Es de mi cosecha privada (mio)):

Código (vb) [Seleccionar] Expandir

Dim fechatotal As String
Dim dma() As String
fechatotal = Date
dma = Split(fechatotal, "/")
MsgBox "Dia: " & dma(0) & vbNewLine & "Mes: " & dma(1) & vbNewLine & "Año: " & dma(2), vbInformation, "Fecha: "


¿Se nota que volvi a instalar windows porque me obligaron? xD

[Erik#]

Aburrimiento v2:

Código (vb) [Seleccionar] Expandir

Dim fechatotal As String
Dim dma() As String
Dim tiempototal As String
Dim hms() As String
fechatotal = Date
tiempototal = Time
dma = Split(fechatotal, "/")
hms = Split(tiempototal, ":")
MsgBox "Dia: " & dma(0) & vbNewLine & "Mes: " & dma(1) & vbNewLine & "Año: " & dma(2), vbInformation, "Fecha: "
MsgBox "Hora: " & hms(0) & vbNewLine & "Minutos: " & hms(1) & vbNewLine & "Segundos: " & hms(2), vbInformation, "Hora: "


Ahora incluye hora minutos y segundos...

[‭‭‭‭jackl007]

Se que es un poquito largo, pero yo en mis proyectos uso modulos asi que tengo agregadas todas las funciones que me son mas utiles para trabajar, y construyo mis funciones en base a funciones ya hecho.
La funcion Frag tiene su historia de porque la hice asi; ya que existe una funcion muy parecida en Vb llamada split; asi que se podria adaptar el codigo a reducirlo mucho mas aun con esa funcion split o sino trabajando directamente con las cadenas (usando mid...)

Código (vb) [Seleccionar] Expandir


Private Function sFecha() As String
Dim Mes As String
Select Case Frag(Date, "/", 2)
    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 = Frag(Date, "/", 1) & " de " & Mes & " de " & Frag(Date, "/", 3)
End Function

Private Sub Form_Load()
MsgBox sFecha

End Sub
Public Function Frag(ByVal Cad As String, c As String, X As Integer) As String
Dim i, a As Integer
On Error Resume Next
For a = 1 To X
i = InStr(1, Cad, c)
If i = 0 Then
Frag = Cad
Else
Frag = Mid(Cad, 1, i - 1)
Cad = Mid(Cad, i + Len(c))
End If
Next a
End Function


Quedaria asi:

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

PD:
Esto es producto de mi aburrimiento:
http://foro.elhacker.net/programacion_vb/cubo_en_3d_girando_efecto_optico_sin_apis_explicacion-t235246.0.html

[& eDu &]

Alee !! Que aburrimiento, arrays para poner una simple fecha jeje.

[Erik#]

Si xD

[seba123neo]

parece que le agarro la mano al Split()  

[BlackZeroX]

parece que le agarro la mano al Split()  

parece que le agarro la mano al Split()  

yo antes de saber que existia Split usaba como dos o 3 bucles (for next) para generar lo que hace el split xP, obiamente cuando empese en esto de vb6

[Angeldj27]

No seria menos codigo de essta forma

Código [Seleccionar] Expandir


     DiaActual = Day(Now)
    AnoActual = Year(Now)
    MesActual = Month(Now)

Fecha = "Dia: " + CStr(DiaActual) + " Mes: " + CStr(MesActual) + " Año: " + CStr(AnoActual)


[Karcrack]

No seria menos codigo de essta forma

Código [Seleccionar] Expandir


     DiaActual = Day(Now)
    AnoActual = Year(Now)
    MesActual = Month(Now)

Fecha = "Dia: " + CStr(DiaActual) + " Mes: " + CStr(MesActual) + " Año: " + CStr(AnoActual)


Menos codigo todavia:

http://foro.elhacker.net/programacion_vb/modulo_mas_sobre_date-t237894.0.html;msg1136922#msg1136922

Saludos