１．日付・時刻に関する System 名前空間のメソッド等の紹介(30_Day_01)　(旧、SampleNo.010)

１ ．Add メソッドの使用例(このインスタンスの値に、指定した TimeSpan の値を加算した新しい DateTime を返す) ２ ．AddDays メソッドの使用例(このインスタンスの値に指定された日数を加算した新しい DateTime を返す) ３ ．AddHours メソッドの使用例(このインスタンスの値に指定した時間数を加算した新しい DateTime を返す) ４ ．AddMilliseconds メソッドの使用例(このインスタンスの値に指定されたミリ秒数を加算した新しい DateTime を返す) ５ ．AddMinutes メソッドの使用例(このインスタンスの値に指定された分数を加算した新しい DateTime を返す) ６ ．AddMonths メソッドの使用例(このインスタンスの値に指定された月数を加算した新しい DateTime を返す) ７ ．AddSeconds メソッドの使用例(このインスタンスの値に指定された秒数を加算した新しい DateTime を返す) ８ ．AddTicks メソッドの使用例(このインスタンスの値に指定されたタイマー刻みの数を加算した新しい DateTime を返す) ９ ．AddYears メソッドの使用例(このインスタンスの値に指定された年数を加算した新しい DateTime を返す) 10．DayOfWeek プロパティの使用例(このインスタンスで表される曜日を取得する) 11．DayOfYear プロパティの使用例(このインスタンスで表される年間積算日を取得する) 12．DaysInMonth メソッドの使用例(指定した月および年の日数を返す) 13．Hour プロパティの使用例(このインスタンスで表される日付の時間の部分を取得する) 14．IsLeapYear メソッドの使用例(指定した年が閏年かどうかを示す値を返す) 15．Millisecond プロパティの使用例(このインスタンスで表される日付のミリ秒の部分を取得する) 16．Minute プロパティの使用例(このインスタンスで表される日付の分の部分を取得する) 17．Month プロパティの使用例(このインスタンスで表される日付の月の部分を取得する) 18．Now プロパティの使用例(システムに従った現在の日付と時刻を含む日付型の値を返す) 19．Parse メソッドの使用例(指定した文字列形式の日付と時刻を等価の DateTime の値に変換する) 20．Second プロパティの使用例(このインスタンスで表される日付の秒の部分を取得する) 21．Subtract メソッドの使用例(このインスタンスから指定した時刻または存続時間を減算する) 22．TimeOfDay プロパティの使用例(このインスタンスの時刻を取得する) 23．Today プロパティの使用例(システムに従った現在の日付を含む日付型の値を取得・設定する) 24．ToLocalTime メソッドの使用例(現在の DateTime オブジェクトの値を現地時刻に変換する) 25．ToLongDateString メソッドの使用例(現在の DateTime の値をそれと等価な長い形式の日付の文字列形式に変換する) 26．ToLongTimeString メソッドの使用例(現在の DateTime の値をそれと等価な長い形式の時刻の文字列形式に変換する) 27．ToShortDateString メソッドの使用例(現在の DateTime の値をそれと等価な短い形式の日付の文字列形式に変換する) 28．ToShortTimeString メソッドの使用例(現在の DateTime の値をそれと等価な短い形式の時刻の文字列形式に変換する) 29．ToUniversalTime メソッドの使用例(現在の DateTime の値を世界協定時刻に変換する) 30．TryParse メソッドの使用例 (文字列形式の日時を DateTime に変換し、変換に成功したかどうかを示す値を返す) 31．Year プロパティの使用例(このインスタンスで表される日付の年の部分を取得する) 実使用例としては適切でない使用例も含まれているかも知れませんがご了承願います。 また、使用例以外にも引数が色々用意されていますので、詳しくは、MSDN や WEB 上で調べて下さい。

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit)/VB2010(SP1Rel) Framework 4.0(SP1Rel)/ターゲットCPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　：下記の１行を Form1_Load イベント内に記入しておいて下さい。(コントロールパネルの地域の日付け形式に影響されないように) 　　　　：System.Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("ja") このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．Add メソッドの使用例(このインスタンスの値に、指定した TimeSpan の値を加算した新しい DateTime を返す)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click     TextBox1.Text = "DateTime.Add メソッド = このインスタンスの値に、指定した TimeSpan の値を加算した新しい DateTime を返します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now                 = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在の日時から10日後の10時間後の日時を求めます。" & vbCrLf     TextBox1.Text &= String.Format("Now.Add(New TimeSpan(10, 10, 0, 0)) = {0}", Now.Add(New TimeSpan(10, 10, 0, 0))) & vbCrLf '上記実行結果 'System.DateTime.Now                 = 2014/05/15 0:31:45 'Now.Add(New TimeSpan(10, 10, 0, 0)) = 2014/05/25 10:31:45 End Sub

