Question

vb获取分钟&设置时间&变量类型

其实我想要的是分别获取时,分,秒,不知有冇代码呀? 要求: 先分别获取时分秒,然后把分加上1再设置一遍时间,这样系统时间就变成了原先的时间加一分钟,谁会代码呀?告诉我呀!! 呵呵,vb6.0和.net都可以.最好是测试过的. 我自己也尝试写了,可是明明分钟加一以后再用设置时间函数设置的时候.就提示变量类型不符,况且不能单独设置分钟! 要是高手使用api或者模块一定要讲清楚,什么代码放在哪里,复制来的不要. 快,最后限在明天呀,我真着急,10月31号之前!

Answer 1

Option Explicit Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long 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 Dim time As SYSTEMTIME Private Sub Command1_Click() Dim hour As Integer hour = txttime(3) - 8 'Beijing Time With time .wYear = txttime(0).Text .wMonth = txttime(1).Text .wDay = txttime(2).Text .wHour = IIf(hour > 0, hour, hour + 24) 'set universal time .wMinute = txttime(4).Text .wSecond = txttime(5).Text End With SetSystemTime time End Sub Private Sub Form_Load() GetSystemTime time With time txttime(0).Text = .wYear txttime(1).Text = .wMonth txttime(2).Text = .wDay txttime(3).Text = .wHour + 8 'Beijing Time txttime(4).Text = .wMinute txttime(5).Text = .wSecond End With End Sub 对不起哈时间晚了你自己加一下调用时再加也行!

采纳哦