如何知道每个月的最后一天? 先取下个月的第一天再减1不就可以了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 很好办啊,后一个月的第一天减1。 var y,m,d:word; t : TDateTime;begin t:=incmonth(now,1); DecodeDate(t,y,m,d); d:=1; t:=EncodeDate(y,m,d);下月第一天 t:=t-1;//本月最后一天 showmessage(DateTostr(t));end; 请教一个气泡提示问题 问一个Tstringlist的简单问题... 那位做过通过INTERNET访问机器数据库的? 开发部的工作流程及规章制度怎么写? 我想让字符串包括多个char(0),请问怎样实现? 怎样用宽带! 我错在哪儿? 如何处理strtofloat()格式转化的异常? 谢谢antonye(),你说得对,但还有个问题,我将参数类型改变后,虽然能调用DLL但函数无法返回正确值 请问如何开发扫描仪接口? 关于sql查询的问题,另一则 如何将dbgrid的内容保存到word 或excel文挡
y,m,d:word;
t : TDateTime;
begin
t:=incmonth(now,1);
DecodeDate(t,y,m,d);
d:=1;
t:=EncodeDate(y,m,d);下月第一天
t:=t-1;//本月最后一天
showmessage(DateTostr(t));
end;