日期自动加1天 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日期自动加1天

共有2761人关注过本帖树形打印复制链接主题：日期自动加1天

cnsjroom

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

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（蓝蚂蚁）日期自动加1天 发帖心情

Post By：2021/2/5 19:27:00 [显示全部帖子]

Dim d As Date = #2/28/2021#

Dim d1 As Date = d.AddDays(1) '加上40天

Dim d2 As Date = d.AddDays(-1) '减去40天

Output.Show("1天后的日期:" & d1)

Output.Show("1天前的日期:" & d2)

1天后的日期:2021-03-01

1天前的日期:2021-02-27

主题：日期自动加1天