２．AddDays メソッドの使用例(このインスタンスの値に指定された日数を加算した新しい DateTime を返す)

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click     TextBox1.Text = "AddDays メソッド = このインスタンスの値に、指定された日数を加算した新しい DateTime を返します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在の日時から10日後の日時を求めます。" & vbCrLf     TextBox1.Text &= String.Format("Now.AddDays(10) 　　= {0}", Now.AddDays(10)) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/15 0:42:17 'Now.AddDays(10) 　　= 2014/05/25 0:42:17 End Sub

３．AddHours メソッドの使用例(このインスタンスの値に指定した時間数を加算した新しい DateTime を返す)

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click     TextBox1.Text = "AddHours メソッド = このインスタンスの値に、指定した時間数を加算した新しい DateTime を返します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在の日時から13時間後の日時を求めます。" & vbCrLf     TextBox1.Text &= String.Format("Now.AddHours(13) 　 = {0}", Now.AddHours(13)) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/15 8:46:51 'Now.AddHours(13) 　 = 2014/05/15 21:46:51 End Sub

４．AddMilliseconds メソッドの使用例(このインスタンスの値に指定されたミリ秒数を加算した新しい DateTime を返す)

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click     TextBox1.Text = "AddMilliseconds メソッド = このインスタンスの値に、指定されたミリ秒数を加算した新しい DateTime を返します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now        = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在の日時から60000ミリ秒後の日時を求めます。" & vbCrLf     TextBox1.Text &= String.Format("Now.AddMilliseconds(60000) = {0}", Now.AddMilliseconds(60000)) & vbCrLf '上記実行結果 'System.DateTime.Now        = 2014/05/15 9:00:29 'Now.AddMilliseconds(60000) = 2014/05/15 9:01:29 End Sub

５．AddMinutes メソッドの使用例(このインスタンスの値に指定された分数を加算した新しい DateTime を返す)

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click     TextBox1.Text = "AddMinutes メソッド = このインスタンスの値に、指定された分数を加算した新しい DateTime を返します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在の日時から10分後の日時を求めます。" & vbCrLf     TextBox1.Text &= String.Format("Now.AddMinutes(10)  = {0}", Now.AddMinutes(10)) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/15 9:07:23 'Now.AddMinutes(10)  = 2014/05/15 9:17:23 End Sub

６．AddMonths メソッドの使用例(このインスタンスの値に指定された月数を加算した新しい DateTime を返す)

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click     TextBox1.Text = "AddMonths メソッド = このインスタンスの値に、指定された月数を加算した新しい DateTime を返します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在の日時から10ヶ月後の日時を求めます。" & vbCrLf     TextBox1.Text &= String.Format("Now.AddMonths(10)   = {0}", Now.AddMonths(10)) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/15 9:11:14 'Now.AddMonths(10)   = 2015/03/15 9:11:14 End Sub

７．AddSeconds メソッドの使用例(このインスタンスの値に指定された秒数を加算した新しい DateTime を返す)

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click     TextBox1.Text = "AddSeconds メソッド = このインスタンスの値に、指定された秒数を加算した新しい DateTime を返します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在の日時から10秒後の日時を求めます。" & vbCrLf     TextBox1.Text &= String.Format("Now.AddSeconds(10)  = {0}", Now.AddSeconds(10)) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/15 9:17:57 'Now.AddSeconds(10)  = 2014/05/15 9:18:07 End Sub

