delphi 当月的第一天, 当月的最后一天
2015-05-26 18:35
309 查看
//取当月的第一天
function TDealWithXML.FDOM(Date: TDateTime): TDateTime;
var
Year, Month, Day: Word;
begin
DecodeDate(Date, Year, Month, Day);
Result := EncodeDate(Year, Month, 1);
end;
//取当月的最后一天
function TDealWithXML.LDOM(Date: TDateTime): TDateTime;
var
Year, Month, Day: Word;
begin
DecodeDate(Date, Year, Month, Day);
if Month < 12 then inc(Month)
else begin Month := 1; inc(Year) end;
Result := EncodeDate(Year, Month, 1) - 1;
end;
function TDealWithXML.FDOM(Date: TDateTime): TDateTime;
var
Year, Month, Day: Word;
begin
DecodeDate(Date, Year, Month, Day);
Result := EncodeDate(Year, Month, 1);
end;
//取当月的最后一天
function TDealWithXML.LDOM(Date: TDateTime): TDateTime;
var
Year, Month, Day: Word;
begin
DecodeDate(Date, Year, Month, Day);
if Month < 12 then inc(Month)
else begin Month := 1; inc(Year) end;
Result := EncodeDate(Year, Month, 1) - 1;
end;
相关文章推荐
- ASP.NET C#如何获取当月的第一天和最后一天
- PHP获取当月的第一天和最后一天
- php获取当月天数及当月第一天及最后一天、上月第一天及最后一天实现方法
- asp.net 获取当月的第一天和最后一天示例
- Delphi根据当前时间求得上个月的第一天和最后一天
- DELPHI 获取本月 的第一天 和 最后一天
- java 获取当前年份 月份,当月第一天和最后一天
- java获取当月的第一天和最后一天
- 当月第一天、最后一天、下月第一天,时间date
- java获取当月的第一天和最后一天,获取本周的第一天和最后一天
- SQL Server获取当月天数,当月第一天,当月最后一天,本年最后一天,当月第一个星期
- 【Delphi】zz 获取本月第一天和最后一天的最简单的写法
- Delphi中本年、本月、本周第一天和最后一天
- Trafodion 计算当月第一天及最后一天
- java以及JavaScript获取当月第一天和最后一天日期
- 当月第一天、最后一天、本周第一天、本周最后一天及日期输出格式
- 使用SQL语句查询日期(当月天数,当月第一天,当月最后一天,本年最后一天,当月第一个星期) 日期转字符串
- java 获取当月的第一天和最后一天
- 使用SQL语句取相关日期(当月天数,当月第一天,当月最后一天,本年最后一天,当月第一个星期)
- java 获取当月第一天和最后一天 获取前一个月第一天和最后一天