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

您可以使用CDate（）将输入的文本转换为日期。

然后，您可以执行DateAdd（），指定月份单位和值-1（用于减法）。

最后，您可以使用Format（）转换回您正在寻找的mm / yyyy样式的字符串。

Answer 3

您可以使用DateTime将日期解析为DateTime.TryParse变量，您可以在变量上使用AddMonths(-1)方法。

更新： VB6中的DateAdd函数 http://www.vb6.us/tutorials/understanding-vb6s-dateadd-function

如何获得上个月和上年

3 个答案: