Change the system date through VB

[princessk1]

Does anyone know how to change the system date through VB?

Thanks.

 

[teh215]

Use the SetSystemTime API


Rob

 

[teh215]

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
lpSystemTime.wYear = 2000
lpSystemTime.wMonth = 1
lpSystemTime.wDayOfWeek = -1
lpSystemTime.wDay = 24
lpSystemTime.wHour = 23
lpSystemTime.wMinute = 26
lpSystemTime.wSecond = 0
lpSystemTime.wMilliseconds = 0
'set the new time
SetSystemTime lpSystemTime
End Sub

 

[vb5prgrmr]

Date = "12/01/1999"
Time = "12:00:00 AM"

Date = FileDateTime(pathtofile)
Time = FileDateTime(pathtofile)

now = FileDateTime(pathtofile)
now = "12/01/1999 12:00:00 AM"

Good Luck

 

[johnwm]

The easier way using UK English settings:

Date = "28/10/2002" Let me know if this helps
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'There are 10 kinds of people in the world: those who understand binary, and those who don't.'