⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 tips02.asp

📁 Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明
💻 ASP
字号:
🔍 
<!-- #include virtual="/kjasp/func/DB.fun" -->
<% mdbFile = "../UsersPwd.mdb" %>
<!-- #include file="../Login.asp" -->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
   <TITLE>如何改变系统默认的日期格式？</TITLE>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
   <META NAME="Author" CONTENT="KJ Wang">
   <META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
</HEAD>
<BODY BACKGROUND="backqa.jpg">

<H2 ALIGN=CENTER>
<HR>如何改变系统默认的日期格式？<FONT SIZE=+1> <FONT COLOR="#FF0000">(08/08
修正)</FONT></FONT>
<HR WIDTH="100%"></H2>

<UL>
<P>08/01 所介绍的方法， 在设置日期之后， 必须等到下次开机才生效， 如果要即时生效，
必须调用 SetLocaleInfo API 函数， 如下：</P>

<P>1. API 的定义：</P>

<UL>
<P><BR>
Const LOCALE_SLONGDATE = &amp;H20 <BR>
Const LOCALE_SSHORTDATE = &amp;H1F <BR>
Const LOCALE_STIME = &amp;H1E</P>

<P>Private Declare Function GetSystemDefaultLCID Lib &quot;kernel32&quot;
() As Long<BR>
Private Declare Function SetLocaleInfo Lib &quot;kernel32&quot; Alias &quot;SetLocaleInfoA&quot;
(ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String)
As Long</P>

<P><FONT COLOR="#008000">注：如果以上的定义放在“一般模块”底下， 应将
Private 保留字去掉， 并且在 Const 之前加上 Public 保留字。</FONT></P>
</UL>

<P>2. 调用例：</P>

<UL>
<P>Dim lcid As Long <BR>
<BR>
lcid = GetSystemDefaultLCID<BR>
SetLocaleInfo lcid, LOCALE_SSHORTDATE, <FONT COLOR="#FF0000">&quot;yy/m/d&quot;</FONT>
<FONT COLOR="#008000">' 短日期格式<BR>
</FONT>SetLocaleInfo lcid, LOCALE_SLONGDATE, <FONT COLOR="#FF0000">&quot;MMMM
dd yyyy&quot;</FONT> <FONT COLOR="#008000">' 长日期格式<BR>
</FONT>SetLocaleInfo lcid, LOCALE_STIME, <FONT COLOR="#FF0000">&quot;tt
hh: mm: ss&quot;</FONT> <FONT COLOR="#008000">' 时间格式</FONT></P>

<P><FONT COLOR="#008000">以上的红色部分请改成您要设置的格式。 </FONT></P>
</UL>
</UL>

<CENTER><P><B><FONT COLOR="#0000FF"><FONT SIZE=+1>08/01 公布的解决方案</FONT></FONT></B>
<HR WIDTH="50%"></P></CENTER>

<UL>
<P>如果使用“控制面板”， 则改变系统默认的日期格式， 是启动“控制面板”的“区域”，
然后进行设置， 但如果不使用“控制面板”， VB 程序如何改变系统默认的日期格式呢？</P>

<P>方法是改变登录数据库的以下内容：</P>

<UL>
<P>HKEY_CURRENT_USER\Control Panel\International\sLongDate (长日期格式)<BR>
HKEY_CURRENT_USER\Control Panel\International\sShortDate (短日期格式)<BR>
HKEY_CURRENT_USER\Control Panel\International\sTimeFormat (时间格式)</P>

<P><FONT COLOR="#008000">注：在程序中改变登录数据库的方法， 则请参阅 Run!PC
50 期(3 月号)“Windows 的登录数据库”。</FONT></P>
</UL>
</UL>

<DIV ALIGN=right><P>
<HR WIDTH="100%"><A HREF="http://www.kj.com.tw" Target="_top">学 VB(Visual
Basic) 找王国荣</A></P></DIV>

</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -