TROCAR DATA DO COMPUTADOR

USUARIO.EXCLUIDOS 07/01/2005 16:08:19
#59253
OLA,

GALERA TUDO BEM!!!!

COMO EU FARIA PARA ALTERAR A DATA DO COMPUTADOR VIA VB.

SE ALGUEM TIVER ALGO FICO AGRADECIDO.

MICHEL
TROVAM 07/01/2005 17:00:01
#59269
Olha ai mano o codigo...

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

Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long

Private Sub Form_Load()
Dim lpSystemTime As SYSTEMTIME

With lpSystemTime
.wYear = 2005
.wMonth = 1
.wDayOfWeek = -1
.wDay = 7
.wHour = 20
.wMinute = 0
.wSecond = 0
.wMilliseconds = 0

SetSystemTime lpSystemTime
End With
End Sub

Até mais.
Trovam...
USUARIO.EXCLUIDOS 10/01/2005 10:51:57
#59750
Value mano,

A data do computador altera numa boa, agora ele troca a hora do computador mesmo eu tirando as linhas que fazem trocar as horas.

Vc teria uma solução pra isso ?
USUARIO.EXCLUIDOS 10/01/2005 11:32:36
#59759
Galera,

Achei uma forma mas simples de alterar a data do computador.

Dim MyDate

MyDate = #1/20/2005#
Date = MyDate

Obs: O formato da data é o padrão americano.

Michel
Tópico encerrado , respostas não são mais permitidas
Voltar