Как получить общее количество предыдущих месяцев

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))