８．AddTicks メソッドの使用例(このインスタンスの値に指定されたタイマー刻みの数を加算した新しい DateTime を返す)

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click     TextBox1.Text = "AddTicks メソッド = このインスタンスの値に、指定されたタイマー刻みの数を加算した新しい DateTime を返します" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now    = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在の日時から 20000000 タイマー刻みの数(2秒)後の日時を求めます。" & vbCrLf     TextBox1.Text &= String.Format("Now.AddTicks(20000000) = {0}", Now.AddTicks(20000000)) & vbCrLf '上記実行結果 'System.DateTime.Now    = 2014/05/15 9:20:46 'Now.AddTicks(20000000) = 2014/05/15 9:20:48 End Sub

９．AddYears メソッドの使用例(このインスタンスの値に指定された年数を加算した新しい DateTime を返す)

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click     TextBox1.Text = "AddYears メソッド = このインスタンスの値に、指定された年数を加算した新しい DateTime を返します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在の日時から10年後の日時を求めます。" & vbCrLf     TextBox1.Text &= String.Format("Now.AddYears(10)    = {0}", Now.AddYears(10)) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/15 11:27:10 'Now.AddYears(10)    = 2024/05/15 11:27:10 End Sub

10．DayOfWeek プロパティの使用例(このインスタンスで表される曜日を取得する)

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click     TextBox1.Text = "DayOfWeek プロパティ = このインスタンスで表される曜日を取得します。" & vbCrLf     TextBox1.Text &= "本日の曜日を取得します。" & vbCrLf     TextBox1.Text &= String.Format("Now.DayOfWeek = {0}", Now.DayOfWeek) & vbCrLf '上記実行結果 'Now.DayOfWeek = Thursday End Sub

11．DayOfYear プロパティの使用例(このインスタンスで表される年間積算日を取得する)

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click     TextBox1.Text = "DayOfYear プロパティ = このインスタンスで表される年間積算日を取得します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "１月１日から現在までの日数を求める。" & vbCrLf     TextBox1.Text &= String.Format("Now.DayOfYear　　　 = {0}", Now.DayOfYear) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/15 12:33:21 '１月１日から現在までの日数を求める。 'Now.DayOfYear　　　 = 135 End Sub

12．DaysInMonth メソッドの使用例(指定した月および年の日数を返す)

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click     TextBox1.Text = "DaysInMonth メソッド = 指定した月および年の日数を返します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now 　　　　　　　= {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "本年の２月の日数を取得する。" & vbCrLf     TextBox1.Text &= String.Format("DateTime.DaysInMonth(Now.Year, 2) = {0}", DateTime.DaysInMonth(Now.Year, 2)) & vbCrLf '上記実行結果 'System.DateTime.Now 　　　　　　　= 2014/05/15 12:45:36 '本年の２月の日数を取得する。 'DateTime.DaysInMonth(Now.Year, 2) = 28 End Sub

13．Hour プロパティの使用例(このインスタンスで表される日付の時間の部分を取得する)

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click     TextBox1.Text = "Hour プロパティ = このインスタンスで表される日付の時間の部分を取得します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在時間を取得する。" & vbCrLf     TextBox1.Text &= String.Format("Now.Hour 　　　　　 = {0}", Now.Hour) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/15 12:51:23 '現在時間を取得する。 'Now.Hour 　　　　　 = 12 End Sub

14．IsLeapYear メソッドの使用例(指定した年が閏年かどうかを示す値を返す)

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click     TextBox1.Text = "IsLeapYear メソッド = 指定した年が閏年かどうかを示す値を返します" & vbCrLf     TextBox1.Text &= String.Format("DateTime.IsLeapYear(2012) = {0}", DateTime.IsLeapYear(2012)) & vbCrLf     TextBox1.Text &= String.Format("DateTime.IsLeapYear(2012) = {0}", DateTime.IsLeapYear(2014)) & vbCrLf '上記実行結果 'DateTime.IsLeapYear(2012) = True 'DateTime.IsLeapYear(2012) = False End Sub

