USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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!!
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página