| DateTime 書式指定文字の実行例及び書式設定応用例 (36個) (SNo.081) １．標準 DateTime 書式指定文字の実行例 (21) ２．カスタム DateTime 書式指定文字の実行例 (13) ３．日付の文字列("20051006")をDate型の値に変換する (1) ４．今年のクリスマスイブは何曜日？(月日を固定してシステム日付を取得) (1) |
|
| 使用コントロール | Button1 〜 Button4 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) |
|
１．標準 DateTime 書式指定文字の実行例(21)
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click '標準 DateTime 書式指定文字の実行例(20) Dim dt As System.DateTime = System.DateTime.Now Debug.WriteLine(dt.ToString("yyyy/MM/dd")) '結果 2005/10/06 Debug.WriteLine(dt.ToString("yyyy/MM")) '結果 2005/10 Debug.WriteLine(dt.ToString("yyyy.MM.dd")) '結果 2005.10.06 Debug.WriteLine(dt.ToString("yyyyMMdd")) '結果 20051006 Debug.WriteLine(dt.ToString("gyyyy年MM月dd日")) '結果 西暦2005年10月06日 Debug.WriteLine(dt.ToString("d")) '結果 2005/10/06 Debug.WriteLine(dt.ToString("D")) '結果 2005年10月6日 Debug.WriteLine(dt.ToString("t")) '結果 14:31 Debug.WriteLine(dt.ToString("T")) '結果 14:31:48 Debug.WriteLine(dt.ToString("f")) '結果 2005年10月6日 14:31 Debug.WriteLine(dt.ToString("F")) '結果 2005年10月6日 14:31:48 Debug.WriteLine(dt.ToString("g")) '結果 2005/10/06 14:31 Debug.WriteLine(dt.ToString("G")) '結果 2005/10/06 14:31:48 Debug.WriteLine(dt.ToString("m")) '結果 10月6日 Debug.WriteLine(dt.ToString("M")) '結果 10月6日 Debug.WriteLine(dt.ToString("r")) '結果 Thu, 06 Oct 2005 14:31:48 GMT Debug.WriteLine(dt.ToString("R")) '結果 Thu, 06 Oct 2005 14:31:48 GMT Debug.WriteLine(dt.ToString("s")) '結果 2005-10-06T14:31:48 Debug.WriteLine(dt.ToString("u")) '結果 2005-10-06 14:31:48Z Debug.WriteLine(dt.ToString("U")) '結果 2005年10月6日 05:31:48 Debug.WriteLine(dt.ToString("tth時m分s秒")) '結果 午後5時23分34秒 End Sub 詳しくは、下記をご覧下さい。 標準の DateTime 書式指定文字 |
|
|
２．カスタム DateTime 書式指定文字の実行例(13)
Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click 'カスタム DateTime 書式指定文字の実行例(15) Dim dt As System.DateTime = System.DateTime.Now Debug.WriteLine(dt.ToString(" d")) '結果 6 Debug.WriteLine(dt.ToString(" dd")) '結果 06 Debug.WriteLine(dt.ToString(" ddd")) '結果 木 Debug.WriteLine(dt.ToString(" dddd")) '結果 木曜日 Debug.WriteLine(dt.ToString(" m")) '結果 41 Debug.WriteLine(dt.ToString(" mm分")) '結果 41分 Debug.WriteLine(dt.ToString(" M")) '結果 10 Debug.WriteLine(dt.ToString(" MM")) '結果 10 Debug.WriteLine(dt.ToString(" MMM")) '結果 10 Debug.WriteLine(dt.ToString(" MMMM")) '結果 10月 Debug.WriteLine(dt.ToString(" ss秒")) '結果 25秒 Debug.WriteLine(dt.ToString(" tt")) '結果 午後 Debug.WriteLine(dt.ToString("tthh時")) '結果 午後02時 End Sub |
|
|
３．日付の文字列("20051006")をDate型の値に変換する
Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click '日付の文字列("20051006")をDate型の値に変換する Dim dt As DateTime Dim strDate As String = "20051006" dt = CDate(String.Format("{0:0000/00/00}", CDbl(strDate))) Debug.WriteLine(dt) '結果 2005/10/06 00:00:00 dt = DateTime.Parse(Format(Integer.Parse(strDate), "0000/00/00")) Debug.WriteLine(dt) '結果 2005/10/06 00:00:00 dt = CDate(CLng(strDate).ToString("0000/00/00")) Debug.WriteLine(dt) '結果 2005/10/06 00:00:00 dt = Date.Parse(Format(CLng(strDate), "0000/00/00")) Debug.WriteLine(dt.ToShortDateString) '結果 2005/10/06 End Sub 結構、掲示板とかで質問があるので掲載しておきます。 |
|
|
４．今年のクリスマスイブは何曜日？(月日を固定してシステム日付を取得)
Private Sub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click '今年のクリスマスイブは何曜日(月日を固定してシステム日付を取得） Debug.WriteLine(CDate(System.DateTime.Now.ToString("yyyy/12/24")).ToString("dddd")) '結果 土曜日 End Sub 毎年の会社の創立記念日の取得とか誕生日の取得とかに便利かと。 |
|
| メニューの関数・メソッド等の中の［日付・時刻に関する関数(Microsoft.VisualBasic)の使用例］ ［日付・時刻に関するメソッド(DateTime 構造体)等の使用例その１］ ［日付・時刻に関するメソッド(DateTime 構造体)等の使用例その２］ ［日付・時刻に関する書式設定関係のメソッド等の使用例］ もご覧下さい。 | |
2004/05/16
2005/10/07
VBレスキュー(花ちゃん)
VB.NET2003 VB2005