comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Cambiar Fecha u Hora del Sistema

  • 0 Respuestas
  • 1444 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5411
  • Actividad:
    20%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« 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 »


 

¿Te gustó el post? COMPARTILO!



Apagar el equipo, reiniciar Windows, reiniciar el Sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1464
Último mensaje Julio 26, 2010, 10:31:47 am
por ANTRAX
Saber el directorio de "Fonts" del sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1343
Último mensaje Julio 26, 2010, 04:05:12 pm
por ANTRAX
Como apagar, reiniciar o salir del sistema

Iniciado por ANTRAX

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

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1496
Ú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: 1651
Último mensaje Julio 26, 2010, 11:33:48 am
por ANTRAX