如何获取上个月的总计数

Question

我想获取上个月的总天数

代码

Dim period as string
period = '01/2011'
totdays = DateDiff("d", txtPeriod, DateAdd("m", 1, txtPeriod))

'这将给出该月的总天数...

但我想获取上个月的总天数

用户将仅输入当前月份，但代码应验证上个月的

预期输出

If period = '02/2011' means then it should display 31 days 'January
If period = '03/2011' means then it should display 28 days 'February

如何这样做...

任何帮助

Answer 1

这对我来说效果很好。另外，为什么你有一个变量period，但在计算中使用txtPeriod？

Dim dt As Date
Dim DaysInMonth As Integer

dt = CDate(txtPeriod.Text)
dt = DateAdd("m", -1, dt)
DaysInMonth = DateDiff("d", dt, DateAdd("m", 1, dt))