delphi 当月的第一天, 当月的最后一天

摘要:
//取每月的第一天函数TDealWithXML FDOM(日期:TDateTime):TDateTime;varYear,Month,Day:Word;开始解码日期(日期、年、月、日);结果:=编码日期(年、月、1);结束;//以每月最后一天的函数TDealWithXML为例。LDOM(日期:T

//取当月的第一天
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;

免责声明:文章转载自《delphi 当月的第一天, 当月的最后一天》仅用于学习参考。如对内容有疑问,请及时联系本站处理。

上篇安卓Design包之CoordinatorLayout配合AppBarLayout,ToolBar,TabLaout的使用SMARTFORM报表程序设计(2)下篇

宿迁高防,2C2G15M,22元/月;香港BGP,2C5G5M,25元/月 雨云优惠码:MjYwNzM=

相关文章

java中 mapper.xml 文件中resultmap

<resultMap type="org.springblade.desk.entity.sap.purchase.SapProcessPurchaseOrder"> <result column="card_code" property="cardCode"/> <result colu...

ios代码实现时间设置NSDate

本文转载至 http://www.baidu.com/link?url=dcQWiL1FD_She6P4RM2IvEeJas0_gtG3LkRNTV5H87X0AyKCHvwYjBz2hdcB2JVpTyMRhl6Hno2FX_U3TEDgZq             //1),创建一个对象,赋值为当前日期date 创建的NSDate对象,获得的...

python 获取系统时间,新建时间目录

import datetime import os theTime = datetime.datetime.now() print(theTime) theTime = str(theTime) date_split = theTime.strip().split(' ') date_today = date_split[0].replace('-', '...

delphi RTTI 反射技术

[delphi]view plaincopy unitUnit_main; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,TypInfo; type TForm_main=class...

Linux date 命令

date命令用于打印或设置系统日期和时间,常见用法如下: [root@localhost ~]# date //查看当前时间 [root@localhost ~]# date +"%Y-%m-%d" //格式化输出 [root@localhost ~]# d...

MongoDB 将字符串日期改为Date类型日期的方法

MongoDB 虽然看起来是一个 BSON 结构的数据结构,但其实里面还包含很多数据类型,这些数据类型比 MySQL 的数据类型还丰富。 最近我在使用 MongoDB 的时候,发现我导入进 MongoDB 中的日期都是字符串。而 MongoDB 明明是有日期 Date 类型的字段,那么如何将字符串 String 转化成 Mongo 支持的 Date 类型呢...