SetSystemTime参数里是一个结构: typedef struct _SYSTEMTIME { // st WORD wYear; WORD wMonth; WORD wDayOfWeek; WORD wDay; WORD wHour; WORD wMinute; WORD wSecond; WORD wMilliseconds; } SYSTEMTIME;
具体查MSDN吧
'在module中 Public Type SystemTime wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMill As Integer End TypeDeclare Function SetSystemTime Lib "kernel32" (lpSystemTime As SystemTime) As Long’form中DefaultTime As SystemTime'获取默认的时间 With DefaultTime .wYear = rs!myear .wMonth = rs!mmonth .wDay = rs!mday .wHour = rs!mhour .wMinute = rs!mminute .wSecond = rs!msecond .wMill = rs!mmillisecond .wDayOfWeek = rs!mdayofweek End With’设置为默认的时间 SetSystemTime DefaultTime
time=时间如果是win2000等操作系统,user组的用户则没有此权限,那就使用API函数,楼主查一下即可.
typedef struct _SYSTEMTIME { // st
WORD wYear;
WORD wMonth;
WORD wDayOfWeek;
WORD wDay;
WORD wHour;
WORD wMinute;
WORD wSecond;
WORD wMilliseconds;
} SYSTEMTIME;
具体查MSDN吧
Public Type SystemTime
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMill As Integer
End TypeDeclare Function SetSystemTime Lib "kernel32" (lpSystemTime As SystemTime) As Long’form中DefaultTime As SystemTime'获取默认的时间
With DefaultTime
.wYear = rs!myear
.wMonth = rs!mmonth
.wDay = rs!mday
.wHour = rs!mhour
.wMinute = rs!mminute
.wSecond = rs!msecond
.wMill = rs!mmillisecond
.wDayOfWeek = rs!mdayofweek
End With’设置为默认的时间
SetSystemTime DefaultTime