کمک این کد نه خطا میده نه جواب! از تابع api استفاده شده(setsystemtime

[afarinn62]

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)

[حامد مصافی]

سلام
توابع API خطا نمی دن
مقدار برگشتی رو چک کن
اگر 0 بود تابع موفق به انجام وظیفه محوله نبوده در غیر اینصورت پروسه با موفقیت تموم شده