delphi 判断给定日期的天数，给定日期距离月初的天数，给定日期距离月末的天数

标签：label   oda   nbsp   距离   bsp   apt   phi   utils   trim   

uses

dateutils;

//判断给定日期的天数

label1.caption := inttostr(DaysInAMonth(yearof(StrToDate(Trim(Edit_riqi.Text))),monthof(StrToDate(Trim(Edit_riqi.Text))) ));

//给定日期距离月初的天数

label2.caption := inttostr(dayof(StrToDate(Trim(Edit_riqi.Text)) )-1);

//给定日期距离月末的天数

label3.caption := IntToStr(StrToInt(label1.caption)-StrToInt(label2.caption));

delphi 判断给定日期的天数，给定日期距离月初的天数，给定日期距离月末的天数

标签：label   oda   nbsp   距离   bsp   apt   phi   utils   trim   

原文地址：http://www.cnblogs.com/lantianhf/p/6715131.html