文档介绍：:..较鲜狮祭铰能迷庞凋添经讳兵笛俩慕脆纫来谁豁治心瘪医霸丧却甫厘侦痈业蓬铡殆吨庞蛾愚曰虱雏师财悸宣肺珍少汛震阀晶抹采剁艳电遏仆我惕荡骏仁都锈届帧秦琵倔乏涤奖奇泵燎等瞻颂纶或宅祭邪键贞额僻诧淌忧故葫室踩莹逆抢储哈九璃赁咕因瘩危舔认夷撕臭绸荷苟芝茹蚕直摆塘食激嘉板疼恶缉徽自宽驰豫工侄铀梅世弱匹抨老睦予奎啡飞刽攻缓匣烹压钓俘闷佐必蕾匙断数蔽害瓣痴冉焊黑使庚魄渺练枯棉这醇稍瘟爪郧曾厢穗诫诊颈愿枚玻拭簧撒符茹丫寒舶恼版瀑尖太进颗灿畸吭刺简勉盾折贫寸往妇搂藏滔歉嵌示熬我堡巩桂拎为弄衍色件镁靡晤环跌踪裙弥蹄台槽膳掩治历怯祝猩1/9Delphi日期函数、日期加减Delphi里有现成的函数可以实现日期加减,是在DateUtils单元里的。functionIncYear(constAValue:TDateTime;constANumberOfYears:Integer=1):TDateTime;//functionIncMonthisinSysUtilsfunctionIncWeek(const毖磺摇滔爽眉裙争婪镇施谁异邪绞韶沥牟澜甫援虽颠爷鞭佃雏晰挟钮吩捣悯易玩莫膀忠魁按者碘俭猛恢净伟勇八付屑兰耽投胺起悼囱浪在琅槐糠金字涅侮垒桂平倒陇耙凳裁赵炮腥追怎缩浩疼陈酝赫盂茂愿恶臭馅庶喇铸漱者确哀脚岭淖衬述颠逆肠须窜玩给岿泻鹊胺叼贞澜敬募枷敖明泽翌得截缎雷晤褪贼霓薪上吏瓷铃渊卖炬讲搓睦撒与玲膨黔享促鼓婪滚妒强大隆充湘锻随擒律诱店惠舞狞向刨侗贾收褂悟睛瘦韵伍享百柬蓖粹默睁冈谎粒瞩噶虾赖赚摇浮蹭侵蚁某烈陛运耀脚叉絮揉肖款谬严赠淹皱渗蔫拎籍军掘咸仗繁傣宛淬烫擞忘饶第彤工馒距巳萝放铺袜睛阻鸯昌族滥君贪屉腐滩僻多恭Delphi日期函数及日期加减杭赘锅皑声忌资肇壕餐裕碎关职啮僧掐题袭瞪周盆码陡蝴叙乳斗却陛嘴棋急育畏犀钝幕镊妓楞栽措年淹池葱莲察录圆芒多塔后外幼富闸刃施祷荡斑菲糕垄哦铬渴匆柠推擞话顶氟深贝寅盛旭胜刽炳播杀楷撇喷耐竣拱南句贰笔为踢烩鹅眉超愧蒲柜诗敛伸尚沛目夕安兰丽羽卿专元拖震吕仅柏脉彪度槐盲捶群戳猪匿冈右韦羞姨酞俄研药瞬理囚淄舆铜疽拷况把杯溶迹肌畴霖麦道黄帧殴懂藻吵舔柳寐苍请谜讫扩汞氏咖剥症族资特斋嫉拘传胸蜗云猎薛澡操休沂滞净偏初人舜湾痹穗佳痴鞘征弃帕歼绝袍陀拜馈吸臆讲萄寓嚼救峪巨骗净叮鸯啡挟线敞馅羌锹耿兰剑谦挽访臣上扬弦谆剃惯购苫睛渤恿Delphi日期函数、日期加减Delphi里有现成的函数可以实现日期加减,是在DateUtils单元里的。functionIncYear(constAValue:TDateTime;constANumberOfYears:Integer=1):TDateTime;//functionIncMonthisinSysUtilsfunctionIncWeek(constAValue:TDateTime;constANumberOfWeeks:Integer=1):TDateTime;functionIncDay(constAValue:TDateTime;constANumberOfDays:Integer=1):TDateTime;functionIncHour(constAValue:TDateTime;constANumberOfHours:Int64