alimanam
سه شنبه 16 شهریور 1389, 22:58 عصر
با سلام
یکی از دوستان در این زمینه سوالی داشتن که جوابش رو به صورت یک تاپیک درآوردم چون به نظرم به درد خیلی از دوستان دیگه هم می خوره . موفق باشید .
Imports System.Runtime.InteropServices
Public Class Form1
Private Structure SYSTEMTIME
Public year As Short
Public month As Short
Public dayOfWeek As Short
Public day As Short
Public hour As Short
Public minute As Short
Public second As Short
Public milliseconds As Short
End Structure
<DllImport("Kernel32.dll")> _
Private Shared Function SetLocalTime(ByRef time As SYSTEMTIME) As Boolean
' Don't type any code here !
End Function
Public Function SetDeviceTime(ByVal p_NewDate As Date)
Dim st As SYSTEMTIME
st.year = p_NewDate.Year
st.month = p_NewDate.Month
st.dayOfWeek = p_NewDate.DayOfWeek
st.day = p_NewDate.Day
st.hour = p_NewDate.Hour
st.minute = p_NewDate.Minute
st.second = p_NewDate.Second
st.milliseconds = p_NewDate.Millisecond
SetLocalTime(st)
Return Nothing
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SetDeviceTime(txtDate.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtDate.Text = Now.Date.ToString
End Sub
End Class
یکی از دوستان در این زمینه سوالی داشتن که جوابش رو به صورت یک تاپیک درآوردم چون به نظرم به درد خیلی از دوستان دیگه هم می خوره . موفق باشید .
Imports System.Runtime.InteropServices
Public Class Form1
Private Structure SYSTEMTIME
Public year As Short
Public month As Short
Public dayOfWeek As Short
Public day As Short
Public hour As Short
Public minute As Short
Public second As Short
Public milliseconds As Short
End Structure
<DllImport("Kernel32.dll")> _
Private Shared Function SetLocalTime(ByRef time As SYSTEMTIME) As Boolean
' Don't type any code here !
End Function
Public Function SetDeviceTime(ByVal p_NewDate As Date)
Dim st As SYSTEMTIME
st.year = p_NewDate.Year
st.month = p_NewDate.Month
st.dayOfWeek = p_NewDate.DayOfWeek
st.day = p_NewDate.Day
st.hour = p_NewDate.Hour
st.minute = p_NewDate.Minute
st.second = p_NewDate.Second
st.milliseconds = p_NewDate.Millisecond
SetLocalTime(st)
Return Nothing
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SetDeviceTime(txtDate.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtDate.Text = Now.Date.ToString
End Sub
End Class