Comunidad PHPeros

Lenguajes => Visual Basic => Mensaje iniciado por: Erik en 09 de Diciembre de 2008, 10:20:42 am

Título: [Código] Fechas
Publicado por: Erik en 09 de Diciembre de 2008, 10:20:42 am

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]

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

Título: Re: [Código] Fechas
Publicado por: Erik en 09 de Diciembre de 2008, 10:20:58 am

Aburrimiento v2:

Código: (vb) [Seleccionar]

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...

Título: Re: [Código] Fechas
Publicado por: x.mara.x en 11 de Marzo de 2009, 03:59:01 am

sorry por reabrir tema pero as algo triste que al pobre no le responde nadie :( (XD) te doy karma en compenso de tu aburrimiento

Título: Re:[Código] Fechas
Publicado por: javipilo en 20 de Marzo de 2010, 17:41:54 pm

hola me sirvió mucho +1