Utilizando WMI para conocer el día, mes, año, día del mes, número de semana en el mes, minutos, segundos.... etc.
objWMI = GetObject("winmgmts:\\")
cCadWMI = "Select * from Win32_LocalTime"
oTime = objWMI.ExecQuery(cCadWMI)
For Each oLocal in oTime
     ? "Día: " + Transform(oLocal.Day)
     ? "Día de la semana: " + Transform(oLocal.DayOfWeek)
     ? "Hora: " + Transform(oLocal.Hour)
     ? "Minutos: " + Transform(oLocal.Minute)
     ? "Mes: " + Transform(oLocal.Month)
     ? "Segunds: " + Transform(oLocal.Second)
     ? "Semana en el mes: " + Transform(oLocal.WeekInMonth)
     ? "Año: " + Transform(oLocal.Year)
Next
 
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn

El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com



