| 日付・時刻に関するメソッド(DateTime 構造体)等の使用例その２ (15個) (SNo.010) Minute このインスタンスで表される日付の分の部分を取得します Month このインスタンスで表される日付の月の部分を取得します Now このコンピューターの現在のローカルな日付と時刻を取得します Parse 指定した文字列形式の日付と時刻を等価のDateTimeの値に変換します Second このインスタンスで表される日付の秒の部分を取得します Subtract このインスタンスから指定した時刻または存続時間を減算します TimeOfDay このインスタンスの時刻を取得します Today 現在の日付を取得します ToLocalTime 現在の世界協定時刻 (UTC) をローカル時刻に変換します ToLongDateString このインスタンスの値をそれと等価な長い形式の日付の文字列形式に変換します ToLongTimeString このインスタンスの値をそれと等価の長い時刻書式の文字列形式に変換します ToShortDateString このインスタンスの値をそれと等価な短い形式の日付の文字列形式に変換します ToShortTimeString このインスタンスの値をそれと等価の短い時刻書式の文字列形式に変換します ToUniversalTime 現在のローカル時刻を世界協定時刻 (UTC) に変換します Year このインスタンスで表される日付の年の部分を取得します |
|
| 使用コントロール | Button16 〜 Button30 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) |
|
★ Minute プロパティ
Private Sub Button16_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button16.Click 'DateTime.Minute プロパティ [名前空間: System] 'このインスタンスで表される日付の分の部分を取得します。 Dim dt As DateTime = System.DateTime.Now Debug.WriteLine(System.DateTime.Now) '結果 2005/09/02 20:55:29 Debug.WriteLine(dt.Minute) '結果 55 End Sub |
|
| ★ Month プロパティ Private Sub Button17_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button17.Click 'DateTime.Month プロパティ [名前空間: System] 'このインスタンスで表される日付の月の部分を取得します。 Dim dt As DateTime = System.DateTime.Now Debug.WriteLine(System.DateTime.Now) '結果 2005/09/02 20:58:46 Debug.WriteLine(dt.Month) '結果 9 End Sub |
|
| ★ Now プロパティ Private Sub Button18_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button18.Click 'DateTime.Now プロパティ [名前空間: System] 'このコンピューターの現在のローカルな '日付と時刻である DateTime を取得します。 Debug.WriteLine(System.DateTime.Now) '結果 2005/09/02 21:01:54 End Sub |
|
| ★ Parse メソッド Private Sub Button19_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button19.Click 'DateTime.Parse メソッド [名前空間: System] '指定した文字列形式の日付と時刻を '等価の DateTime の値に変換します。 Dim strMyDate As String = "平成17年9月2日" Debug.WriteLine(System.DateTime.Parse(strMyDate)) '結果 2005/09/02 0:00:00 End Sub |
|
| ★ Second プロパティ Private Sub Button20_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button20.Click 'DateTime.Second プロパティ [名前空間: System] 'このインスタンスで表される日付の秒の部分を取得します。 Dim dt As DateTime = System.DateTime.Now Debug.WriteLine(System.DateTime.Now) '結果 2005/09/02 21:33:17 Debug.WriteLine(dt.Second) '結果 17 End Sub |
|
| ★ Subtract メソッド Private Sub Button21_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button21.Click 'DateTime.Subtract メソッド [名前空間: System] 'このインスタンスから指定した時刻または存続時間を減算します。 Dim d1 As Date = "2005/01/01" Dim d2 As Date = "2005/09/02" Debug.WriteLine(d2.Subtract(d1).Days) '結果 244 End Sub |
|
| ★ TimeOfDay プロパティ Private Sub Button22_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button22.Click 'DateTime.TimeOfDay プロパティ [名前空間: System] 'このインスタンスの時刻を取得します。 Dim dt As DateTime = System.DateTime.Now Debug.WriteLine(System.DateTime.Now) '結果 2005/09/02 21:48:00 Debug.WriteLine(dt.TimeOfDay) '結果 21:48:00.7595344 End Sub |
|
| ★ Today プロパティ Private Sub Button23_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button23.Click 'DateTime.Today プロパティ [名前空間: System] '現在の日付を取得します。 Debug.WriteLine(System.DateTime.Today) '結果 2005/09/02 0:00:00 End Sub |
|
| ★ ToLocalTime メソッド Private Sub Button24_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button24.Click 'DateTime.ToLocalTime メソッド [名前空間: System] '現在の世界協定時刻 (UTC) をローカル時刻に変換します。 Dim dt As DateTime = System.DateTime.Now Debug.WriteLine(System.DateTime.Now) '結果 2005/09/02 22:00:55 Debug.WriteLine(dt.ToLocalTime) '結果 2005/09/03 7:00:55 End Sub |
|
| ★ ToLongDateString メソッド Private Sub Button25_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button25.Click 'DateTime.ToLongDateString メソッド [名前空間: System] 'このインスタンスの値を、それと等価な長い形式の '日付の文字列形式に変換します。 Dim dt As DateTime = System.DateTime.Now Debug.WriteLine(System.DateTime.Now) '結果 2005/09/02 22:04:59 Debug.WriteLine(dt.ToLongDateString) '結果 2005年9月2日 End Sub |
|
| ★ ToLongTimeString メソッド Private Sub Button26_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button26.Click 'DateTime.ToLongTimeString メソッド [名前空間: System] 'このインスタンスの値を、それと等価の '長い時刻書式の文字列形式に変換します。 Dim dt As DateTime = System.DateTime.Now Debug.WriteLine(System.DateTime.Now) '結果 2005/09/02 22:08:29 Debug.WriteLine(dt.ToLongTimeString) '結果 22:08:29 End Sub |
|
| ★ ToShortDateString メソッド Private Sub Button27_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button27.Click 'DateTime.ToShortDateString メソッド [名前空間: System] 'このインスタンスの値を、それと等価な '短い形式の日付の文字列形式に変換します。 Dim dt As DateTime = System.DateTime.Now Debug.WriteLine(System.DateTime.Now) '結果 2005/09/02 22:12:46 Debug.WriteLine(dt.ToShortDateString) '結果 2005/09/02 End Sub |
|
| ★ ToShortTimeString メソッド Private Sub Button28_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button28.Click 'DateTime.ToShortTimeString メソッド [名前空間: System] 'このインスタンスの値を、それと等価の '短い時刻書式の文字列形式に変換します。 Dim dt As DateTime = System.DateTime.Now Debug.WriteLine(System.DateTime.Now) '結果 2005/09/02 22:16:14 Debug.WriteLine(dt.ToShortTimeString) '結果 22:16 End Sub |
|
| ★ ToUniversalTime メソッド Private Sub Button29_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button29.Click 'DateTime.ToUniversalTime メソッド [名前空間: System] '現在のローカル時刻を世界協定時刻 (UTC) に変換します。 Dim dt As DateTime = System.DateTime.Now Debug.WriteLine(System.DateTime.Now) '結果 2005/09/02 22:20:40 Debug.WriteLine(dt.ToUniversalTime) '結果 2005/09/02 13:20:40 End Sub |
|
| ★ Year プロパティ Private Sub Button30_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button30.Click 'DateTime.Year プロパティ [名前空間: System] 'このインスタンスで表される日付の年の部分を取得します。 Dim dt As DateTime = System.DateTime.Now Debug.WriteLine(System.DateTime.Now) '結果 2005/09/02 22:23:48 Debug.WriteLine(dt.Year) '結果 2005 End Sub |
|