vb.net 從文本框日期獲取一年的第一天/上個月的最后一天/上個月的第一天

Question

我有一個簡單的文本框，我將輸入一個隨機日期（8/6/2017）。 我有三個標簽。 我想要的只是 label1.text = 1/1/2017 和 label2.text = 7/1/2017 和 label3.text = 7/31/2017。

它必須根據我在文本框中輸入的日期提取這些日期，並且不限於當前年份。

Dim 1stDayYr As New Date(Date."" & Textbox.text & "".Year, 1, 1)

Label1.text = 1stDayYr

TBH - 我什至不知道如何根據 TB 日期開始獲取上個月的第一天或基於 TB 日期的上個月的最后一天。

Answer 1

    Dim baseDate As DateTime

    Dim beginningOfYear As DateTime
    Dim beginningOfPreviousMonth As DateTime
    Dim endOfPreviousMonth As DateTime

    If DateTime.TryParse(TextBox1.Text, baseDate) Then
        beginningOfYear = New DateTime(Year(baseDate), 1, 1)

        Dim previous As DateTime = baseDate.AddMonths(-1)
        beginningOfPreviousMonth = baseDate.AddMonths(-1).AddDays(-1 * previous.Day).AddDays(1)

        endOfPreviousMonth = beginningOfPreviousMonth.AddMonths(1).AddDays(-1)

        Console.WriteLine("Base date: {0} Beginning of year: {1} Beginning of previous month: {2} End of previous month: {3}", baseDate, beginningOfYear, beginningOfPreviousMonth, endOfPreviousMonth)
    Else
        Console.WriteLine("Invalid date")
    End If

但是您應該使用 DateTimePicker 進行日期輸入

Answer 2

感謝您的回答，我很接近。

Dim previous As DateTime = baseDate.AddMonths(-1)
beginningOfPreviousMonth = baseDate.AddMonths(-1).AddDays(-1 * previous.Day).AddDays(1)

VS 不喜歡你的前一天，我不知道為什么。