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)):
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
Aburrimiento v2:
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...
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...)
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:
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
Alee !! Que aburrimiento, arrays para poner una simple fecha jeje.
Si xD
parece que le agarro la mano al Split() :¬¬
Cita de: seba123neo en 10 Diciembre 2008, 00:21 AM
parece que le agarro la mano al Split() :¬¬
Cita de: seba123neo en 10 Diciembre 2008, 00:21 AM
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
No seria menos codigo de essta forma
DiaActual = Day(Now)
AnoActual = Year(Now)
MesActual = Month(Now)
Fecha = "Dia: " + CStr(DiaActual) + " Mes: " + CStr(MesActual) + " Año: " + CStr(AnoActual)
Cita de: Angeldj27 en 10 Diciembre 2008, 14:21 PM
No seria menos codigo de essta forma
DiaActual = Day(Now)
AnoActual = Year(Now)
MesActual = Month(Now)
Fecha = "Dia: " + CStr(DiaActual) + " Mes: " + CStr(MesActual) + " Año: " + CStr(AnoActual)
Menos codigo todavia:
Citarhttp://foro.elhacker.net/programacion_vb/modulo_mas_sobre_date-t237894.0.html;msg1136922#msg1136922
Saludos :D