incmonth(date())当前日期的下一个月是吧?
那上一月呢????
那上一月呢????
解决方案 »
- [速结贴][散分贴]每人10分
- delphi 6 中使用DesignEditors的单元中的Proxies到那里去找。
- 请高手指点!!!
- 在for 循环里怎么样实现暂停和继续
- 两个关于操作系统的问题
- 本人认真的在对比了,人气,招聘,未来趋势。觉得java+sql才是入门者的最佳选择。
- DELPHI+ACCESS登陆窗口怎么弄?
- delphi DBImage1显示数据库中图片超过1000行时出错stream read error
- 关于 hex文件转Bin文件空地址填充问题
- 有无API函数可获知webbrowser控件滚动条当前所在位置?拜托了!
- sql Server2000,一個sql在不同的數據庫上的執行結果不同
- ▲请教个基础的问题???谢谢各位了?
begin
case Length( IntToStr(StrToInt( Copy(FormatDateTime('YYYY/MM/DD',Now),6,2) )-1 ) ) of
1:Label1.Caption:='上個月:'+'0'+IntToStr(StrToInt( Copy(FormatDateTime('YYYY/MM/DD',Now),6,2) )-1 );
2:Label1.Caption:='上個月:'+IntToStr(StrToInt( Copy(FormatDateTime('YYYY/MM/DD',Now),6,2) )-1 );
end
end;