What's Here?

Members: 119,689
Replies: 437,862
Topics: 67,748
Snippets: 2,424
Tutorials: 642
Total Online: 2,078
Members: 91
Guests: 1,987

Code Snippets

VB.NET Source Code

Welcome to Dream.In.Code
	Getting VB.NET Help is Easy! Join 119,689 VB.NET Programmers for FREE! Ask your question and get quick answers from experts. There are 2,078 online right now! We've got more than 500 tutorials and 2,000 snippets. Join and find out why Dream.In.Code is the #1 programming help community on the internet! Registration is fast and FREE... Join Now! Chat LIVE With a VB.NET Expert Register to Make This Box Go Away!

Set the computers clock

Submitted By: jacobjordan

Actions:

Rating:

Views: 173

Language: VB.NET

Last Modified: July 5, 2008

Instructions: Use the SetComputerTime() method. If you really want to do it the hard way, you could use the SetLocalTime() base method.

Snippet

''' <summary>
''' Sets the computers local time
''' </summary>
''' <param name="TimeToSet">The time to set the computers clock to</param>
Public Sub SetComputerTime(ByVal TimeToSet As Date)
Dim systime As SYSTEMTIME = New SYSTEMTIME
systime.Day = TimeToSet.Day
systime.Year = TimeToSet.Year
systime.Month = TimeToSet.Month
systime.DayOfWeek = TimeToSet.DayOfWeek
systime.Hour = TimeToSet.Hour
systime.Second = TimeToSet.Second
systime.Minute = TimeToSet.Minute
systime.Milliseconds = TimeToSet.Millisecond
SetLocalTime(systime)
End Sub
Declare Function SetLocalTime Lib "kernel32.dll" (ByRef time As SYSTEMTIME) As Boolean
Structure SYSTEMTIME
<Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Year As Short
<Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Month As Short
<Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public DayOfWeek As Short
<Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Day As Short
<Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Hour As Short
<Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Minute As Short
<Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Second As Short
<Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Milliseconds As Short
End Structure

Copy & Paste

''' <summary>
    ''' Sets the computers local time
    ''' </summary>
    ''' <param name="TimeToSet">The time to set the computers clock to</param>
    Public Sub SetComputerTime(ByVal TimeToSet As Date)
        Dim systime As SYSTEMTIME = New SYSTEMTIME
        systime.Day = TimeToSet.Day
        systime.Year = TimeToSet.Year
        systime.Month = TimeToSet.Month
        systime.DayOfWeek = TimeToSet.DayOfWeek
        systime.Hour = TimeToSet.Hour
        systime.Second = TimeToSet.Second
        systime.Minute = TimeToSet.Minute
        systime.Milliseconds = TimeToSet.Millisecond
        SetLocalTime(systime)
    End Sub
    Declare Function SetLocalTime Lib "kernel32.dll" (ByRef time As SYSTEMTIME) As Boolean
    Structure SYSTEMTIME
        <Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Year As Short
        <Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Month As Short
        <Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public DayOfWeek As Short
        <Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Day As Short
        <Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Hour As Short
        <Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Minute As Short
        <Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Second As Short
        <Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.U2)> Public Milliseconds As Short
    End Structure