|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Alterar Data e Hora
|
 |
|
|
|
Postada em 15/9/2003 por Mágico
Coloque no módulo:
------------
Option Explicit
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
Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Declare Function SetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
------------------
No Form:
Sub Main()
Dim Agora As SYSTEMTIME
' pega os valores atuais dia,mes ano e horário
GetLocalTime Agora
' modifica o horario ou outros valores
Agora.wHour = 11
Agora.wMinute = 10
Agora.wSecond = 0
Agora.wMilliseconds = 0
' ajusta os novos parâmetros (inclusive dia, mes e ano que não foram mudados)
SetLocalTime Agora
End Sub
---------------------------
Só trocar os valores da Data e Hora para os valores desejados!!
|
|
|
|
|
