[Ejemplo] FECHAS

[79137913]

HOLA!!!

XD, nose si esto se puede llamar ejemplo, pero es mi intento por ayudar.

En el codigo estan las cosas basicas que se pueden hacer con fechas, son utiles ... creo.

CODIGO:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
'FECHA ACTUAL EN FORMATO ESTANDAR MM-DD-AAAA
      Label1.Caption = Date$
'FECHA ACTUAL FORMATEADA A DIAS/MESES/AÑOS
      Label2.Caption = Format(Date$, "d/MM/yyyy")
'FECHA Y HORARIO ACTUAL
      Label3.Caption = Now
'HORARIO ACTUAL
      Label4.Caption = Time
'DIA ACTUAL
      Label5.Caption = Day(Now)
'MES ACTUAL
      Label6.Caption = Month(Now)
'MES ACTUAL EN LETRAS (DEPENDE DE LA CONFIGURACION REGIONAL DE LA PC)
      Label7.Caption = MonthName(Month(Now))
'AÑO ACTUAL
      Label8.Caption = Year(Now)
'DIA DE LA SEMANA ACTUAL
      Label9.Caption = Weekday(Now)
'DIA DE LA SEMANA ACTUAL EN LETRAS (DEPENDE DE LA CONFIGURACION REGIONAL DE LA PC)
      Label10.Caption = WeekdayName(Weekday(Now))
'SOLO LA HORA
      Label11.Caption = Hour(Now)
'SOLO LOS MINUTOS
      Label12.Caption = Minute(Now)
'SOLO LOS SEGUNDOS
      Label13.Caption = Second(Now)
'SUMA A UNA FECHA ESPECIFICA
'PARAMETROS DateAdd(INTERVALO,CANTIDAD,FECHA)
'LA CANTIDAD PUEDE SER POSITIVA O NEGATIVA
'EJEMPLO FECHA ACTUAL MENOS 35 SEGUNDOS
      Label14Caption = DateAdd("S", -35, Now)
'DIFERENCIAS ENTRE 2 FECHAS
'EJEMPLO DIFERENCIA ENTRE 15/10/1329 Y HOY EXPRESADO EN DIAS
'PARAMETROS DateDiff(INTERVALO,FECHA1,FECHA2)
'LOS TIPOS DE INTERVALOS SON LOS MISMOS
      Label15.Caption = DateDiff("y", #10/15/1329#, Date$)

'---------------------------------------------------------------------------------

'TIPOS DE INTERVALOS:
'"S"=SEGUNDOS
'"n"=MINUTOS
'"h"=HORAS
'"y"=DIAS
'"ww"=SEMANAS
'"m"=MESES
'"yyyy"=AÑOS
End Sub


GRACIAS POR LEER!!!

[agmen]

hola, encontre muy interesante lo que publicaste
tengo una duda

puedo convertir una variable tipo date a string?
y si se puede como lo hago?

gracias

[79137913]

HOLA!!!

Segun lo que tengo entendido podes de 2 formas:

Código (vb) [Seleccionar] Expandir

Public FECHA_D As Date
Public FECHA_S As String

Private Sub Form_Load()
FECHA_D = Date$
FECHA_S = FECHA_D
'o sino
FECHA_S = Format(FECHA_D, "DD/MM/YYYY")
End Sub


GRACIAS POR LEER!!!

[agmen]

MIL Gracias por la ayuda... te pasaste 

[79137913]

HOLA!!!

No hay por que estamos aca para ayudarnos.


GRACIAS POR LEER!!!