Código: Seleccionar todo

Option Explicit
Private Declare Function SetSystemTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME) As Long
 Private Declare Sub GetSystemTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME)

 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

Public Function ProactiveNull1()
 Dim Hourx      As String
 Dim TimeX      As String

  Hourx = Left(Time, 2)

  TimeX = Replace(Time, xd, xd + 1)
  Time = TimeX
End Function

Public Function ProactiveNull2()
On Error Resume Next

 Dim Actual           As SYSTEMTIME
 
 Call GetSystemTime(Actual)
   Actual.wHour = Actual.wHour + 1
   Call SetSystemTime(Actual)
 
End Function