[silverlight]

الفكرة في الكود التالي ............ أتمني إنها تنجح معك خاصة انني لم اجرب الكود لاني ليس لدي فيجوال استوديو حاليا

PHP كود :

   Private Sub ChangeSystemDate(dateTimeString As String)
        Dim dt As DateTime = DateTime.ParseExact(dateTimeString, "ddMMyyyy", System.Globalization.CultureInfo.InvariantCulture)
        Using currentProcess As New Process
            Dim pi As ProcessStartInfo = New ProcessStartInfo
            pi.Arguments = "/c date " & dt
            pi.FileName = "cmd"
            pi.RedirectStandardOutput = True
            pi.UseShellExecute = False
            pi.CreateNoWindow = True
            currentProcess.StartInfo = pi
            Try
                currentProcess.Start()
            Catch ex As Exception
                MessageBox.Show("Can not change system date")
            End Try
        End Using

    End Sub 


ملحوظة: : يجب مراعاة نوع Culture الموجودة في جهاز الكمبيوتر

الاستخدام

PHP كود :

Dim year As Integer = 2015
        Dim month As Integer = 10
        Dim day As Integer = 12
        Dim dateTimeString As String = CStr(day) & CStr(month) & CStr(year)
        ChangeSystemDate(dateTimeString)