动态设置系统日期格式

 动态设置系统日期格式

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;