系统时间的设定,急急急!!!!

liubinwelcome 2000-08-15 07:45:00
怎样用两个datetimepicker (一个用来调年月日,一个用来调时分秒)
动态地设置系统时间。
...全文
129 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
mutant 2000-08-16
  • 打赏
  • 举报
回复
来晚了...
mutant 2000-08-16
  • 打赏
  • 举报
回复
来晚了...
shines77 2000-08-16
  • 打赏
  • 举报
回复
这是VB的例子,相信你很快就会看懂:

Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long

Private Sub Form_Load()
Dim lpSystemTime As SYSTEMTIME
lpSystemTime.wYear = 2000
lpSystemTime.wMonth = 1
lpSystemTime.wDayOfWeek = -1
lpSystemTime.wDay = 24
lpSystemTime.wHour = 23
lpSystemTime.wMinute = 26
lpSystemTime.wSecond = 0
lpSystemTime.wMilliseconds = 0
'set the new time
SetSystemTime lpSystemTime
End Sub

这里设置的时间是: 2000-1-25 07:26:00.000 星期二
(wDayOfWeek 参数可省略)
zhouzq 2000-08-15
  • 打赏
  • 举报
回复
用DATE,NOW可得到日期和时间
PoolD 2000-08-15
  • 打赏
  • 举报
回复
SetSystemTime
opkj 2000-08-15
  • 打赏
  • 举报
回复
API

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