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:
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!!!
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
HOLA!!!
Segun lo que tengo entendido podes de 2 formas:
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!!!
MIL Gracias por la ayuda... te pasaste ;-)
HOLA!!!
No hay por que estamos aca para ayudarnos.
GRACIAS POR LEER!!!