ホ罍ァ
Dim dt As Date = #10/16/1979 10:00PM#
ホ罍ァ
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)
。。NULLイト、ホDateキソ、ヒ、ケ、、ヒ、マ。「Global.System.Nullable(Of Date)、ヘム、、、、ミ、隍、。」
ホ罍ァ
Private dt As Global.System.Nullable(Of Date) = Nothing
。。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
。。、隍ッサネ、、、ニノユ、ホスシー、マDateFormatホオキソ、ヒヘムーユ、オ、、ニ、、、。」
format | ーユフ」 |
GeneralDate | ニノユ、ォサケ。」、゙、ソ、マホセハ、ノスシィ |
LongDate | トケ、、キチシー、ヌニノユ、ノスシィ |
ShortDate | テサ、、キチシー、ヌニノユ、ノスシィ |
LongTime | サケ、ノスシィ |
ShortTime | 24サエヨキチシー、ヌサケ、ノスシィ |
。。セワコル、マ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キソ、。ヨ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、サネ、テ、ニシツクス、ヌ、ュ、。」
ホ罍ァ
Dim dt As Date = #10/16/1979 10:00PM# Dim str As String = FormatDateTime(dt1, DateFormat.ShortDate)) & " " & FormatDateTime(dt1, DateFormat.LongTime))
ホ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)
ホ罍ァ
Dim str As String = "2008/11/19 12:00:00" Dim dt As Date = Prase(str)
ホ罍ァ
Dim str As String = "2008/11/19 12:00:00" Dim dt As Date = nothing TryPrase(str, dt)
ホ罍ァ
Dim str As String = "2008/11/19 12:00:00" Dim dt As Date = Date.ParseExact(str, "yyyyMMddHHmmss", Nothing)
シー | キイフ |
Date + TimeSpan | Date |
Date - Date | TimeSpan |
Date - TimeSpan | Date |
TimeSpan + TimeSpan | TimeSpan |
TimeSpan - TImespan | TimeSpan |
DateAdd(interval, 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#、ヒ、ハ、。」
interval | ーユフ」 |
Day | ニ。ハ1。チ31。ヒ |
DayOfYear | ヌッエヨトフササニ。ハ1。チ366。ヒ |
Hour | サ |
Minute | ハャ |
Month | キ |
Quarter | サヘネセエ |
Second | ノテ |
Weekday | ヘヒニ |
WeekOfYear | スオ |
Year | ヌッ |
。。セワコル、マMSDN、サイセネ、サ、陦」
DateDiff(interval, date1, date2)
ホ罍ァ#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#、ヒ、ハ、。」、ト、゙、遙「サハャノテ、ヒ、マアニカチ、キ、ニ、、、ハ、、。」
ホ罍ァサリト熙キ、ソノテ、タ、ア・ケ・遙シ・ラ、ケ、・ラ・・キ。シ・ク・
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キソ、ォ、餞tringキソ、ヒーテカハムエケ、キ、ニ、ォ、鬘「、゙、ソ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)