Top / VB.NET / 文法 / 型 / Date型

/Date型

目次 †

Date型 †

• 日付型
• 内部的には8バイトの符号付き整数で、グレゴリオ層の西暦1年1月1日〜西暦9999年12月31日までの日付と、0:00:00（午前0時）〜午後11:59:59までの時刻を表す。
• Date型のデータは「#」で囲み、日付部は「m/d/yyyy」（月/日/年）の形式、時刻部は「h:m:s」（時:分:秒）の形式で指定する。
• コードエディタで24時間制で日付定数を指定した場合、12時間制に自動的に置き換えられる。

例：

Dim dt As Date = #10/16/1979 10:00PM#

Date型コンストラクタ †

• コンストラクタを利用してDate型の値を得ることもできる。

例：

New Date(<年>, <月>, <日>)
New Date(<年>, <月>, <日>, <時>, <分>, <秒>)
New Date(<年>, <月>, <日>, <時>, <分>, <秒>, <ミリ秒>)

　年月日のみを指定するコンストラクタでは、時刻部分は「00:00:00」が指定されたものとみなされる。

　また<時>には24時間制の時間を指定する。

例：以下のdt1,dt2は同じ。

Dim dt1 As Date = #10/16/2008#
Dim dt2 As Date = New Date(2008, 10, 16)

Date型のプロパティ †

• Date型のデータから年や月などの要素を取り出すには、プロパティを利用する。
• すべてのプロパティが読み取り専用。

Dayプロパティ vs. Dateプロパティ †

• DayプロパティはDate型の値の日にちの部分（○日）を返す。
• DateプロパティはDate型の日付部分全体（時刻部分を00:00:00に置き換えた値）をDate型で返す。

Date型のメソッド †

• Date.IsLeapYearスタティックメソッドで、うるう年かどうかを判定できる。
• Date.DaysInMonthスタティックメソッドは、<年>と<月>を指定するとそのつきの日数を返す。

NULL可のDate型 †

　NULL可のDate型にするには、Global.System.Nullable(Of Date)を用いればよい。

例：

Private dt As Global.System.Nullable(Of Date) = Nothing

シリアライズとDate型 †

　Date型が含まれるクラスをシリアライズするときにうまくいかなければ、<NonSerialized()>でDate型だけを除外するという手もある。

<Serializable()> _
Public Class myClass
	Private str As String = Nothing
	Private bln As Boolean = False
	<NonSerialized()> Private dt As Global.System.Nullable(Of Date) = Nothing
	…
End Class

Date型の型変換 †

Date型→よく使われる書式のString型 †

FormatDateTime †

　よく使われる日付の書式はDateFormat列挙型に用意されている。

　詳細はMSDNを参照せよ。

　これらをFormatDateTimeの第2引数に与えれば、第1引数の日時を変換することができる）

Function FormatDateTime(
	ByVal Expression As DateTime,
	Optional ByVal NamedFormat As DateFormat = DateFormat.GeneralDate
) As String

例：

Module Module1

   Sub Main()
       Dim dt1 As Date = #10/16/2008 1:14:50 PM#

       Console.WriteLine(FormatDateTime(dt1, DateFormat.GeneralDate))
       Console.WriteLine(FormatDateTime(dt1, DateFormat.LongDate))
       Console.WriteLine(FormatDateTime(dt1, DateFormat.ShortDate))
       Console.WriteLine(FormatDateTime(dt1, DateFormat.LongTime))
       Console.WriteLine(FormatDateTime(dt1, DateFormat.ShortTime))
   End Sub

End Module

　[Ctrl]+[Fn5]でコンソール結果を表示する。

2008/10/16 13:14:50
2008年10月16日
2008/10/16
13:14:50
13:14

Date型→独自書式のString型 †

Format †

例：Date型を「1979年10月16日 10時00分00秒」に変換

Dim dt As Date = #10/16/1979 10:00PM#
Dim str As String = Format(dt, "yyyy/MM/dd HH:mm:ss")

[補講]2桁固定の表記ならばddを使う。例えば3日であれば、ddは「03」、dは「3」となる。　◇

[補講]24時間表記ならばHHを使う。　◇

FormatDateTime †

　独自書式がよく使われる書式の組み合わせであれば、FormatDateTimeを使って実現できる。

例：

