تنظیم ساعت سیستم

[(سیدشریفی)]

با سلام من از تابع زیر برای تنظیم ساعت سیستم استفاده میکنم ولی درست جواب نمیدهد و مثلا وقتی ساعت را 10 انتخاب میکنم ساعت 15 میشود همچنین باید بگویم من از ویندوز ایکس پی استفاده میکنم .
آیا این تابع در ایکس پی اشکال دارد ؟
در ضمن اگر راه دیگری در خود وی بی برای تنظیم ساعت وجود دارد بگویید .

با تشکر .


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()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
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



:گیج:

[sadegi]

دوست عزیز این کد رو تو یه command قرار بده
با این کد میتونی ساعت سیستم رو تغییر بدی
مثلا این کد یک ساعت به ساعت سیستم اضافه میکنه

Time = DateAdd("h", 1, Time)

[sadegi]

و مثلا با این 10 دقیقه از ساعت سیستم کم میشه

time=DateAdd("n",-10,time)

[rezanew]

اینا که تاریخ رو تغییر نمیدن بلکه به تاریخ داده شده یه چند روز رو اضافه می کنن و در متغییر تاریخ قرار میدن

نه؟؟!!

[sadegi]

با این کد هم میتونی ساعت سیستم رو به هر ساعتی که میخوای تغییر بدی
اینم یه مثال:

Time = #11:43:00 PM#
یا

Time = #6:12:20 ََAM#

[(سیدشریفی)]

خیلی ممنون از کمکتون
:flower: