Question

如何修改系统短日期格式

Answer 1

榈牟檎液团判蚧岢龃恚??叶己褪奔溆泄亍＞?邢讣觳榈贸鼋崧廴缦拢涸谟τ贸绦蛑惺褂
format("日期型数据","short
date")把长日期格式成短日期，如果本地电脑系统的“短日期”格式不一样，会得到两种不同的结果。比如
同样是format("2008-5-1
23:01:20","short
date")在短日期格式为"yyyy-m-d"的电脑上，得出的结果是"2008-5-1",而在短日期格式为"yyyy-mm-dd"的电脑上得到的结果是"2008-05-01"。说了半天，有什么不同？不都是表示同一天吗？答案是：两种结果不同。因为被format格式以后的日期已经不再是日期了，ACCESS把它当作文本来处理。比如我们对三个文本进行升序排列：第一种是：2008-4-30
，2008-4-8，2008-5-1第二种是：2008-04-08，2008-04-30，2008-05-01可以看出两种不同的格式排序得到的结果是不一样的。使用between
....and...进行查找效果亦是如此。所以我们大都喜欢自己的程序运行在短日期格式为"YYYY-MM-DD"的电脑上，这样我们格式成短日期以后的数据仍然可以正确的查找和排序。但往往事情并不是都按照理想的方向进行，有些用户的短日期格式就不是"YYYY-MM-DD"，所以我们要对它修改。修改的代码如下：
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
设置短日期格式
Public
Const
LOCALE_SSHORTDATE
=
&H1F
Public
Const
LOCALE_SDATE
=
&H1D
'下面的过程可以帮你达到目的sub
setshortdate()
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
If
MsgBox("您的系统日期不是(YYYY-MM-DD)格式，强烈建议您将它修改成该格式,"
&
Chr(10)
_
&
"否则软件可能会出现运行障碍！"
_
&
Chr(10)
&
Chr(10)
&
"点击'是'将自动为您修改。",
vbQuestion
+
vbYesNo,
"忠告")
=
vbYes
Then
sa
=
"yyyy-MM-dd"