７３．システムの時間、日付を変更する

＜　使用用途　＞
システムの時間、日付を変更する

　＜　説明　＞
ＡＰＩ関数のSetSystemTime を使用します
SetSystemTime　＝＞システムの時間、日付を変更する
　　＜引数＞
　　　　　lpSystemTime： SYSTEMTIME構造体
　　＠戻り値＠
　　　　　正常終了0以外

<　ＳＡＭＰＬＥ　＞
’システムの時間を2000/6月1日/1時2分16．25秒に変更します。
'標準モジュール
Public　Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long

Public Type SYSTEMTIME
　wYear As Integer　’西暦
　wMonth　As Integer’月
　wDayOfWeekAs Integer　
　wDay As Intege’日
　wHour As Integer’時間
　wMinute As Integer　'分　
　wSecond As Integer　'秒
　wMilliseconds As Integer
End Type

Public Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Hanako As SYSTEMTIME
　　Dim RetAs Long

　　　Hanako.wYear = 2000
　　　Hanako.wMonth = 6
　　　Hanako.wHour = 1
　　　Hanako.wMinute = 16
　　　Hanako.wSecond = 2
　　　Hanako.wMilliseconds = 250

　　　Ret = SetSystemTime(Hanako)
End Sub