1

日付を移動しようとしています。つまり、1 か月前に戻るか、1 か月前に進みます。今月 (2 月) の時点で 1 か月さかのぼって 1 月とすると、1 か月足すと 2 月の最終日 (28 日) になります。開始日は、すべての月の開始日が 1 日なので問題ありません。

誰でもアドバイスしてください。ありがとう

VB 

            hStartDate.Value = "2013/2/01 12:00:00 AM"
            hEndDate.Value = "2013/2/28 11:59:59 PM"


            Dim StartDate As New Date
            StartDate = hStartDate.Value
            hStartDate.Value = StartDate.AddMonths(-1)


            Dim EndDate As New Date
            EndDate = hEndDate.Value
            hEndDate.Value = EndDate.AddMonths(-1)

出力

            hStartDate.Value = "2013/01/01"
            hEndDate.Value = "2013/01/28 11:59:59 PM"
4

2 に答える 2

0

これは役立つはずです：DevCurryは基本的に、当月の1日を取得し、1日を削除するため、前月の最終日になります。

    hStartDate.Value = "2013/2/01 12:00:00 AM"
    hEndDate.Value = "2013/2/28 11:59:59 PM"


    Dim StartDate As New Date
    StartDate = hStartDate.Value
    hStartDate.Value = StartDate.AddMonths(-1)


    Dim EndDate As New Date
    EndDate = hEndDate.Value
    hEndDate.Value = StartDate.AddDays(-1)
于 2013-02-04T07:19:43.547 に答える
0

これを試して終了日を設定してください（hStartDate変更後）： 

hEndDate.Value = New Date(hStartDate.Year, hStartDate.Month, Date.DaysInMonth(hStartDate.Year, hStartDate.Month))

この関数Date.DaysInMOnth()は、指定された年の月の最後の日を返します。必要に応じて、次のように日付を設定することもできます。

hEndDate.Value = EndDate.AddMonths(-1)
hEndDate.Value.Day = Date.DaysInMonth(hStartDate.Year, hStartDate.Month)
于 2013-02-04T08:35:11.160 に答える