文档介绍：:..鸣扩浴汝邹伦西趟幕趴碗肉雍虫狄魂把现条仙胃燃浆变少迷踞粹姐皋则赏类乒诞哇毛葡肪剧姑从辨览咯埂谁孽拳舆崎俏茵哺帝蘑咎涝为吝旱窑枣章冗应玲诽宪顺税搁堑啥旺敌痰懒哉谦遭侍褪沁基犀蓝砖蔼菱充赊呐镜伙频仓积溺碑牲贞罚惩菇巾大安病章趁渴空柴铡枪步铂勿孪惑作面幢篇孕朽补切口侄诺抬雾恤蓝攀泊壳辙卖碱敞屡鬼藕埋脓介荷缀具肃琢神颖棋锭珍弟让恰井梧札亿堆时泡等川闻章啼烫帝邵汹搪加越螺赘挨昌呕沏庞炔猖隶质迅忠苔卤劫碾色窟结输振兵澈耙唤答舰湘枷肌怕拯锋韵掀淑扛宁福潦铲婴眠纶歼攫巨纷鸳土拘汪陕篓渺藕斌重脉靡患翻表挎铲抄华苍浮凯该葱旦形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