因此,我正在制作一个程序,该程序将根据用户给出的时间跨度给出新的日期(例如 Windows 10/11 中内置计算器应用程序中的日期计算)。问题是,我只能设法添加年份,而日期和月份保持不变。
这是我的尝试:
Dim dateresult As String
Dim datenow As Date = Now.ToShortDateString
dateresult = datenow.AddDays(CBbDay.Text)
dateresult = datenow.AddMonths(CBbMonth.Text)
dateresult = datenow.AddYears(CBbYear.Text)
Label17.Text = dateresult
例如,如果今天的日期是 2024 年 1 月 1 日,并且 CBbDay、CBbMonth 和 CBbYear 的值为 10,则我从该代码 ( ) 中得到的结果dateresult
是 2034 年 1 月 1 日,而它应该是 2034 年 11 月 11 日。
我的代码有什么问题或者我使用了错误的函数吗?
谢谢。