当前位置:首页 » 自动清洗 » 怎样修改vb时间
扩展阅读
怎样用ppt画树 2025-07-16 12:26:19
有电信账号怎样连光猫 2025-07-16 12:03:20

怎样修改vb时间

发布时间: 2022-07-20 07:03:18

❶ VB更改系统时间

vb修改系统时间可是再简单不过了
一个代码就可以实现了

Date = DateValue("你要修改的日期")

注意这个输入的日期是有格式的
比如说你想修改到8888年8月8日
就是Date = DateValue("8888-8-8")

千万不能写Date = DateValue("8888年8月8日")

❷ vb 怎么更改文件的修改时间

用api函数更改:
PrivateTypeFILETIME
dwLowDateTimeAsLong
dwHighDateTimeAsLong
EndType
PrivateTypeSYSTEMTIME
wYearAsInteger
wMonthAsInteger
wDayOfWeekAsInteger
wDayAsInteger
wHourAsInteger
wMinuteAsInteger
wSecondAsInteger
wMillisecondsAsInteger
EndType
PrivateConstGENERIC_WRITE=&H40000000
PrivateConstOPEN_EXISTING=3
PrivateConstFILE_SHARE_READ=&H1
PrivateConstFILE_SHARE_WRITE=&H2
"kernel32"Alias"CreateFileA"(ByVallpFileNameAsString,ByValdwDesiredAccessAsLong,ByValdwShareModeAsLong,,,,ByValhTemplateFileAsLong)AsLong
"kernel32"(ByValhFileAsLong,lpCreationTimeAsFILETIME,lpLastAccessTimeAsFILETIME,lpLastWriteTimeAsFILETIME)AsLong
"kernel32"(lpSystemTimeAsSYSTEMTIME,lpFileTimeAsFILETIME)AsLong
"kernel32"(ByValhObjectAsLong)AsLong
"kernel32"(lpLocalFileTimeAsFILETIME,lpFileTimeAsFILETIME)AsLong

PrivateSubSetModiTime(ByValm_PathAsString,ByValm_DateAsDate)
DimlngHandleAsLong
DimudtFileTimeAsFILETIME
DimudtLocalTimeAsFILETIME
DimudtSystemTimeAsSYSTEMTIME

udtSystemTime.wYear=Year(m_Date)
udtSystemTime.wMonth=Month(m_Date)
udtSystemTime.wDay=Day(m_Date)
udtSystemTime.wDayOfWeek=Weekday(m_Date)-1
udtSystemTime.wHour=Hour(m_Date)
udtSystemTime.wMinute=Minute(m_Date)
udtSystemTime.wSecond=Second(m_Date)
udtSystemTime.wMilliseconds=0

'convertsystemtimetolocaltime
,udtLocalTime
'convertlocaltimetoGMT
,udtFileTime
'openthefiletogetthefilehandle
lngHandle=CreateFile(m_Path,GENERIC_WRITE,FILE_SHARE_READOrFILE_SHARE_WRITE,ByVal0&,OPEN_EXISTING,0,0)
'changedate/timepropertyofthefile
SetFileTimelngHandle,udtFileTime,udtFileTime,udtFileTime
'closethehandle
CloseHandlelngHandle
MsgBox""+Str$(m_Date),vbInformation+vbOKOnly,App.Title
EndSub

❸ vb修改系统时间

txt1.text=后面不要加什么#啦
顶多需要在data=时加个cdate转一下
date=cdate(txt1)

=================

Private Sub Form_Load()
Text1 = Date
Date = #9/9/1999#
End Sub

Private Sub Command1_Click()
Date = Text1
End Sub

小心你的防火墙。。。。。

❹ 怎样用VB修改时钟时间

修改时间的语句是:time
如:time=text1.text

❺ VB修改文件时间、年月日时分秒

修改文件的创建时间System.IO.File.SetCreationTime(Label1.Caption,
CDate(text1.text
&
"-" text2.text
&
"-" text3.text
&
"
" text4.text
&
":" text5.text
&
":" text6.text))
文件的修改时间用System.IO.File.SetLastWriteTime
如果Label1是用打开对话框选择的要加cdlg
核心代码给你了
自己研究吧

❻ 如何用vb代码更改系统时间

例如把系统时间更改为13:08:54,用代码
Shell "cmd.exe /c time 13:08:54"
定机关机时间为14:00:15,用代码
Shell "cmd.exe /c at 14:00 shutdown -s -t 15"
在 14:00 提示 15 秒后关机

❼ 怎么用VB代码修改系统时间 (把系统时间改到最早,好像是1980吧)

非常简单,给你代码..

Date = "1980-01-01" '将日期改为1980年1月1日
Time = "0:00:00" '将时间改为0:00:00

❽ 在vb编程如何设置时间

Dim lngTime As LongPrivate Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
lngTime = lngTime + 1

If lngTime = 7200 Then
' 做你要做的事情
lngTime = 0 ' <- 2小时后还要继续的话就清0
End If
End Sub

❾ 如何 vb 修改系统时间

在窗口上建立一个command 复制下面的代码就可以了。。。

Private Sub Command1_Click()
Dim tt, dd
tt = Time
dd = Date
If Command1.Caption = "开始使系统时间暂停" Then
Command1.Caption = "停止暂停,继续运行"
Else
Command1.Caption = "开始使系统时间暂停"
End If
Do
DoEvents
Date = dd
Time = tt
Loop Until Command1.Caption = "开始使系统时间暂停"
End Sub

Private Sub Form_Load()
Command1.Caption = "开始使系统时间暂停"
End Sub

❿ 如何给VB程序设置使用时间

第一第二个你可以使用windows
消息钩子setwindowshook,然后拦截windows消息,来判断是否是更改日期的时间。当然如果这样你就太霸道了,要么你能自动从网上同步准确的时间并始终给他更新,要么你就得给用户一个更改提示,否则你的软件很快会被列入病毒行列。