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