| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1014 人关注过本帖
标题:自动设置系统日期
只看楼主 加入收藏
bustion
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-6-29
收藏
 问题点数:0 回复次数:6 
自动设置系统日期
主板电池没电了,保存不了日期,每次开机都要重新设置日期和时间,怎样用VB编一个自动设置日期的程序?
搜索更多相关主题的帖子: 自动设置 系统 
2006-12-07 14:19
学习VB才2天
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1653
专家分:0
注 册:2006-5-4
收藏
得分:0 

自己动手 丰衣足食...别指望别人帮你....


Public Const LOCALE_SSHORTDATE = &H1F ' short date format string
Public Const LOCALE_SDATE = &H1D ' date separator

Public Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Public Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Public Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long

Private Function SetLocalInfo() As Boolean
Dim llocal As Long
Dim sa As String
Dim lOk As Long
On Error GoTo ErrShow

sa = Space(20)
llocal = GetUserDefaultLCID()
lOk = GetLocaleInfo(llocal, LOCALE_SSHORTDATE, ByVal sa, 20)
If Trim(sa) <> "yyyy/MM/dd" Then
sa = "yyyy/MM/dd"
llocal = GetUserDefaultLCID()
SetLocaleInfo llocal, LOCALE_SSHORTDATE, ByVal sa
End If

sa = Space(2)
lOk = GetLocaleInfo(llocal, LOCALE_SDATE, ByVal sa, 2)
If Trim(sa) <> "/" Then
sa = "/"
lOk = SetLocaleInfo(llocal, LOCALE_SDATE, ByVal sa)
End If
SetLocalInfo = True
Exit Function
ErrShow:
MsgBox "系统日期不能自动设置为(2002/01/01)的格式" & vbCrLf & "请用手工先把系统日期改为如(2002/01/01)的格式,再运行本系统!"
End Function

[此贴子已经被作者于2006-12-7 16:38:14编辑过]


[GLOW=255,DeepPink,3]我的免费网盘[/GLOW]
2006-12-07 15:29
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
win32api
SetSystemTime

我的msn: myfend@
2006-12-07 15:30
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 

系统好象有从WEB上获取时间的功能的,你看看
不过那样学不到VB了。


2006-12-07 15:52
sansizhou
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2006-11-24
收藏
得分:0 

如果连写入注册表使得开机后自启动,自动连接网络并到达指定网站,获取标准时间,设置系统时间这些都要写的话,好像
代码也不少的哦

2006-12-07 16:33
bestfeng
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:179
专家分:0
注 册:2006-10-31
收藏
得分:0 
我晕倒了,。。。。
这么麻烦么??????
date = "2006-1-1"
time = "01:00"
。。。。。。。。
2006-12-07 17:53
bestfeng
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:179
专家分:0
注 册:2006-10-31
收藏
得分:0 
在看看结果怎么样,可以把日子保存在文本文件在中读取。或者放2个textbox.输入日期点commandbutton.
2006-12-07 17:54
快速回复:自动设置系统日期
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032903 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved