Question

我想要得到的前一個月總天數

代碼

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

「這會給本月totaldays ...

但我想要獲得前一個月的總天數

用戶只會輸入當前月份，但代碼應該驗證上個月

期望輸出

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