在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
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));
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论