说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何得到N个月以前的年、月

编辑:说三道四文库 发布时间:2017-12-14 03:00
HTML文档下载 WORD文档下载 PDF文档下载
如题
采用TDateTime, 具体可查查帮助, 很详细的.
AnsiString GetLastDate(AnsiString now,unsigned short last_month)
{
    double d_day;
    unsigned short y,m,d;//年月日
    AnsiString s;
    TDate theDate;
    char temp[32];

    s=now;

    if(s.ToIntDef(0)<19800101)//不合法日期
    {
        throw(Exception("不合法日期"));
    }


    y=s.SubString(1,4).ToIntDef(0);
    m=s.SubString(5,2).ToIntDef(0);
    d=s.SubString(7,2).ToIntDef(0);

    try{
        theDate=TDate(y,m,d);//测试有效日期
    }catch(...)
    {
        throw(Exception("不合法日期"));
    }

    m-=1;

    y=y-3+(12*3+m-last_month)/12;
    m=(12*3+m-last_month)%12;

    m+=1;

    again:
    try{
        theDate=TDate(y,m,d);
    }catch(...)
    {
        d-=1;
        goto again;
    }
    theDate=theDate+1.0;
    return theDate.FormatString("yyyyMMdd");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::menu_SixMonthClick(TObject *Sender)
{
    try{
        Edit_TimeStart->Text=GetLastDate(Edit_TimeEnd->Text,6);//最近六个月
    }catch(Exception &E)
    {
        ShowMessage(E.Message);
        Edit_TimeStart->SetFocus();
        return;
    }
}
//---------------------------------------------------------------------------
具体程序我就不说了
给你一个步骤吧
将当前时间用IncMonth来得到N个月以前的时间
然后用DecodeDate 来得到年月日
函数的具体用法看帮助吧
【专访】敏捷专家何勉:让测试成为拉动组织敏捷实施的力量 Docker与微软合作 支持Windows Server 企业号热问热答——来深圳微信开发者大会聆听一线讲师的实战分享 AngularJS 1.3.0正式发布 超光速发展! 学个痛快!十款不容错过的Swift iOS开源项目 HTML5:助力智能电视生态实现新跃迁 MDCC 2014移动开发者大会公布全部议程 求更密集!Apple Watch SDK将于11月正式开放 【答疑】微信开放平台开发者资质认证 专访Informatica亚太和日本区副总裁Murray Sargant:中国公司正考虑数据资产货币化 Facebook又开源:让iOS应用界面极致流畅的ASDK框架 一周消息树:盘点史上最具毁灭性的软件Bug 微信公众平台设备功能支持个人开发者接入 2014中国移动开发者大调查第三批获奖名单曝光 微信企业号上线,带你看看它的真面目! OpenStack Juno版本发布——支持Spark和NFV 【十问十答】对话Go语言开发团队 苹果要求、Android开始,64位时代真的来了! MDCC 2014产品与设计论坛:带你发现产品之美 Java开发者值得关注的7款新工具 助力国产移动产品出海,UCloud部署北美节点 Zack Parker:用EC2在Cotap上打桩 用卫生棉杀敌冲关!两个高中女生的创意游戏 专访《Java程序员修炼之道》作者Ben Evans:保守的设计思想是Java的最大优势 Google收购Firebase 帮助程序员快速开发出移动App和Web App 微信支付开发关键点技术解析 游戏任玩!开源虚拟现实头戴式设备Open DoVision MDCC大会召开倒数10天 看Twitter、Facebook和国内“BAT”三大巨头最新动态 《近匠》Wijmo 5 CTO:从Web到移动,我的25年编程生涯 重复充电、防丢失!多功能智能行李箱Bluesmart 【设计经验传承】图标设计初阶要先型 给大家一个免费的电子邮箱 如何将一个xml中的Element或Node添加到另一个xml中?100相送!!! 高手进来。我不知道为什么经常出在数据库不能更新的问题。?? 精彩不容错过 Runtime类使用时遇到一个问题,请高手指点,先谢了! 需要UNIX网络编程(第2版 第一卷)的电子版本的书籍! 怎样让builder.parse()忽略DTD找不到的错误继续分析? 各位大侠,请帮忙,jsp页面出现空白,怎样解决? 在JBuilder中有多个Frame如何指定其中(任意一个为首先启动的Frame) 如果有入口函数main,系统就认为是PUBLIC 类?? pb+db2,导出excel表时要对表的某个字段转换时到80条左右就为空白(共2000条) 怎样把数据库中的各个表到成文件形式呢? 请如何用命令解开由jar生成的压缩文件? 水晶报表打印问题(在线等)! 我想让JFileChooser的savedialogue在按了approve后仍能保持一会,怎么办? 简单的程序!先谢谢了! 谁有遇到这种情况,使用80以外的端口建站,有部分用户无法访问网站? 怎么使图片可以直接粘贴到编辑框中,直接上传到服务器上呢?? insert语句怎么判断是否成功啊? 希望熟悉delphi调用excel的朋友解答,越多越好,分不够再加 问一个ResultSet的问题? 控件开发遇到的子属性设置问题,大侠请进 lpn来接分 关于计算机等级考试的问题 啊呀 来晚了! 赶快补上一份祝福 上海日記:减肥成绩 report中字体重叠的问题 如何忽略大小写? 【水园中秋庆典主会场】每逢佳节倍思情,所有不在亲人身边的游子们进来坐坐吧。祝天下所有的严父慈母身体健康! qiockReport中,detail中如何补空行。使其打印完一页 国内哪家在uclinux方面做的比较好? DataGrid更新记录时出现问题 ADSL上网问题请教! 怎样修改xp的输入法切换的快捷键? 关于ADO对象的问题??求助。 如何卸载AIX上的Domino5.011? 求助:我的.net程序在某机器上报错"String was not recognized as a valid DateTime" keil的断点不能设置了。 请问我怎么知道我的sql server服务器名? 小女子急需一个JSP+JMAIL实现的邮件群发(含附件),非常之急!!! 我提供空间,大家有什么资料可以共享的话,可以和我联系 sqlserver7远程连接问题,客户端无线上网,网络库用multiprotocol,本来可以连接,装了防火墙就不行 如何将一幅图片转成二进制流的格式?? 简单问题!请高手指教! 控件obout_SlideMenu_Pro_NET的使用问题 关于servlet和提交页面的问题求教 xmsjms就是21bird的马甲!你们CSDN玩得太过分了!强烈谴责21bird玩弄大家!up就有分! xmsjms就是21bird的马甲!你们CSDN玩得太过分了!强烈谴责21bird玩弄大家!up就有分! 简单问题,在线等 xmsjms就是21bird的马甲!你们CSDN玩得太过分了!强烈谴责21bird玩弄大家!up就有分! 高分!!!如何设置windows media服务的用户验证? 问下大家我的手机内存卡坏了,里面的东西很重要,怎么才能提...迷茫了,在此谢谢大伙了8o 为什么都说愚公不愚啊!明明就很笨,摆明搬家比移山来的快啊,退一步说就算不搬家也可以挖隧道嘛,而且他就没想过让他孙子儿子一起去运山的话,他哪来的孙媳妇啊!还想子子孙孙无穷匮也呢, 巫术在商代王权中起到什么作用 说下我的手机内存卡坏了,里面的东西很重要,怎么才能提...迷茫了,在此谢谢大伙了9c 哪里有九年级物理基训的答案(是十一章到十二章的)给我网址也行.快.我等急用.感谢诸位了.祝你们中秋节快乐. 与丿灬皇朝艹天羽灬的情侣名字 最好带有丿灬皇朝艹的 长江在黄河的上面还是下面? 练字时要怎么起笔,落笔 才可以写好 有笔锋 渡荆门送别 全诗以什么起笔 甲烷燃料电池负极为什么会消耗水正极:2O2 + 8H+ + 8e- = 4H2O负极:CH4 + 2H2O -8e-=CO2 + 8H+这是正负极反应 但是一直没明白负极反应为什么会消耗水 说下原理 心之官则思、 三季度A股交易账户增长近五成 场整体“杀光中国人”言论事件持续发酵 美华河里漂着的“布娃娃”竟是孩子 被路人打歪主意从十四楼摔下 面对受伤小偷众产下龙凤胎的姑娘执意出院 姑姑舅妈及杭州着力疏通\"毛细血管\" 28个西湖手划船调价后零投诉 灵隐野导\"媒体称广州公务员年收入超17万 不少人大信访局原副局长辞职当律师 称不是北京天坛公园频发虐猫事件 已致数十只福州旅游局官博骂记者为狗 回应:非官主打陌生人社交的约你妹获千万级人民币先收购、后买单的中国特色并购私藏干货:漫谈招聘行业的前世今生早秋也要蕾丝风!穿出时髦性感高级范儿RS跃升为飞兆全球特许经销商想你,真的不需要理由立邦,为你刷出新生活女人 ,7种暗示说明你没那么爱他甜美雅格 胖美眉 连衣裙 卫衣 搭配热剧,经济效应远非如此!男人给女人拎包的哲学一曲琉璃红颜老虚界战神混乱修真仙起21世纪希尔童话北宋之乱世枭雄万画之王影迹仙爻父子情仇医道黑客塔林旅游会善寺旅游青岛总督府旅游德国领事馆旅游蓬莱仙洞旅游牯牛降旅游秋浦河旅游小鱼山旅游信号山旅游盘龙山旅游伏龙山旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