明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1451|回复: 4

[求助]计算明天日期的新思路

[复制链接]
发表于 2008-12-9 17:53:00 | 显示全部楼层 |阅读模式
本帖最后由 作者 于 2008-12-9 19:04:48 编辑

正规的算法是根据月份判断日期 如果遇到2月29还要判断闰年

我很懒  方法是直接设置系统时间看看是否修改成功 直到修改成功就是下一天

代码如下:

;;by nonsmall @ mjtd 2008

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
还没有人打赏,支持一下
 楼主| 发表于 2008-12-9 17:57:00 | 显示全部楼层

月底跳转的部分缺一句日期没有修改成功cmd就自动退出(目前可以去掉wsh.run的等待)

我在考虑是结束进程还是别的方法

dos编程不太熟 正在研究

不知道哪位高人有好的办法

发表于 2008-12-9 18:35:00 | 显示全部楼层
怎么不用DateAdd函数,直接DateAdd("d",1,Date)
 楼主| 发表于 2008-12-9 18:46:00 | 显示全部楼层
本帖最后由 作者 于 2008-12-9 18:52:51 编辑

多谢明总指点

晕了 VB不会真吃亏啊

学习!

Debug.Print DateAdd("d", 1, Date)

唉白写了

命令: DATE
Wed 2008/12/31 18:44:32.733
命令:
命令: (nextday)
"20090101"
命令: DATE
Fri 2008/2/29 18:44:49.687
命令:
命令: (nextday)
"20080301"
命令: DATE
Thu 2002/2/28 18:45:30.798
命令:
命令: (nextday)
"20020301"

 楼主| 发表于 2008-12-9 19:00:00 | 显示全部楼层

(vla-eval (vlax-get-acad-object)(strcat "msgbox " "(DateAdd(\"d\", 1, Date))"))

结贴

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-7-30 05:28 , Processed in 0.176863 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表