Private Sub Form_Load()
Date = "02-04-05"
Debug.Print Date
End Sub
Date = "02-04-05"
Debug.Print Date
End Sub
解决方案 »
- textbox控件组改动index后在事件里怎么不会从新对应呢?
- 【问题】获取硬件序列号?
- 初学VB者的问题?
- [&关注&]excel 中国人的报表习惯
- 如何在GRID控件单元格里加图标?
- 有没有什么函数可以把这样的字符串 "Enter your <a linkid=1>personal information</A>" 输出到Label上就像在网页上的超链接一样?
- 新手ActiveX网页控件的问题
- vb的ftp
- 请教!
- 我想写一个VB,ADO连ACESS数据库的程序,想问以下问题!
- 问个初级的问题.怎样判断某一个文件已经存在?
- 请教如何在VB中通过程序将DataGrid 与 ADO 连接起来?
Date="2002-08-08"
time="13:10:55"
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,0",vbNormalFocus)2)
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 TypePrivate Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As LongPrivate 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
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,0",vbNormalFocus)2)
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 TypePrivate Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As LongPrivate 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