Separar la Fecha en Intervalos VB 6.0

Separar la Fecha en Intervalos

Para Separar la fecha en intervalos usando un guion usaremos los comandos Day(), el comando Month() y el comando Year().

Este tipo de técnica es muy empleado cuando trabajamos con MSQL o cuando queremos invertir el orden o posición de la fecha

Fecha = Day(Date) & "-" & Month(Date) & "-" & Year(Date)

La palabra reservada Date nos devuelve la fecha del momento según el formato de nuestro pc, seria algo así: 06/06/2017 si la asignamos a un mensaje.

Private Sub Command1_Click()
MsgBox Date
End Sub

fecha-en-vb6-300x249 Separar la Fecha en Intervalos VB 6.0

El comando Day() nos devuelve el día actual si le pasamos el parámetro Date

El comando Month() nos devuelve el mes actual si le pasamos el parámetro Date

El comando Year() nos devuelve el año actual si le pasamos el parámetro Date

Con el siguiente ejemplo podemos ver como podemos jugar con la posición de la fecha:

Private Sub Command2_Click()
Fecha = Day(Date) & "-" & Month(Date) & "-" & Year(Date)
MsgBox Fecha
End Sub

Acá un ejemplo moviendo el año:

Private Sub Command2_Click()
Fecha = Year(Date)  & "-" & Day(Date) & "-" & Month(Date) 
MsgBox Fecha
End Sub

También puedes cambiar el separador:

Private Sub Command2_Click()
Fecha = Year(Date)  & "/" & Day(Date) & "/" & Month(Date) 
MsgBox Fecha
End Sub

Acá una imagen del resultado.

fecha-en-vb6-300x249 Separar la Fecha en Intervalos VB 6.0

Ejemplos de los principales Formatos con nombre para el manejo de Fechas y Horas, Funciones para Fechas

Dim cadena As String

cadena = Format("06/08/78", "General Date") ' Devuelve: "06/08/1978"

cadena = Format("19/08/79", "Long Date") ' Devuelve : "Jueves 19 de Agosto de 1979".

cadena = Format("19/8/79", "Medium Date") ' Devuelve: "19-Ago-1979"

cadena = Format("17:08", "Short Time") ' "05:08"

cadena = Format("17:08", "Medium Time") ' "05:08 PM"

cadena = Format("17:08", "Long Time") ' "05:08:00 PM"
Comparte en...fecha-en-vb6-300x249 Separar la Fecha en Intervalos VB 6.0fecha-en-vb6-300x249 Separar la Fecha en Intervalos VB 6.0fecha-en-vb6-300x249 Separar la Fecha en Intervalos VB 6.0fecha-en-vb6-300x249 Separar la Fecha en Intervalos VB 6.0fecha-en-vb6-300x249 Separar la Fecha en Intervalos VB 6.0

Add a Comment

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *