以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171540)
--  作者：huizhong
--  发布时间：2021/9/2 13:04:00
--  日期问题
老师，我想实现通过 YF 的变化，获得延后指定月数的最后一天，代码该如何编写，也就是说，如果：d = 2021/09/23；YF = 2 如何令LD = 2021/11/30

Dim d As Date = e.Form.Controls("DateTimePicker3").value
Dim YF As Integer = e.Form.Controls("ComboBox1").value ‘指定需要提前几个月
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim FD As Date = New Date(y,m,1) \'获得该月的第一天
Dim LD As Date = New Date(y,m,Days) \'获得该月的最后一天
--  作者：有点蓝
--  发布时间：2021/9/2 13:51:00
--  
……
Dim FD As Date = New Date(y,m,1) \'获得该月的第一天
Dim LD As Date = FD.addmonths(YF+1).adddays(-1) \'获得该月的最后一天
--  作者：huizhong
--  发布时间：2021/9/2 14:11:00
--  
谢谢老师