تنظیم زمان

[damanpak]

سلام به برنامه نویسان گرامی
من یه قطعه سورس توی VB.NET میخوام که بشه باهاش تاریخ و ساعت سیستم رو تغییر داد
با تشکر دامن پاک

[barbodsoft.com]

از کد زیر استفاده کن


Dim yy, mm, dd As Integer
yy = 2011
mm = 4
dd = 21
Today = DateSerial(yy, mm, dd)

[فرید نجفلو]

سلام
TimeString = "15:25:59"
DateString = "2012/06/08"

[barbodsoft.com]

سلام
TimeString = "15:25:59"
DateString = "2012/06/08"


خط دوم خطا می ده

از این کد هم می تونی استفاده کنی


TimeOfDay = TimeSerial(10, 30, 0)
Today = DateSerial(2012, 1, 1)

[d_derakhshani]

Win 32 API مربوطه:

Private Declare Function SetSystemTime Lib "kernel32.dll" _
(ByRef lpSystemTime As SYSTEMTIME) As UInt32

تابع لازم:

Private Sub SetTime(ByVal Year As Integer, ByVal Month As Byte, ByVal Day As Byte, _
ByVal Hour As Integer, ByVal Minute As Integer, ByVal second As Integer)
' Call the native GetSystemTime method
' with the defined structure.
Dim st As New SYSTEMTIME
Dim Tim(2) As String
Dim ETime As New STRCC26.CDateTime
Dim localZone As TimeZone = TimeZone.CurrentTimeZone
Dim currentDate As DateTime = DateTime.Now
Dim currentOffset As TimeSpan = _
localZone.GetUtcOffset(currentDate)
GetSystemTime(st)
If Mid(currentOffset.ToString, 1, 1) <> "-" Then
Tim = Split(ETime.SubstractTime(Hour & ":" & Minute & ":" & second, currentOffset.ToString), ":")
Else
Tim = Split(ETime.AddTime(Hour & ":" & Minute & ":" & second, currentOffset.ToString), ":")
End If
'set the system date
st.wYear = Year
st.wMonth = Month
st.wDay = Day
' Set the system clock time.
st.wHour = Convert.ToUInt16(Tim(0))
st.wMinute = Convert.ToUInt16(Tim(1))
st.wSecond = Convert.ToUInt16(Tim(2))

SetSystemTime(st)
End Sub

[damanpak]

سلام به برنامه نویسان گرامی
من یه قطعه سورس توی VB.NET میخوام که بشه باهاش تاریخ و ساعت سیستم رو تغییر داد
با تشکر دامن پاک

راستی یه چیز دیگه یادم رفت بگم

میخوام همزمان با تظیم ساعت و تاریخ ساعت سیستم 24 ساعته بشه یعنی به فرمت HH:MM تغییر کنه

[barbodsoft.com]

time zone ساعت درست رو برنمی گردونه بلکه با توجه به ساعت سیستم شما ساعت time zone های دیگر رو می شه ازش به دست آورد. در ضمن سوال ایشون این نبود.
اما یک راه دیگه هست که از طریق xml و از سایتهای که ارائه دهنده این خدمات هستند استفاده کرد.
به این تاپیک مراجعه نمایید: پست شماره 7 (http://barnamenevis.org/showthread.php?339038-%D8%A8%D9%87-%D8%AF%D8%B3%D8%AA-%D8%A2%D9%88%D8%B1%D8%AF%D9%86-%D9%81%D8%A7%D8%B5%D9%84%D9%87-%D8%B2%D9%85%D8%A7%D9%86%DB%8C-(%D8%A8%D8%AF%D9%88%D9%86-%D9%88%D8%A7%D8%A8%D8%B3%D8%AA%DA%AF%DB%8C-%D8%A8%D9%87-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-%D8%B3%DB%8C%D8%B3%D8%AA%D9%85)&p=1499664&viewfull=1#post1499664)