| 日付・時刻に関する関数(Microsoft.VisualBasic)の使用例 (21個) (SNo.009) DateAdd 指定された時間間隔を加算した日付と時刻を日付型 (Date) の値で返します DateDiff 2 つの日付型値の間の時間間隔数を指定する長整数型 (Long) の値を返します DatePart 特定の日付型の値の指定コンポーネントを含む整数型 (Integer) の値を返します DateSerial 時刻情報が午前0時に設定された指定の年、月および日を表す日付型 型の値を返す DateString システムに従った現在の日付を表す文字列型の値を取得または設定します DateValue 時刻情報が午前0時に設定された文字列で表される日付情報を含む日付型の値を返す Day 日付を表す 1 〜 31 の整数型 (Integer) の値を返します Hour 時刻を表す 0 〜 23 の整数型 (Integer) の値を返します Minute 分を表す 0 〜 59 の整数型 (Integer) の値を返します Month 月を表す 1 〜 12 の整数型 (Integer) の値を返します MonthName 指定した月の名前を含む文字列型 (String) の値を返します Now システムに従った現在の日付と時刻を含む日付型 (Date) の値を返します Second 秒を表す 0 〜 59 の整数型 (Integer) の値を返します TimeOfDay システムに従った現在の時刻を含む日付型 (Date) の値を取得または設定します TimeSerial 西暦1年1月1日を基準にした、指定の時、分、および秒を表す日付型の値を返します TimeString システムに従った現在の時刻を表す文字列型 (String) の値を取得または設定します TimeValue 日付情報が1年1月1日に設定された文字列で表される時刻情報を含む日付型の値を返す Today システムに従った現在の日付を含む日付型 (Date) の値を取得または設定します Weekday 曜日を表す数値を含む整数型 (Integer) の値を返します WeekdayName 指定した曜日の名前を含む文字列型 (String) の値を返します Year 年を表す 1 〜 9999 の整数型 (Integer) の値を返します |
|
| 使用コントロール | Button1 〜 Button21 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) Imports MsVB = Microsoft.VisualBasic (一番上に記入) |
|
★ DaTeAdd 関数
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'DateAdd 関数 [名前空間 : Microsoft.VisualBasic] '指定された時間間隔を加算した日付と時刻を '日付型 (Date) の値で返します。 '※ 本日 2005/09/02 より30日後の日付を求める 結果 2005/10/02 11:27:02 Debug.WriteLine(MsVB.DateAdd(DateInterval.Day, 30, MsVB.Now)) End Sub |
|
| ★ DateDiff 関数 Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click 'DateDiff 関数 '2 つの日付型 (Date) 値の間の時間間隔数を '指定する長整数型 (Long) の値を返します。 '※ 愛子様が生まれてからの本日までの日数を求める Debug.WriteLine(MsVB.DateDiff(DateInterval.Day, _ MsVB.DateValue("2001/12/1"), MsVB.Now)) '結果 1371 End Sub |
|
| ★ DatePart 関数 Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click 'DatePart 関数 '特定の日付型 (Date) の値の指定コンポーネントを '含む整数型 (Integer) の値を返します。 '※ １月１日からの通算日を取得（１〜３６６） Debug.WriteLine(MsVB.DatePart(DateInterval.DayOfYear, MsVB.Now)) '結果 245 End Sub |
|
| ★ DateSerial 関数 Private Sub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click 'DateSerial 関数 '時刻情報が午前 0 時 (00:00:00) に設定された、指定の年、月 'および日を表す日付型 (Date) 型の値を返します。 Debug.WriteLine(MsVB.DateSerial(2005, 9, 2)) '結果 2005/09/02 0:00:00 End Sub |
|
| ★ DateString プロパティ Private Sub Button5_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button5.Click 'DateString プロパティ 'システムに従った現在の日付を表す文字列型 (String) 'の値を取得または設定します。 Debug.WriteLine(MsVB.DateString) '結果 2005-09-02 End Sub |
|
| ★ DateValue 関数 Private Sub Button6_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button6.Click 'DateValue 関数 '時刻情報が午前 0 時 (00:00:00) に設定された、 '文字列で表される日付情報を含む日付型の値を返します。 Debug.WriteLine(MsVB.DateValue("平成17年9月2日")) '結果 2005/09/02 0:00:00 End Sub |
|
| ★ Day 関数 Private Sub Button7_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button7.Click 'Day 関数 '日付を表す 1 〜 31 の整数型 (Integer) の値を返します。 Debug.WriteLine(MsVB.Day(MsVB.Now)) '結果 2 End Sub |
|
| ★ Hour 関数 Private Sub Button8_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button8.Click 'Hour 関数 '時刻を表す 0 〜 23 の整数型 (Integer) の値を返します。 Debug.WriteLine(MsVB.Hour(MsVB.Now)) '結果 15 End Sub |
|
| ★ Minute 関数 Private Sub Button9_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button9.Click 'Minute 関数 '分を表す 0 〜 59 の整数型 (Integer) の値を返します。 Debug.WriteLine(MsVB.Minute(MsVB.Now)) '結果 22 End Sub |
|
| ★ Month 関数 Private Sub Button10_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button10.Click 'Month 関数 '月を表す 1 〜 12 の整数型 (Integer) の値を返します。 Debug.WriteLine(MsVB.Month(MsVB.Now)) '結果 9 End Sub |
|
| ★ MonthName 関数 Private Sub Button11_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button11.Click 'MonthName 関数 '指定した月の名前を含む文字列型 (String) の値を返します。 Debug.WriteLine(MsVB.MonthName(MsVB.Month(MsVB.Now))) '結果 9月 End Sub |
|
| ★ Now 関数 Private Sub Button12_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button12.Click 'Now プロパティ 'システムに従った現在の日付と時刻を含む日付型 (Date) の値を返します。 Debug.WriteLine(MsVB.Now) '結果 2005/09/02 15:35:35 End Sub |
|
| ★ Second 関数 Private Sub Button13_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button13.Click 'Second 関数 '秒を表す 0 〜 59 の整数型 (Integer) の値を返します。 Debug.WriteLine(MsVB.Second(MsVB.Now)) '結果 32 End Sub |
|
| ★ TimeOfDay プロパティ Private Sub Button14_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button14.Click 'TimeOfDay プロパティ 'システムに従った現在の時刻を含む日付型 (Date) 'の値を取得または設定します。 Debug.WriteLine(MsVB.TimeOfDay) '結果 0001/01/01 15:47:56 End Sub |
|
| ★ TimeSerial 関数 Private Sub Button15_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button15.Click 'TimeSerial 関数 '西暦 1 年 1 月 1 日を基準にして日付情報が設定された、 '指定の時、分、および秒を表す日付型 (Date) の値を返します。 Debug.WriteLine(MsVB.TimeSerial(14, 25, 30)) '結果 0001/01/01 14:25:30 End Sub |
|
| ★ TimeString プロパティ Private Sub Button16_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button16.Click 'TimeString プロパティ 'システムに従った現在の時刻を表す文字列型 (String) 'の値を取得または設定します。 Debug.WriteLine(MsVB.TimeString) '結果 16:03:07 End Sub |
|
| ★ TimeValue 関数 Private Sub Button17_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button17.Click 'TimeValue 関数 '日付情報が 1年1月1日に設定された、文字列で '表される時刻情報を含む日付型の値を返します。 Debug.WriteLine(MsVB.TimeValue("16時25分30秒")) '結果 0001/01/01 16:25:30 End Sub |
|
| ★ Today プロパティ Private Sub Button18_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button18.Click 'Today プロパティ 'システムに従った現在の日付を含む日付型 (Date) 'の値を取得または設定します。 Debug.WriteLine(MsVB.Today) '結果 2005/09/02 0:00:00 End Sub |
|
| ★ Weekday 関数 Private Sub Button19_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button19.Click 'Weekday 関数 '曜日を表す数値を含む整数型 (Integer) の値を返します。 Debug.WriteLine(MsVB.Weekday(MsVB.Now)) '結果 6 End Sub |
|
| ★ WeekdayName 関数 Private Sub Button20_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button20.Click 'WeekdayName 関数 '指定した曜日の名前を含む文字列型 (String) の値を返します。 Debug.WriteLine(MsVB.WeekdayName(MsVB.Weekday(MsVB.Now))) '結果 金曜日 End Sub |
|
| ★ Year 関数 Private Sub Button21_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button21.Click 'Year 関数 '年を表す 1 〜 9999 の整数型 (Integer) の値を返します。 Debug.WriteLine(MsVB.Year(MsVB.Now)) '結果 2005 End Sub |
|
| DateTime 構造体に同様の動作をする、メソッド等が用意されていますので、出来る限りそちらを使用するようにして下さい。 | |