Question

对于从2016/11/29到2016/12/05的一周间隔，VB.NET中是否有一些预先打包的功能用于返回间隔month_1的天数（= = 2）并且在month_2区间（== 5）？对于完全在给定月份内下降的一周，间隔month_1的天数将为7，并且间隔的month_2中的天数将为0.

Answer 1

我所知道没有这样的帮助。 DaysInMonth方法在这里很有用。

Private Sub DaysInWeek(StartOfPeriod As Date, ByRef Month_1 As Integer, ByRef Month_2 As Integer)
    Month_1 = Date.DaysInMonth(StartOfPeriod.Year, StartOfPeriod.Month) - StartOfPeriod.Day + 1
    If Month_1 > 7 Then Month_1 = 7
    If Month_1 < 7 Then Month_2 = 7 - Month_1 Else Month_2 = 0
End Sub

你可以这样调用这个函数：

Dim w1, w2 As Integer
DaysInWeek(New Date(2016, 11, 29), w1, w2)

Answer 2

我认为这将完成工作，但我仍需要测试它。我仍然很想知道这种东西是否有固定的功能？

If (current_date.AddDays(7).Month() = current_date.Month()) Then
    num_days_in_mon1 = 7
    num_days_in_mon2 = 0
Else
    num_days_in_mon2 = current_date.AddDays(7).Day()
    num_days_in_mon1 = 7 - num_days_in_mon2
End If

VB：以随机周间隔报告一个月内的num天数

2 个答案: