3. Cambiar Fecha u Hora del Sistema
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.
« anterior próximo »
Páginas: [1]   Ir Abajo

Cambiar Fecha u Hora del Sistema

  • 0 Respuestas
  • 1857 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5478
  • Actividad:
    8.33%
  • Reputación 35
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de

Cambiar Fecha u Hora del Sistema

« en: Julio 26, 2010, 01:39:27 pm »
Código: Visual Basic
  1.  
  2. Private Declare Function SetSystemTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME) As Long
  3. Public Type SYSTEMTIME
  4. wYear As Integer
  5.                  wMonth As Integer
  6.                  wDayOfWeek As Integer
  7. wDay As Integer
  8. wHour As Integer
  9. wMinute As Integer
  10. wSecond As Integer
  11. wMilliseconds As Integer
  12. End Type
  13. Public Function CambiarHora(ByVal Hora As Integer, ByVal Minutos As Integer, Byval Segundos As Integer)
  14. Dim Ahora As SYSTEMTIME
  15. Ahora.wYear = Year(Date)
  16. Ahora.wMonth = Month(Date)
  17. Ahora.wDay = Day(Date)
  18. Ahora.wHour = Hora
  19. Ahora.wMinute = Minutos
  20. Ahora.wSecond = Segundos
  21. CambiarHora = SetSystemTime(Ahora)
  22. End Function
  23. Public Function CambiarFecha(Byval Año As Integer, Byval Mes As Integer, Byval Dia As Integer)
  24. Dim Hoy As SYSTEMTIME
  25. Hoy.wYear = Año
  26. Hoy.wMonth = Mes
  27. Hoy.wDay = Dia
  28. Hoy.wHour = Hour(Time)
  29. Hoy.wMinute = Minute(Time)
  30. Hoy.wSecond = Second(Time)
  31. CambiarFecha = SetSystemTime(Hoy)
  32. End Function
« Última modificación: Mayo 12, 2014, 03:17:41 pm por Expermicid »
En línea

Páginas: [1]   Ir Arriba
« anterior próximo »
 

¿Te gustó el post? COMPARTILO!



Saber el directorio de "Fonts" del sistema

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 1787 		Último mensaje Julio 26, 2010, 04:05:12 pm
por ANTRAX
Apagar el equipo, reiniciar Windows, reiniciar el Sistema

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 1851 		Último mensaje Julio 26, 2010, 10:31:47 am
por ANTRAX
Como apagar, reiniciar o salir del sistema

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 1980 		Último mensaje Julio 26, 2010, 11:24:30 am
por ANTRAX
Listar Las Fuentes Del Sistema En ComboBox

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 1859 		Último mensaje Julio 26, 2010, 04:06:50 pm
por ANTRAX
Como impedir cambiar el tamaño de una ventana redimensionable

Iniciado por ANTRAX

 Respuestas: 0
Vistas: 2133 		Último mensaje Julio 26, 2010, 11:33:48 am
por ANTRAX