15．Millisecond プロパティの使用例(このインスタンスで表される日付のミリ秒の部分を取得する)

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click     TextBox1.Text = "Millisecond プロパティ = このインスタンスで表される日付のミリ秒の部分を取得します。" & vbCrLf     TextBox1.Text &= String.Format("Now.TimeOfDay　 = {0}", Now.TimeOfDay) & vbCrLf     TextBox1.Text &= "現在日付のミリ秒の部分を取得" & vbCrLf     TextBox1.Text &= String.Format("Now.Millisecond = {0}", Now.Millisecond) & vbCrLf '上記実行結果 'Now.TimeOfDay　 = 13:16:23.9432742 '現在日付のミリ秒の部分を取得 'Now.Millisecond = 943 End Sub

16．Minute プロパティの使用例(このインスタンスで表される日付の分の部分を取得する)

Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click     TextBox1.Text = "Minute プロパティ = このインスタンスで表される日付の分の部分を取得します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在日付の分の部分を取得" & vbCrLf     TextBox1.Text &= String.Format("Now.Minute          = {0}", Now.Minute) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/15 13:26:15 '現在日付の分の部分を取得 'Now.Minute          = 26 End Sub

17．Month プロパティの使用例(このインスタンスで表される日付の月の部分を取得する)

Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click     TextBox1.Text = "Month プロパティ = このインスタンスで表される日付の月の部分を取得します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在日付の月の部分を取得" & vbCrLf     TextBox1.Text &= String.Format("Now.Month           = {0}", Now.Month) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/15 13:33:42 '現在日付の月の部分を取得 'Now.Month           = 5 End Sub

18．Now プロパティの使用例(システムに従った現在の日付と時刻を含む日付型の値を返す)

Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click     TextBox1.Text = "Now プロパティ = システムに従った現在の日付と時刻を含む日付型 (Date) の値を返します。" & vbCrLf     TextBox1.Text &= "現在の日付と時刻を含む日付型の値を取得する。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf '上記実行結果 '現在の日付と時刻を含む日付型の値を取得する。 'System.DateTime.Now = 2014/05/15 13:41:26 End Sub

19．Parse メソッドの使用例(指定した文字列形式の日付と時刻を等価の DateTime の値に変換する)

Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click     TextBox1.Text = "Parse メソッド = 指定した文字列形式の日付と時刻を等価の DateTime の値に変換します。" & vbCrLf     TextBox1.Text &= "文字列形式の日付を DateTime の値に変換" & vbCrLf     TextBox1.Text &= String.Format("DateTime.Parse(""平成26年1月23日"") = {0}", DateTime.Parse("平成26年1月23日")) & vbCrLf     TextBox1.Text &= String.Format("DateTime.Parse(""26,2,28"")　　　　 = {0}", DateTime.Parse("26,2,28")) & vbCrLf     TextBox1.Text &= String.Format("DateTime.Parse(""平成26,2,28"")　　 = {0}", DateTime.Parse("平成26,2,28")) & vbCrLf     '本来は、下記のようにエラーチェックしてから変換するようにして下さい。     Dim sDt As String = "2014-02-29"     If IsDate(sDt) Then         TextBox1.Text &= String.Format("DateTime.Parse(""2014-02-29"")　　  = {0}", DateTime.Parse("2014-02-29")) & vbCrLf     Else         MessageBox.Show(sDt & " の日付は、間違っています。")     End If '上記実行結果 'DateTime.Parse("平成26年1月23日") = 2014/01/23 0:00:00 'DateTime.Parse("26,2,28")　　　　 = 2026/02/28 0:00:00 'DateTime.Parse("平成26,2,28")　　 = 2014/02/28 0:00:00 End Sub

20．Second プロパティの使用例(このインスタンスで表される日付の秒の部分を取得する)

Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click     TextBox1.Text = "Second プロパティ = このインスタンスで表される日付の秒の部分を取得します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在日付の秒の部分を取得" & vbCrLf     TextBox1.Text &= String.Format("Now.Second          = {0}", Now.Second) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/15 16:56:57 '現在日付の秒の部分を取得 'Now.Second 　　　　 = 57 End Sub

