AJUSTAR DATA DO SISTEMA PELO VB

USUARIO.EXCLUIDOS 07/12/2003 20:23:57
#131
Como faço para acertar a hora do sitema, pelo vb?
USUARIO.EXCLUIDOS 11/12/2003 05:59:09
#662 Resposta escolhida
Cara no meu pc não funcionou direito, afinal a data ficava certa mas o horário não, mas te mando a função.

'no módulo
Option Explicit

Public 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
 
Public Sub SetDate(mDate As SYSTEMTIME)
  Dim lReturn As Long
  lReturn = SetSystemTime(mDate)
End Sub

'no form
Private Sub Command1_Click()
Dim nDate As SYSTEMTIME
    nDate.wDay = Day(Date)
    nDate.wDayOfWeek = Weekday(Date)
    nDate.wMonth = Month(Date)
    nDate.wYear = Year(Date)
    nDate.wHour = Hour(Time)
    nDate.wMinute = Minute(Time)
    nDate.wSecond = Second(Time)
    nDate.wMilliseconds = 0
    SetDate nDate
End Sub


Testa no seu pc, talvez funcione, caso sim me fala.
Tópico encerrado , respostas não são mais permitidas
Voltar