BCB日期处理

•  日期类型：

TDateTime

• 字符串到日期类型的转换：

StrToDate

• 两个全局变量：

    ShortDateFormat   =   "yyyymmdd";
    DateSeparator   =   '-';

    用来定义StrToDate函数的格式

 

• 代码

        TDateTime dt,dt2,dt3;
        unsigned   short   year,month,day;

        //由于分隔符没法为空，只能这样了
         tmpDate= tmpDate.SubString(1,4)   +   "-"   +   tmpDate.SubString(5,2)   +   "-"   +   tmpDate.SubString(7,2);
         dt =StrToDate(tmpDate);
        // ShowMessage(DateToStr(dt));
         //取下月的第一天
         dt2=dt+20;//保证d2在下个月
        dt2.DecodeDate(&year,&month,&day);//取年月日
         dt3=AnsiString(year)+"-"+AnsiString(month)+"-1";//下个月的第一天
          //ShowMessage(dt3.FormatString("yyyymmdd"));
         tmpDyrq =dt3.FormatString("yyyymmdd");