Dim dt As Date = #10/16/1979 10:00PM#
Dim str As String = FormatDateTime(dt1, DateFormat.ShortDate)) & " " & FormatDateTime(dt1, DateFormat.LongTime))

String.Format †

• String.Formatスタティックメソッドは、数値などのデータをさまざまな形式の文字列に変換できる。
  • これを使えば、Date型を自由に独自の書式に変換可能である。

例1：

Dim dt As Date = #10/16/1979 10:00PM#
Dim str As String = String.Format("{0:yyyy/MM/dd HH:mm:ss}", dt)

　なおString.Formatの第1引数の表示文字列の先頭には入力として与えられる引数のインデックスを与える。上の例では0になっているため、dtが対象となる。

例2：「#7/18/2010 3:09:05 PM#」から「午後3時9分」に変換

Dim dt As Date = #7/18/2010 3:09:05 PM#
Dim str As String = String.Format("{0:tth時m分}", dt)

独自書式のString型→Date型 †

Parse †

例：

Dim str As String = "2008/11/19 12:00:00"
Dim dt As Date = Prase(str)

TryParse †

例：

Dim str As String = "2008/11/19 12:00:00"
Dim dt As Date = nothing
TryPrase(str, dt)

ParseExact †

例：

Dim str As String = "2008/11/19 12:00:00"
Dim dt As Date = Date.ParseExact(str, "yyyyMMddHHmmss", Nothing)

時間演算 †

• 2つのDate値の時間差や、Date値同士の減算を行うこと。
  • Date型同士の加算などはできない。
• 時間間隔を表すTimSpan型を使って、時間演算が可能となる。
• Date型には日付の加減算を行うメソッドが用意されている。
• TimeSpan型は時間間隔を示すため、月や年という概念は持たない。
• 時間演算における結果は次のようになる。

DateAdd †

DateAdd(interval, n, date)

• dateにinterval（DateInterval列挙型）で指定した時間単位の値nを関したDate値を返す。

例1：月の末日の動き

Dim dt1 As Date = #1/31/2002#
Dim dt2 As Date = DateAdd(Month, 1, dt1)

　このとき、dt2は#2/28/2002#になる。

例2：1ヶ月前のDate値を取得（-1ヶ月を足せばよい）

Dim dt1 As Date = #10/16/2008 10:00PM#
Dim dt2 As Date = DateAdd(Month, -1, dt1)

　このとき、dt2は#9/16/2008 10:00PM#になる。

DateInterval列挙型 †

　詳細はMSDNを参照せよ。

DateDiff †

DateDiff(interval, date1, date2)

• date2-date1の差をintervalで示す単位で表す。
• intervalはDateAdd関数と同じようにDateInterval列挙型を指定する。

DatePart †

• dateからintervalで支援す単位の値を分離する。
• intervalはDateAdd関数と同じようにDateInterval列挙型を指定する。

例：#10/16/2008 10:00PM#から年である2008を取り出す。

DatePart(DateInterval.Year, #10/16/2008 10:00PM#)

末日＋日時 †

Dim dt1 As Date = #1/31/2008 12:00:00 PM#
Dim dt2 As Date = DateAdd(DateInterval.Month, 1, dt1)

　dt2は#2008/02/29 12:00:00 PM#になる。つまり、時分秒には影響していない。

Timer †

• 午前0時からの経過秒を取得する。
• 正確には「秒.ミリ秒」のようにミリ秒も小数点以下に取得する。

例：指定した秒だけスリープするプロシージャ

Private Sub sleep(ByVal t As Short)
Dim n As Date = Now
Do While DateDiff(DateInterval.Second, n, Now) < t
    System.Windows.Forms.Application.DoEvents()
Loop
End Sub

小技 †

ミリ秒の切捨て †

　Date型からString型に一旦変換してから、またDate型に戻すことで、ミリ秒の切捨てを実現できる。

Dim dtNow As Global.System.Nullable(Of Date) = Now()
Dim strNow As String = Format(dtNow, "yyyy/MM/dd HH:mm:ss")
Dim dtModifiedNow As Global.System.Nullable(Of Date) = Date.ParseExact(strNow, "yyyy/MM/dd HH:mm:ss", Nothing)

参考文献 †

• 『VB.NET基礎学習Bible』
• 『ゼロからはじめるWindowsプログラミング　Visual Basic 2008入門』