تغییر تاریخ و ساعت ویندوز

[xrezax]

دوستان چطور میشه تاریخ و ساعت ویندوز را تغییر داد ؟

[MohammadGh2011]

سلام
براي تغيير ساعت ويندوز:
کد هاي زير را انتخاب کرده و در يک کامند کپي کنيد.و سه عدد تکست باکس روي فورم بياوريد(تکست1=ساعت ، تکست2=دقيقه ، تکست3= ثانيه)
و اسم تکست باکس ها را به ترتيب T1-T2-T3
Dim strtime As String
strtime = Trim(T1.Text) + ":" + Trim(T2.Text) + ":" + Trim(T3.Text)
Time = strtime




موفق باشيد

[xrezax]

واسه تغییر تاریخ چی کنم؟

[MohammadGh2011]

سلام عليکم

واسه تغییر تاریخ چی کنم؟
دارم رو همين کار ميکنم با دستور بالا فکر نکنم بشه.اگه شد براتون ميزارم.
کدي که در پست 2 گذاشتم درست عمل کرد؟

[Mohsen.]

با استفاده از تابع SetSystemTime میتونی هم تاریخ و هم زمان رو تغییر بدی.
به این وبلاگ برو, نمونه کار برای دانلود هم گذاشته

http://speedg.persianblog.ir/post/32/

[xrezax]

سلام عليکم

دارم رو همين کار ميکنم با دستور بالا فکر نکنم بشه.اگه شد براتون ميزارم.
کدي که در پست 2 گذاشتم درست عمل کرد؟

آره کار داد؛ مرسی؛ واسه تاریخ ببین می تونی کاری کنی دمت گرم

[محسن واژدی]

سلام
برای تغییر تاریخ سیستم هم توسط راه حلّی که آقا محسن گفتند و هم توسط تابع داخلی وی بی یعنی Date این عمل را انجام دهید و فکر کنم راحتتر هم باشد:
Date = "2001/09/16"

نمونه زیر را هم بررسی کنید:

Private Sub Command1_Click()
Dim cur_date As Date

MsgBox "Current date: " & Date

cur_date = Date

Date = "2001/09/16"

MsgBox "New date: " & Date

Date = cur_date 'restore org. date

MsgBox "Reset date: " & Date

End Sub

موفق باشید

[MohammadGh2011]

آره کار داد؛ مرسی؛ واسه تاریخ ببین می تونی کاری کنی دمت گرم
جناب XrezaX دوستمون mohsen. در پست 5 جوابتون رو دادند.


موفق باشيد

[setroyd]

Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long با ان تابع میشه این کارو کرد .