---

日付の範囲から日数を計算させる

.NET でも、日付の範囲から日数を計算させることが可能です。 この機能を使えば、簡単に、 日割り計算させるアプリケーションや、管理ソフト など簡単に作成できます。 フォームに次の様なコードを記述します -----------VB.NETコーディングここから------------------- １．フォームに、テキストボックスコントロール、     ラベルコントロール、     ボタンコントロール     を配置します。     下記は、デフォルトのオブジェクトの名前と配置を示しています。    ┏━━━━━━━━━━━┓┏━━━━━━━━━━━┓    ┃Label1                ┃┃TextBox1              ┃    ┗━━━━━━━━━━━┛┗━━━━━━━━━━━┛    ┏━━━━━━━━━━━┓┏━━━━━━━━━━━┓    ┃Label2                ┃┃TextBox2              ┃    ┗━━━━━━━━━━━┛┗━━━━━━━━━━━┛    ┏━━━━━━━━━━━━━━━━━━━━━━━━┓    ┃Label3                                          ┃    ┗━━━━━━━━━━━━━━━━━━━━━━━━┛    ┏━━━━┓    ┃Button1 ┃    ┗━━━━┛ ２．ボタンコントロールの     Button1 text プロパティに「日数計算」と記述します。     ラベルコントロールの     Label1 text プロパティに「いつから」と記述します。     Label2 text プロパティに「いつまで」と記述します。 　　※説明用のためです。必須ではありません。    ┏━━━━━━━━━━━┓┏━━━━━━━━━━━┓    ┃いつから              ┃┃TextBox1              ┃    ┗━━━━━━━━━━━┛┗━━━━━━━━━━━┛    ┏━━━━━━━━━━━┓┏━━━━━━━━━━━┓    ┃いつまで              ┃┃TextBox2              ┃    ┗━━━━━━━━━━━┛┗━━━━━━━━━━━┛    ┏━━━━━━━━━━━━━━━━━━━━━━━━┓    ┃Label3                                          ┃    ┗━━━━━━━━━━━━━━━━━━━━━━━━┛    ┏━━━━┓    ┃日数計算┃    ┗━━━━┛ ３．ボタンコントロールをダブルクリックして、     ボタンのクリックイベントの編集を開始して、     次のコードを記述します。     Private Sub Button1_Click(ByVal sender As System.Object, _     ByVal e As System.EventArgs) Handles Button1.Click         Dim Date1 As Date         Dim Date2 As Date         Dim DCount As Long         If IsDate(TextBox1.Text) Then             Date1 = CDate(TextBox1.Text)         Else             MsgBox( _             "「から」の日付を正しく入力してください yyyy/mm/dd")             TextBox1.SelectAll()             TextBox1.Focus()             Exit Sub         End If         If IsDate(TextBox2.Text) Then             Date2 = CDate(TextBox2.Text)         Else             MsgBox( _             "「まで」の日付を正しく入力してください yyyy/mm/dd")             TextBox2.SelectAll()             TextBox2.Focus()             Exit Sub         End If         DCount = DateDiff(DateInterval.Day, Date1, Date2)         Label3.Text = "日数は、" & DCount & "日です"     End Sub ４．ビルドして実行します。 ５．フォームに表示された「いつから」の横の     テキストボックスに半角で「 2003/12/23 」を入れます。 ６．フォームに表示された「いつまで」の横の     テキストボックスに半角で「 2004/1/1 」を入れます。 ７．フォームに表示された     ボタン「日数計算」を押します。 ８．ラベルに「日数は、9日です」と表示されます -----------VB.NETコーディングここまで-------------------  DateDiff(DateInterval.Day, Date1, Date2) ２つの日付型の範囲を日数で返すようにしています。     DCount = DateDiff(DateInterval.Year, Date1, Date2)     DCount = DateDiff(DateInterval.Month, Date1, Date2) DateIntervalを変えることで、年数や月数を返すことが可能です。

---

---

　

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。