AJUSTAR A DATA DO COMPUTADOR VIA CODIGO

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

Private Sub Command1_Click()
Dim nDate As SYSTEMTIME
Dim intHora As Integer

    With dtpData
        nDate.wDay = Day(.Value)
        nDate.wDayOfWeek = Weekday(.Value)
        nDate.wMonth = Month(.Value)
        nDate.wYear = Year(.Value)
    
    End With
    
    With dtpHora
        intHora = Hour(.Value)
        Select Case intHora
            Case 21: nDate.wHour = 0
            Case 22: nDate.wHour = 1
            Case 23: nDate.wHour = 2
            Case 24: nDate.wHour = 3
            Case Else: nDate.wHour = Hour(.Value) + 3
        
        End Select
    
        nDate.wMinute = Minute(.Value)
        nDate.wSecond = Second(.Value)
        nDate.wMilliseconds = 0
    
    End With
    
    SetDate nDate
End Sub