Cómo configurar la hora del sistema

Seleccione idioma Seleccione idioma
Id. de artículo: 154009 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

Resumen

La función API de Win32 SetSystemTime ofrece la funcionalidad para cambiar la hora del sistema en el equipo local. El cambio tendrá lugar inmediatamente sin necesidad de reiniciar el equipo. Este artículo muestra cómo crear un proyecto de ejemplo que establece la hora del sistema mediante la función de SetSystemTime. La función de SetSystemTime establece el tiempo de sistema en función de hora universal coordinada (UTC). Tiempo de UTC imprecisa se define como la fecha actual y la hora del día en Greenwich, Inglaterra.

Más información

  1. Inicie un proyecto nuevo de Visual Basic. Se creará Form1 de manera predeterminada.
  2. Agregue el código siguiente a la sección General Declarations de Form1:
          Option Explicit
    
          Private Type SYSTEMTIME
            wYear As Integer
            wMonth As Integer
            wDayOfWeek As Integer
            wDay As Integer
            wHour As Integer
            wMinute As Integer
            wSecond As Integer
            wMilliseconds As Integer
          End Type
    
          Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime _
            As SYSTEMTIME) As Long
    
          Private Sub Form_Load()
            Dim lReturn As Long
            Dim lpSystemTime As SYSTEMTIME
            lpSystemTime.wYear = 1996
            lpSystemTime.wMonth = 6
            lpSystemTime.wDayOfWeek = 5
            lpSystemTime.wDay = 28
            lpSystemTime.wHour = 9
            lpSystemTime.wMinute = 42
            lpSystemTime.wSecond = 0
            lpSystemTime.wMilliseconds = 0
            lReturn = SetSystemTime(lpSystemTime)
          End Sub
    
    					
  3. Ejecute el proyecto presionando la tecla F5. Compruebe la hora del sistema y la fecha en el panel de control. La hora debe ha cambiado para reflejar la configuración de tiempo de UTC utilizada en el ejemplo.

Referencias

La estructura de tipo SYSTEMTIME es como sigue:
   WYear           Integer-The current year.
   WMonth          Integer-The current month. January is 1.
   WDayOfWeek      Integer-The current day of the week. Sunday is 0.
   WDay            Integer-The current day of the month.
   WHour           Integer-The current hour.
   wMinute         Integer-The current minute.
   wSecond         Integer-The current second.
   wMilliseconds   Integer-The current millisecond.
				

Para cambiar la hora del sistema en una plataforma Win32 desde Visual Basic de 16 bits, tendría que crear un archivo DLL que un procesador genérico para el SetSystemTime de API de 32 bits.

Propiedades

Id. de artículo: 154009 - Última revisión: martes, 13 de julio de 2004 - Versión: 3.1
La información de este artículo se refiere a:
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Edición de aprendizaje
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
Palabras clave: 
kbmt kbapi kbhowto KB154009 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 154009

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com