excel怎么计算指定间隔月后的日期
时间:2023-04-08 05:16:15
excel计算指定间隔月后日期的步骤
1、首先我们打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:
Option Explicit
Sub ddt()
Dim rq As Date
Dim lx As String
Dim n As Integer
Dim Msg
lx = "m"
rq = InputBox("请输入一个日期")
n = InputBox("输入增加月的数目:")
Msg = "新日期:" & DateAdd(lx, n, rq)
MsgBox Msg
End Sub
3、这里我们先对变量做声明,其中rq变量为日期类型,lx为字符串,n为整数型。msg我并没有设置具体类型,vba会将其默认为可变类型variant。
4、稍微详细的解释一下代码为什么会这样写,定义变量lx为一个字符串值,因为dateadd函数的必须参数1是一个字符串,这里做个定义其实等价于直接输入。但是这样便于阅读。
5、输入日期我们并没有做错误纠正,那么只有对excel了解的人,才会输入正确的日期格式,这里我只做一个简单的示例,提示大家输入2016/8/19这样的格式日期。增加的月数我们是赋值给了n这个变量。
6、最后用msgbox来输出最后的结果,其中,dateadd函数的第一参数是以月增加,第二参数是增加数,第三参数是指定的日期。运行代码我们可以得到结果。增加20个月后的结果。
标签:参数,增加,日期,输入,Excel教程
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
巴铁禁止赎回兑付延迟 投资者恐血本无归
2023-11-04 13:37:10
![](https://img.aspxhome.com/file/2023/4/a306804_0s.jpg)
wps怎么样压缩文件
2022-08-09 05:26:29
![](https://img.aspxhome.com/file/2023/5/a171115_0s.jpg)
如何在macOS Big Sur和Catalina中安装隐藏字体?
2022-10-05 22:58:36
![](https://img.aspxhome.com/file/2023/6/a204776_0s.jpeg)
Win10系统下跟cortana小娜玩游戏的方法
2023-08-30 01:34:07
![](https://img.aspxhome.com/file/2023/28/a242884_0s.jpg)
Win10专业版怎么一键关闭所有程序
2022-03-10 02:00:14
![](https://img.aspxhome.com/file/2023/26/a223247_0s.png)
word2003打开时遇到发送错误怎么解决
2023-12-10 05:08:24
![](https://img.aspxhome.com/file/2023/4/20074_0s.jpg)
微软对win7的支持还剩下6个月,呼吁尽快升级到win10
2022-03-04 17:55:26
![](https://img.aspxhome.com/file/2023/3/a296033_0s.png)
浏览器百度图片全部不显示的解决方法
2022-10-04 05:40:29
![](https://img.aspxhome.com/file/2023/4/a309548_0s.jpg)
Win11如何在Edge中开启IE模式?
2022-10-27 05:26:52
![](https://img.aspxhome.com/file/2023/27/a238669_0s.png)
如何在Mac上使用仪表盘获取快速信息呢?
2022-03-20 08:04:12
![](https://img.aspxhome.com/file/2023/2/a206042_0s.jpeg)
田园小清新风摄影后期调色lr预设
2022-09-27 05:32:59
![](https://img.aspxhome.com/file/2023/4/a205484_0s.jpeg)
远程桌面的连接会自动断开怎么办?
2022-12-22 02:54:56
网易mumu模拟器怎么开vt?网易mumu模拟器打开vt教程
2022-01-21 22:16:16
![](https://img.aspxhome.com/file/2023/30/a264201_0s.jpg)
网易有爱如何设置血条_网易有爱设置血条的详细方法教程
2023-06-09 06:20:50
![](https://img.aspxhome.com/file/2023/4/a312845_0s.jpg)
怎么用U盘重装Win11系统?U盘重装win11系统步骤图解
2023-12-07 16:12:04
![](https://img.aspxhome.com/file/2023/27/a235103_0s.png)
如何用会声会影来录制视频?
2022-05-12 05:27:24
三款Mac烧脑解谜冒险游戏推荐—绞尽脑汁,好玩到停不下来
2023-05-31 05:21:40
如何在 Apple Music 中聆听支持动态头部追踪的空间音频?
2023-09-03 01:13:58
![](https://img.aspxhome.com/file/2023/6/45616_0s.png)
复合饼图的做法,一分钟学会
2022-02-15 14:33:13
![](https://img.aspxhome.com/file/2023/2/a142652_0s.jpg)
Win11如何打开网络适配器?Win11打开网络适配器方法
2022-01-15 14:47:33
![](https://img.aspxhome.com/file/2023/27/a237282_0s.png)