玄関へお回り下さい。
日付・時刻に関するメソッド(DateTime 構造体)等の使用例その１ (15個)    (SNo.010)
Add　　　　　　　このインスタンスの値に指定した時間数を加算します
AddDays　　　　　このインスタンスの値に、指定した日数を加算します
AddHours　　　　 このインスタンスの値に指定した時間数を加算します
AddMilliseconds　このインスタンスの値に指定したミリ秒数を加算します
AddMinutes　 　　このインスタンスの値に指定した分数を加算します
AddMonths　　　　このインスタンスの値に指定した月数を加算します
AddSeconds　 　　このインスタンスの値に指定した秒数を加算します
AddTicks　　 　　このインスタンスの値に指定したタイマー刻み数を加算します
AddYears　　 　　このインスタンスの値に指定した年数を加算します
DayOfWeek　　　　このインスタンスで表される曜日を取得します
DayOfYear　　　　このインスタンスで表される年間積算日を取得します
DaysInMonth　　　指定した年の指定した月の日数を返します
Hour　　　　 　　このインスタンスで表される日付の時間の部分を取得します
IsLeapYear　 　　指定した年が閏年かどうかを示す値を返します
Millisecond　　　このインスタンスで表される日付のミリ秒の部分を取得します
使用コントロール Button1  〜　Button15
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
　
★　Add メソッド
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'DateTime.Add メソッド      [名前空間: System]
    'このインスタンスの値に指定した時間数を加算します。
    Dim dt As Date = System.DateTime.Now
    '本日から10日後の10時間後は
    Debug.WriteLine(System.DateTime.Now)                        '結果  2005/09/02 19:30:20
    Debug.WriteLine(dt.Add(New System.TimeSpan(10, 10, 0, 0)))  '結果  2005/09/13 5:30:20
End Sub
　
★　AddDays メソッド
　
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'DateTime.AddDays メソッド  [名前空間: System]
    'このインスタンスの値に、指定した日数を加算します。
    Dim dt As Date = System.DateTime.Now
    '本日から10日後は
    Debug.WriteLine(System.DateTime.Now)            '結果  2005/09/02 19:30:21
    Debug.WriteLine(dt.AddDays(10))                 '結果  2005/09/12 19:30:21
End Sub
　
★　AddHours メソッド
　
Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'DateTime.AddHours メソッド  [名前空間: System]
    'このインスタンスの値に指定した時間数を加算します。
    Dim dt As Date = System.DateTime.Now
    '現在時刻から10時間後は
    Debug.WriteLine(System.DateTime.Now)            '結果  2005/09/02 19:30:22
    Debug.WriteLine(dt.AddHours(10))                '結果  2005/09/03 5:30:22
End Sub
　
★　AddMilliseconds メソッド
　
Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'DateTime.AddMilliseconds メソッド  [名前空間: System]
    'このインスタンスの値に指定したミリ秒数を加算します。
    Dim dt As Date = System.DateTime.Now
    '現在時刻から10秒後は
    Debug.WriteLine(System.DateTime.Now)            '結果  2005/09/02 19:30:23
    Debug.WriteLine(dt.AddMilliseconds(10000))      '結果  2005/09/02 19:30:33
End Sub
　
★　AddMinuter メソッド
　
Private Sub Button5_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button5.Click
'DateTime.AddMinutes メソッド  [名前空間: System]
    'このインスタンスの値に指定した分数を加算します。
    Dim dt As Date = System.DateTime.Now
    '現在時刻から10分後は
    Debug.WriteLine(System.DateTime.Now)        '結果  2005/09/02 19:35:21
    Debug.WriteLine(dt.AddMinutes(10))          '結果  2005/09/02 19:45:21
End Sub
　
★　AddMonths メソッド
　
Private Sub Button6_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button6.Click
'DateTime.AddMonths メソッド  [名前空間: System]
    'このインスタンスの値に指定した月数を加算します。
    Dim dt As Date = System.DateTime.Now
    '本日から10ヶ月後は
    Debug.WriteLine(System.DateTime.Now)        '結果  2005/09/02 19:39:56
    Debug.WriteLine(dt.AddMonths(10))           '結果  2006/07/02 19:39:56
