VB.net如何计算每月的15号和30号？

Question

例如，1月15日是1月1日至15日，1月30日是1月1日至1月30日。由于并非所有月份都由30天组成，因此2月15日将是1月31日至2月14日。那么获得当前月15号和30号的公式可能是什么？ 提前致谢。

Answer 1

如果我正确理解了您的问题，您想要该数字是一年中的哪一天？ 如果是这样，您可以这样做

Sub Main()
    Dim FIFTEENTH As DateTime = New DateTime(Now.Year, Now.Month, 15)
    Dim THIRTIETH As DateTime
    Dim hasThirty As Boolean = (DateTime.DaysInMonth(Now.Year, Now.Month) >= 30)

    Console.WriteLine("The fifteenth: ")
    Console.WriteLine($"Day of the Year: {FIFTEENTH.DayOfYear}")
    Console.WriteLine($"Day of the Week: {FIFTEENTH.DayOfWeek.ToString("D")} / {FIFTEENTH.DayOfWeek.ToString("g")}")

    If (hasThirty) Then
        Console.WriteLine("The Thirtieth: ")

        Console.WriteLine($"Day of the Year: {THIRTIETH.DayOfYear}")
        Console.WriteLine($"Day of the Week: {THIRTIETH.DayOfWeek.ToString("D")} / {THIRTIETH.DayOfWeek.ToString("g")}")
    End If

End Sub