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

Question

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

Код

Dim dtr As String
text1.Text = "01/2011" 'User Input.... (mm/yyyy)
dtr = text1.Text

Если пользователь выбрал 01/2011, тогда дата должна отображать предыдущий месяц и год ...

ОжидаетсяВыходные данные

• Если пользователь ввел text1.text = "02/2011", тогда должно отображаться "01/2011"
• Если пользователь ввел text1.text = "01/2011",должно отображаться «12/2010»

Может кто-нибудь помочь мне сделать это?

Answer 1

Опираясь на ответ, который я дал на ваш последний вопрос ...

Dim dt As Date
Dim DaysInLastMonth As Integer
Dim LastMonth As String

dt = CDate(txtPeriod.Text)
dt = DateAdd("m", -1, dt)
LastMonth = Format$(dt, "mm/yyyy")
DaysInLastMonth = DateDiff("d", dt, DateAdd("m", 1, dt))

MsgBox LastMonth & vbCrLf & DaysInLastMonth

Answer 2

Вы можете преобразовать введенный текст в Date, используя CDate ().

Затем вы можете выполнить DateAdd (), указав единицу месяца и значение -1 (для вычитания).

Наконец, вы можете использовать Format () для преобразования обратно в строку в стиле мм / гггг, который вы ищете.

Answer 3

Вы можете проанализировать дату в переменную DateTime с помощью DateTime.TryParse и использовать метод AddMonths(-1) для переменной.

ОБНОВЛЕНИЕ: функция DateAdd в VB6 http://www.vb6.us/tutorials/understanding-vb6s-dateadd-function