End Sub
　
★　AddSeconds メソッド
　
Private Sub Button7_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button7.Click
'DateTime.AddSeconds メソッド  [名前空間: System]
    'このインスタンスの値に指定した秒数を加算します。
    Dim dt As Date = System.DateTime.Now
    '現在時刻から10秒後は
    Debug.WriteLine(System.DateTime.Now)        '結果  2005/09/02 19:45:12
    Debug.WriteLine(dt.AddSeconds(10))          '結果  2005/09/02 19:45:22
End Sub
　
★　AddTicks メソッド
　
Private Sub Button8_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button8.Click
'DateTime.AddTicks メソッド  [名前空間: System]
    'このインスタンスの値に指定したタイマー刻み数を加算します。
    Dim dt As Date = System.DateTime.Now
    '現在時刻から2秒後は
    Debug.WriteLine(System.DateTime.Now)        '結果  2005/09/02 19:56:49
    Debug.WriteLine(dt.AddTicks(20000000))      '結果  2005/09/02 19:56:51
End Sub
　
★　AddYears メソッド
　
Private Sub Button9_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button9.Click
'DateTime.AddYears メソッド  [名前空間: System]
    'このインスタンスの値に指定した年数を加算します。
    Dim dt As Date = System.DateTime.Now
    '本日から10年後は
    Debug.WriteLine(System.DateTime.Now)    '結果  2005/09/02 20:03:14
    Debug.WriteLine(dt.AddYears(10))        '結果  2015/09/02 20:03:14
End Sub
　
★　DayOfWeek プロパティ
　
Private Sub Button10_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button10.Click
'DateTime.DayOfWeek プロパティ  [名前空間: System]
    'このインスタンスで表される曜日を取得します。
    Dim dt As DateTime = System.DateTime.Now
    Debug.WriteLine(dt.DayOfWeek)       '結果  Friday
End Sub
　
★　DayOfYear プロパティ
　
Private Sub Button11_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button11.Click
'DateTime.DayOfYear プロパティ  [名前空間: System]
    'このインスタンスで表される年間積算日を取得します。
    Dim dt As DateTime = System.DateTime.Now
    '1月1日から本日までの日数は
    Debug.WriteLine(System.DateTime.Now)        '結果  2005/09/02 20:19:04
    Debug.WriteLine(dt.DayOfYear)               '結果  245
End Sub
　
★　DaysInMonth メソッド
　
Private Sub Button12_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button12.Click
'DateTime.DaysInMonth メソッド  [名前空間: System]
    '指定した年の指定した月の日数を返します。
    Dim dt As DateTime = System.DateTime.Now
    '本月の日数は
    Debug.WriteLine(dt)     '結果  2005/09/02 20:25:41
    Debug.WriteLine(System.DateTime.DaysInMonth(dt.Year, dt.Month))  '結果  30
    Debug.WriteLine(System.DateTime.DaysInMonth(2004, 2))            '結果  29 (うるう年)
End Sub
　
★　Hour プロパティ
　
Private Sub Button13_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button13.Click
'DateTime.Hour プロパティ   [名前空間: System]
    'このインスタンスで表される日付の時間の部分を取得します。
    Dim dt As DateTime = System.DateTime.Now
    Debug.WriteLine(System.DateTime.Now)    '結果  2005/09/02 20:41:41
    Debug.WriteLine(dt.Hour)                '結果  20
End Sub
　
★　IsLeapYear メソッド
　
Private Sub Button14_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button14.Click
'DateTime.IsLeapYear メソッド   [名前空間: System]
    '指定した年が閏年かどうかを示す値を返します。
    'year が閏年である場合は true 。それ以外の場合は false 
    Debug.WriteLine(System.DateTime.IsLeapYear(2004))       '結果  True
    Debug.WriteLine(System.DateTime.IsLeapYear(2005))       '結果  False
End Sub
　
★　Millisecond プロパティ
　
Private Sub Button15_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button15.Click
'DateTime.Millisecond プロパティ    [名前空間: System]
    'このインスタンスで表される日付のミリ秒の部分を取得します。
    Dim dt As DateTime = System.DateTime.Now
    Debug.WriteLine(System.DateTime.Now)        '結果  2005/09/02 20:52:32
    Debug.WriteLine(dt.Millisecond)             '結果  363
End Sub
　
　　




2005/09/03


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005