Delphi根据当前时间求得上个月的第一天和最后一天
2013-06-27 09:41
435 查看
procedure TForm1.FormCreate(Sender: TObject);
var
firstDay,lastDay:TDateTime;
begin
firstDay := StrToDate(FormatDateTime('yyyy-mm-1',IncMonth(Now,-1))); //上个月的第一天
lastDay := IncMonth(firstDay,1)-1; //上个月的最后一天
mmo1.Lines.Add(DateTimeToStr(firstDay));
mmo1.Lines.Add(DateTimeToStr(lastDay));
end;
var
firstDay,lastDay:TDateTime;
begin
firstDay := StrToDate(FormatDateTime('yyyy-mm-1',IncMonth(Now,-1))); //上个月的第一天
lastDay := IncMonth(firstDay,1)-1; //上个月的最后一天
mmo1.Lines.Add(DateTimeToStr(firstDay));
mmo1.Lines.Add(DateTimeToStr(lastDay));
end;
相关文章推荐
- java获取本月开始时间和结束时间、上个月第一天和最后一天的时间以及当前日期往前推一周、一个月
- 根据当前时间来确定上个月的最后一天
- java获取本月开始时间和结束时间、上个月第一天和最后一天的时间以及当前日期往前推一周、一个月
- Linux 根据当前日期获取上个月的第一天和最后一天
- php 时间 当前月份、上个月、下个月等的第一天和最后一天
- 根据当前时间如何找到上月的第一天和最后一天?
- Java获取当前时间的上一个月和下一个月,第一天和最后一天,任意时间的第一天和最后一天,任意时间上一个月和下一个月
- java获取当前月第一天和最后一天,上个月第一天和最后一天
- Java 根据当前时间获取明天、当前周的周五、当前月的最后一天
- 根据传入时间得到上一年下一年第一天和最后一天
- php获取本周周一、周日时间,上周周一、周日时间,本月第一天,本月最后一天,上个月第一天,最后一天时间
- 根据当期时间得到本周第一天和最后一天
- 取出当前时间上个月的最后一天
- java获取当前月第一天和最后一天,上个月第一天和最后一天
- js获取当前时间,指定月份的第一天和最后一天
- MYSQL日期获取(本月最后一天、本月第一天、下个月第一天、本月天数、一个月前那一天、当前时间与一个月前之间的天数)
- java获取当前月第一天和最后一天,上个月第一天和最后一天
- SQL获取上个月第一天和最后一天的时间写法
- php获取本周周一、周日时间,上周周一、周日时间,本月第一天,本月最后一天,上个月第一天,最后一天
- php获取本周周一、周日时间,上周周一、周日时间,本月第一天,本月最后一天,上个月第一天,最后一天时间