【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






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

.NET でも、日付の範囲から日数を計算させることが可能です。

この機能を使えば、簡単に、
日割り計算させるアプリケーションや、管理ソフト
など簡単に作成できます。


フォームに次の様なコードを記述します


-----------VB.NETコーディングここから-------------------


1.フォームに、テキストボックスコントロール、
    ラベルコントロール、
    ボタンコントロール
    を配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。

   ┏━━━━━━━━━━━┓┏━━━━━━━━━━━┓
   ┃Label1                ┃┃TextBox1              ┃
   ┗━━━━━━━━━━━┛┗━━━━━━━━━━━┛
   ┏━━━━━━━━━━━┓┏━━━━━━━━━━━┓
   ┃Label2                ┃┃TextBox2              ┃
   ┗━━━━━━━━━━━┛┗━━━━━━━━━━━┛
   ┏━━━━━━━━━━━━━━━━━━━━━━━━┓
   ┃Label3                                          ┃
   ┗━━━━━━━━━━━━━━━━━━━━━━━━┛
   ┏━━━━┓
   ┃Button1 ┃
   ┗━━━━┛



2.ボタンコントロールの
    Button1 text プロパティに「日数計算」と記述します。

    ラベルコントロールの
    Label1 text プロパティに「いつから」と記述します。
    Label2 text プロパティに「いつまで」と記述します。
  ※説明用のためです。必須ではありません。

   ┏━━━━━━━━━━━┓┏━━━━━━━━━━━┓
   ┃いつから              ┃┃TextBox1              ┃
   ┗━━━━━━━━━━━┛┗━━━━━━━━━━━┛
   ┏━━━━━━━━━━━┓┏━━━━━━━━━━━┓
   ┃いつまで              ┃┃TextBox2              ┃
   ┗━━━━━━━━━━━┛┗━━━━━━━━━━━┛
   ┏━━━━━━━━━━━━━━━━━━━━━━━━┓
   ┃Label3                                          ┃
   ┗━━━━━━━━━━━━━━━━━━━━━━━━┛
   ┏━━━━┓
   ┃日数計算┃
   ┗━━━━┛




3.ボタンコントロールをダブルクリックして、
    ボタンのクリックイベントの編集を開始して、
    次のコードを記述します。


    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


4.ビルドして実行します。

5.フォームに表示された「いつから」の横の
    テキストボックスに半角で「 2003/12/23 」を入れます。

6.フォームに表示された「いつまで」の横の
    テキストボックスに半角で「 2004/1/1 」を入れます。

7.フォームに表示された
    ボタン「日数計算」を押します。

8.ラベルに「日数は、9日です」と表示されます





-----------VB.NETコーディングここまで-------------------


 DateDiff(DateInterval.Day, Date1, Date2)
2つの日付型の範囲を日数で返すようにしています。


    DCount = DateDiff(DateInterval.Year, Date1, Date2)

    DCount = DateDiff(DateInterval.Month, Date1, Date2)

DateIntervalを変えることで、年数や月数を返すことが可能です。



 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=Oe3

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

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2018/10/21(日)00:05 更新