21．Subtract メソッドの使用例(このインスタンスから指定した時刻または存続時間を減算する)

Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click     TextBox1.Text = "Subtract メソッド = このインスタンスから指定した時刻または存続時間を減算します。" & vbCrLf     TextBox1.Text &= String.Format("Now.ToString(""yyyy/1/1 0:0:0"")　　　　　　　　　　　　　　　　　　  = {0}", _                                                         System.DateTime.Now.ToString("yyyy/1/1 0:0:0")) & vbCrLf     TextBox1.Text &= "yyyy/1/1 0:0:0 からの現在時刻までの経過時間を求める" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now                                                 = {0}", _                                                         System.DateTime.Now) & vbCrLf     TextBox1.Text &= String.Format("Now.Subtract(CDate(System.DateTime.Now.ToString(""yyyy/1/1 0:0:0""))) = {0}", _                                                         Now.Subtract(CDate(System.DateTime.Now.ToString("yyyy/1/1")))) & vbCrLf '上記実行結果 'Now.ToString("yyyy/1/1 0:0:0")　　　　　　　　　　　　　　　　　　  = 2014/1/1 0:0:0 'yyyy/1/1 0:0:0 からの現在時刻までの経過時間を求める 'System.DateTime.Now                                                 = 2014/05/15 17:43:54 'Now.Subtract(CDate(System.DateTime.Now.ToString("yyyy/1/1 0:0:0"))) = 134.17:43:54.2606528 End Sub

22．TimeOfDay プロパティの使用例(このインスタンスの時刻を取得する)

Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click     TextBox1.Text = "TimeOfDay プロパティ = このインスタンスの時刻を取得します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在の時刻を取得" & vbCrLf     TextBox1.Text &= String.Format("Now.TimeOfDay 　　　= {0}", Now.TimeOfDay) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/16 7:40:45 '現在の時刻を取得 'Now.TimeOfDay 　　　= 07:40:45.9235801 End Sub

23．Today プロパティの使用例(システムに従った現在の日付を含む日付型の値を取得・設定する)

Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click     TextBox1.Text = "Today プロパティ = システムに従った現在の日付を含む日付型 (Date) の値を取得または設定します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在の日付を含む日付型の値を取得" & vbCrLf     TextBox1.Text &= String.Format("Today 　　　        = {0}", Today) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/16 7:46:27 '現在の日付を含む日付型の値を取得 'Today 　　　        = 2014/05/16 0:00:00 End Sub

24．ToLocalTime メソッドの使用例(現在の DateTime オブジェクトの値を現地時刻に変換する)

Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click     TextBox1.Text = "ToLocalTime メソッド = 現在の DateTime オブジェクトの値を現地時刻に変換します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在の現地時刻を求める" & vbCrLf     TextBox1.Text &= String.Format("Now.ToLocalTime     = {0}", Now.ToLocalTime) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/16 7:54:15 '現在の現地時刻を求める 'Now.ToLocalTime     = 2014/05/16 7:54:15 End Sub

25．ToLongDateString メソッドの使用例(現在の DateTime の値をそれと等価な長い形式の日付の文字列形式に変換する)

Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click     TextBox1.Text = "ToLongDateString メソッド = 現在の DateTime オブジェクトの値をそれと等価な長い形式の日付の文字列形式に変換します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now  = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在日付を長い形式の日付で取得" & vbCrLf     TextBox1.Text &= String.Format("Now.ToLongDateString = {0}", Now.ToLongDateString) & vbCrLf '上記実行結果 'System.DateTime.Now  = 2014/05/16 8:36:16 '現在日付を長い形式の日付で取得 'Now.ToLongDateString = 2014年5月16日 End Sub

26．ToLongTimeString メソッドの使用例(現在の DateTime の値をそれと等価な長い形式の時刻の文字列形式に変換する)

Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click     TextBox1.Text = "ToLongTimeString メソッド = 現在の DateTime オブジェクトの値をそれと等価な長い形式の時刻の文字列形式に変換します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now  = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在時刻を長い形式の時刻で取得" & vbCrLf     TextBox1.Text &= String.Format("Now.ToLongTimeString = {0}", Now.ToLongTimeString) & vbCrLf '上記実行結果 'System.DateTime.Now  = 2014/05/16 8:41:18 '現在時刻を長い形式の時刻で取得 'Now.ToLongTimeString = 8:41:18 End Sub

