动态设置系统日期格式

文章作者 100test 发表时间 2011:03:22 18:44:49
来源 100Test.Com百考试题网

　　动态设置系统日期格式
　　1 问题提出
　　在操作数据库表的时候，通常需要对表中的日期类型的数据做处理，对于系统来说存在多种日期格式，数据库的日期字段也存在多种格式，当往数据库表中插入日期字段的时候必须两者的日期格式匹配才能插入数据，在这种情况下，一般需要更改系统的日期格式，改成与数据库表中的日期字段一致的格式（因为表的设计已经定好，对于日期的格式也已经唯一确定，所以一般情况下都是更改系统的日期格式），那么就必须能够在程序中自动改变系统的日期格式，使其和表的日期格式匹配！
　　2 程序中修改日期格式的系统API的说明
　　主要需要使用下面的windows API
　　BOOL SetLocaleInfo(LCID Locale, // locale identifierLCTYPE LCType, // type of information to setLPCTSTR lpLCData // pointer to information to set).
　　本函数主要用于windows系统中设置系统的区域选项，主要包括时间，语言等选项的设置。
　　LCID:locale identifier (区域标志）
　　在系统中有两个默认值：
　　LOCALE_SYSTEM_DEFAULT：系统默认的区域选项；来源：www.100test.com
　　LOCALE_USER_DEFAULT：当前用户的区域选项；
　　同时用户也可以通过 MAKELCID宏动态创建LCID；
　　LCType：需要设定的系统信息类型；
　　主要包括下面的值：
　　LOCALE_ICALENDARTYPE LOCALE_SDATE
　　LOCALE_ICURRDIGITS LOCALE_SDECIMAL
　　LOCALE_ICURRENCY LOCALE_SGROUPING
　　LOCALE_IDIGITS LOCALE_SLIST
　　LOCALE_IFIRSTDAYOFWEEK LOCALE_SLONGDATE
　　LOCALE_IFIRSTWEEKOFYEAR LOCALE_SMONDECIMALSEP
　　LOCALE_ILZERO LOCALE_SMONGROUPING
　　LOCALE_IMEASURE LOCALE_SMONTHOUSANDSEP
　　LOCALE_INEGCURR LOCALE_SNEGATIVESIGN
　　LOCALE_INEGNUMBER LOCALE_SPOSITIVESIGN
　　LOCALE_ITIME LOCALE_SSHORTDATE
　　LOCALE_S1159 LOCALE_STHOUSAND
　　LOCALE_S2359 LOCALE_STIME
　　LOCALE_SCURRENCY LOCALE_STIMEFORMAT
　　lpLCData：需要设定的信息的存放地址；与起对应的函数为
　　int GetLocaleInfo(
　　LCID Locale, // locale identifier
　　LCTYPE LCType, // type of information
　　LPTSTR lpLCData, // address of buffer for information
　　int cchData // size of buffer
　　).
　　主要用于取得当前系统的区域设置，各个参数和使用过程不再一一说明。
　　3 使用举例
　　//取得当前系统的短日期格式；
　　function Tfrmmain.GetsysDateFormat: string.
　　var
　　sgs:string.
　　begin
　　setlength(sgs,12).
　　GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE ,PChar(sgs),12).
　　result:=string(pchar(sgs)).
　　end.
　　//设定系日期格式；
　　procedure Tfrmmain.SetSysDateFormat(s: string).
　　begin
　　SetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,PChar(s)).
　　end.

　　编辑特别推荐:

　　#0000ff>全国计算机等级考试资料下载

　　#0000ff>全国计算机等级考试论坛

　　#0000ff>如何应付二级考试中的公共基础知识