Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[求助]addmonths

1楼
lgj716330 发表于:2024/7/3 19:07:00
我选择了个日期,比如2024-06-30 23:59:59,然后在这基础上减一个月,结果显示2024-05-30 23:59:59,不是显示2024-05-31 23:59:59吗
Dim d1 As Date = e.Form.Controls("RQ1").Value
Dim d3 As Date = d1.AddMonths( - 1)

很奇怪,同是31天的,有些月份有问题,有些月份没问题
[此贴子已经被作者于2024/7/3 19:19:10编辑过]
2楼
有点蓝 发表于:2024/7/4 9:45:00
比较准确的用法是取当月1日减一天

Dim d1 As Date = CDate("2024-06-30 23:59:59")
Dim d2 As Date = New Date(d1.Year, d1.Month, 1)
Dim d3 As Date = d2.AddDays( - 1)
Output.Show(d3)

共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.