动态设置系统日期格式

核心提示： 动态设置系统日期格式1 问题提出 在操作数据库表的时候，通常需要对表中的日期类型的数据做处理，动态设置系统日期格式，对于系统来说存在多种日期格式，数据库的日期字段也存在多种格式，语言等选项的设置，LCID:locale identifier (区域标志） 在系统中有两个默认值： LOCALE_SYSTEM_DEF

 

 动态设置系统日期格式
1 问题提出
　　 在操作数据库表的时候，通常需要对表中的日期类型的数据做处理，对于系统来说存在多种
日期格式，数据库的日期字段也存在多种格式，当往数据库表中插入日期字段的时候必须两者的日期
格式匹配才能插入数据，在这种情况下，一般需要更改系统的日期格式，改成与数据库表中的日期字段
一致的格式（因为表的设计已经定好，对于日期的格式也已经唯一确定，所以一般情况下都是更改系统
的日期格式），那么就必须能够在程序中自动改变系统的日期格式，使其和表的日期格式匹配！
2 程序中修改日期格式的系统API的说明
  主要需要使用下面的windows API
BOOL SetLocaleInfo(
　  LCID Locale, // locale identifier
　  LCTYPE LCType, // type of information to set
　  LPCTSTR lpLCData  // pointer to information to set
　 ); 
 本函数主要用于windows系统中设置系统的区域选项，主要包括时间，语言等选项的设置。
LCID:locale identifier (区域标志）
　 在系统中有两个默认值：
　　　　　  LOCALE_SYSTEM_DEFAULT：系统默认的区域选项；
　　　　　  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;