如何给日期减去一些月份获得一个新的日期 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何给日期减去一些月份获得一个新的日期

共有2588人关注过本帖树形打印复制链接主题：如何给日期减去一些月份获得一个新的日期

xvkewen

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：593 积分：5538 威望：0 精华：0 注册：2012/6/29 19:11:00

如何给日期减去一些月份获得一个新的日期 发帖心情

Post By：2020/10/27 12:10:00 [只看该作者]

如题，这个新的日期会随着月份的变化而变化，举例如下：

1、比如今天是2020-10-27，如何使用代码得出2020-07-01；

2、如果今天是2020-01-13，如何使用代码获得2019-10-01；

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/27 12:11:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/1337.htm

xvkewen

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：593 积分：5538 威望：0 精华：0 注册：2012/6/29 19:11:00

Post By：2020/10/28 9:26:00 [只看该作者]

有点蓝老师，您好；

日期的全部成员我有仔细看的，但是这里有增加日期的方法，却没有减日期方法；有尝试过用以下方法来做的；但是这样做存在一个跨年的问题；所以想问一下有没有更简单的算法；

Dim t As Date = Date.today()

Dim y,m As Integer

y = t.year()

m = t.month()

Dim t1 As Date = New Date(y,m-3,1)

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/28 9:42:00 [只看该作者]

确定有仔细看帮助！！！你们说的仔细往往都是是一目十行吧

AddMonths

给日期值加上指定的月数。

语法：

AddMonths(Value)

Value: 要加上的月数，可以是负数也可以是正数。

例如：

Dim d As Date = #2/28/2008#
Dim d1 As Date = d.AddMonths(10) '加上10个月
Dim d2 As Date = d.AddMonths(-10) '减去10个月
Output.Show("10个月后的日期：" & d1)
Output.Show("10个月前的日期：" & d2)

下一主题 >> << 上一主题

主题：如何给日期减去一些月份获得一个新的日期