Imports System.Text
Public Class SetSystemDateTime
Public Structure SystemTime
Public wYear As UShort
Public wMonth As UShort
Public wDay As UShort
Public wHour As UShort
Public wMinute As UShort
Public wSecond As UShort
End Structure
<DllImport("Kernel32.dll")> _
Public Shared Function SetLocalTime(ByRef sysTime As SystemTime) As Boolean
End Function
Public Function SetLocalTimeByStr(ByVal timestr As String) As Boolean
Dim flag As Boolean = False
Dim sysTime As New SystemTime()
Dim dt As DateTime
Try
'dt = Convert.ToDateTime(timestr)
dt = "2020-10-03 08:10:10"
sysTime.wYear = Convert.ToUInt16(dt.Year)
sysTime.wMonth = Convert.ToUInt16(dt.Month)
sysTime.wDay = Convert.ToUInt16(dt.Day)
sysTime.wHour = Convert.ToUInt16(dt.Hour)
sysTime.wMinute = Convert.ToUInt16(dt.Minute)
sysTime.wSecond = Convert.ToUInt16(dt.Second)
flag = SetSystemDateTime.SetLocalTime(sysTime)
Catch ex As Exception
MsgBox(timestr & " " & ex.Message & Now, 0)
End Try
If Not flag Then MsgBox(dt & " " & sysTime.wDay & " " & flag & " " & Now, 0)
Return flag
End Function
End Class
