|
——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥ 购买>> 获得指定月的最后一天 在日常生活中我们往往需要知道某个月的最后一天而在计算机中也是同样如此本例中将通过一个自定义的函数来返回用户所选择的月份的最后一天 程序运行结果如图所示 图 获得指定月的最后一天 主要代码如下 定义一个自定义函数 function md(dat:Tdate):TDate; 为md函数添加如下代码 function TFormmd(dat: Tdate): TDate; var dmy:word; begin DecodeDate(Incmonth(Dat)YMD); result:=EncodeDate(YM); LabelCaption := 本月的最后一天是+DateToStr(result); end; 单击确定按钮调用md函数 procedure TFormButtonClick(Sender: TObject); begin md(DateTimePickerDate); end; 在指定的日期上加上月 在整理数据时有时可能需要在指定的月份上加上几月或减去几月以进行数据更新或查询操作本例中主要应用了IncAMonth过程在指定的月份上加上月并将结果显示到文本框中 程序运行结果如图所示 图 在指定的日期上加上月 主要代码如下 当窗体创建时使文本框中显示当前年月日 procedure TFormFormCreate(Sender: TObject); begin EditText := FormatDateTime(yyyyNow()); EditText := FormatDateTime(mmNow()); EditText := FormatDateTime(ddNow()); end; 应用IncAMonth过程在指定的日期上加上月 procedure TFormButtonClick(Sender: TObject); var YearMonthDay : word; begin Year := StrToInt(EditText); Month := StrToInt(EditText); Day := StrToInt(EditText); IncAMonth(YearMonthDay); EditText := IntToStr(Year)+年 +IntToStr(Month)+月 +IntToStr(Day)+日; end; |
