afarinn62
شنبه 18 شهریور 1385, 17:31 عصر
Class SYSTEMTIME
Public wYear As Integer
Public wMonth As Integer
Public wDayOfWeek As Integer
Public wDay As Integer
Public wHour As Integer
Public wMinute As Integer
Public wSecond As Integer
Public wMilliseconds As Integer
End Class
Private Declare Function SetLocalTime Lib "kernel32" (ByVal lpSystemTime As SYSTEMTIME) As Boolean
Public Declare Function SetSystemTime Lib "kernel32" (ByRef lpSystemTime As SYSTEMTIME) As Long
در یک تابع هم خط زیر هستش که بعد از اجرا ساعت سیستم تغییر نمی کنه هیچ خطایی هم نمیده در ضمن برا اون یکی تابع هم همین مشکل هستش البته اعداد رو دقیق وارد کردم ولی اینجا تغییر دادم
اگه کسی روش دیگه ای بلده ممنون میشم بگه
Dim d As New SYSTEMTIME
d.wYear = 2006
d.wMonth = 1
d.wDay = 1
d.wHour = 1
d.wMinute = 1
d.wSecond = 1
d.wMilliseconds = 1
d.wDayOfWeek = 2
SetSystemTime(d)
Public wYear As Integer
Public wMonth As Integer
Public wDayOfWeek As Integer
Public wDay As Integer
Public wHour As Integer
Public wMinute As Integer
Public wSecond As Integer
Public wMilliseconds As Integer
End Class
Private Declare Function SetLocalTime Lib "kernel32" (ByVal lpSystemTime As SYSTEMTIME) As Boolean
Public Declare Function SetSystemTime Lib "kernel32" (ByRef lpSystemTime As SYSTEMTIME) As Long
در یک تابع هم خط زیر هستش که بعد از اجرا ساعت سیستم تغییر نمی کنه هیچ خطایی هم نمیده در ضمن برا اون یکی تابع هم همین مشکل هستش البته اعداد رو دقیق وارد کردم ولی اینجا تغییر دادم
اگه کسی روش دیگه ای بلده ممنون میشم بگه
Dim d As New SYSTEMTIME
d.wYear = 2006
d.wMonth = 1
d.wDay = 1
d.wHour = 1
d.wMinute = 1
d.wSecond = 1
d.wMilliseconds = 1
d.wDayOfWeek = 2
SetSystemTime(d)