vb 没有 mothdays 如何 获取当前月份有多少天

在VB中，可以使用DateSerial函数来获取指定年份和月份的日期，然后使用Day函数获取该日期的天数，从而得到当前月份的天数。以下是一个示例代码：

Dim daysInMonth As Integer
daysInMonth = Day(DateSerial(Year(Date), Month(Date) + 1, 0))

这段代码将获取当前月份的天数并将其存储在变量daysInMonth中。请注意，Month(Date) + 1用于获取下一个月份的第0天，这将返回当前月份的最后一天。