0

このコードは常に「0」を返します理由がわかりません

Dim cur_month = DatePart(DateInterval.Month, Now).ToString()
Dim cur_date As String = "01/" + cur_month + "/" + (DatePart(DateInterval.Year, Now).ToString)
Dim sel_date As String = "01/" + (cmb_mnth.SelectedIndex + 1).ToString + "/" + txt_year.Text.ToString
Dim date_dif As String = DateDiff(DateInterval.Month, CDate(sel_date), CDate(cur_date))
MsgBox(date_dif)

cnb_mnthは月のコンボボックスです

txt_yearは、年を入力するためのテキストボックスです。

4

1 に答える 1

1

コンピューターの地域の日付設定には前月日(つまり、MM / dd / yyyy)があると思います。したがって、01はcur_dateとsel_dateの両方の月として解釈されます。

于 2012-06-21T04:47:45.323 に答える