27．ToShortDateString メソッドの使用例(現在の DateTime の値をそれと等価な短い形式の日付の文字列形式に変換する)

Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click     TextBox1.Text = "ToShortDateString メソッド = 現在の DateTime オブジェクトの値をそれと等価な短い形式の日付の文字列形式に変換します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now　 = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在の日付をそれと等価な短い形式の日付の文字列形式に変換" & vbCrLf     TextBox1.Text &= String.Format("Now.ToShortDateString = {0}", Now.ToShortDateString) & vbCrLf '上記実行結果 'System.DateTime.Now 　= 2014/05/16 9:26:46 '現在の日付をそれと等価な短い形式の日付の文字列形式に変換 'Now.ToShortDateString = 2014/05/16 End Sub

28．ToShortTimeString メソッドの使用例(現在の DateTime の値をそれと等価な短い形式の時刻の文字列形式に変換する)

Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click     TextBox1.Text = "ToShortTimeString メソッド = 現在の DateTime オブジェクトの値をそれと等価な短い形式の時刻の文字列形式に変換します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now   = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在時刻を短い形式の時刻の文字列形式に変換" & vbCrLf     TextBox1.Text &= String.Format("Now.ToShortTimeString = {0}", Now.ToShortTimeString) & vbCrLf '上記実行結果 'System.DateTime.Now   = 2014/05/16 9:31:13 '現在時刻を短い形式の時刻の文字列形式に変換 'Now.ToShortTimeString = 9:31 End Sub

29．ToUniversalTime メソッドの使用例(現在の DateTime の値を世界協定時刻に変換する)

Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click     TextBox1.Text = "ToUniversalTime メソッド = 現在の DateTime オブジェクトの値を世界協定時刻 (UTC) に変換します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在日付を世界協定時刻(UTC)に変換" & vbCrLf     TextBox1.Text &= String.Format("Now.ToUniversalTime = {0}", Now.ToUniversalTime) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/16 9:34:18 '現在日付を世界協定時刻(UTC)に変換 'Now.ToUniversalTime = 2014/05/16 0:34:18 End Sub

30．TryParse メソッドの使用例 (文字列形式の日時を DateTime に変換し、変換に成功したかどうかを示す値を返す)

Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click     TextBox1.Text = "指定した文字列形式の日時を対応する DateTime 表現に変換し、変換に成功したかどうかを示す値を返します。 " & vbCrLf     Dim dt1 As String = "2012/2/29"     Dim dt2 As DateTime = Nothing     If Date.TryParse(dt1, dt2) Then         TextBox1.Text &= String.Format("{0} を {1} に変換", dt1, dt2) & vbCrLf     Else         TextBox1.Text &= String.Format("{0} を {1} に変換できません。", dt1, dt2) & vbCrLf     End If     dt1 = "2014/2/29"     dt2 = Nothing     If Date.TryParse(dt1, dt2) Then         TextBox1.Text &= String.Format("{0} を {1} に変換", dt1, dt2) & vbCrLf     Else         TextBox1.Text &= String.Format("{0} を {1} に変換できません。", dt1, dt2) & vbCrLf     End If '上記実行結果 '2012/2/29 を 2012/02/29 0:00:00 に変換 '2014/2/29 を 0001/01/01 0:00:00 に変換できません。 End Sub

31．Year プロパティの使用例(このインスタンスで表される日付の年の部分を取得する)

Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click     TextBox1.Text = "Year プロパティ = このインスタンスで表される日付の年の部分を取得します。" & vbCrLf     TextBox1.Text &= String.Format("System.DateTime.Now = {0}", System.DateTime.Now) & vbCrLf     TextBox1.Text &= "現在日付の年の部分を取得" & vbCrLf     TextBox1.Text &= String.Format("Now.Year　　　　　  = {0}", Now.Year) & vbCrLf '上記実行結果 'System.DateTime.Now = 2014/05/16 9:54:53 '現在日付の年の部分を取得 'Now.Year　　　　　  = 2014 End Sub

検索キーワード及びサンプルコードの別名(機能名)