2

私の日付は次のとおりです。

    Dim theDate As DateTime = DateTime.ParseExact("2013-04-10 21:34 PM", "yyyy-MM-dd HH:mm tt", CultureInfo.InvariantCulture)


この形式を使用しています：

"yyyy-MM-dd HH:mm tt"

私は現在の日付を取得し、次のようなことをしたい:

Dim theDate As DateTime = DateTime.ParseExact("2013-04-10 21:34 PM", "yyyy-MM-dd HH:mm tt", CultureInfo.InvariantCulture)
Dim currentTime As System.DateTime = System.DateTime.Now
dim Result as new datetime
Result = currentTime.Date - theDate

アップデート：

私は試した：

Dim currentTime As System.DateTime = System.DateTime.Now
Dim date1 As New System.DateTime(2013, 4, 10, 21, 34, 10)
Dim date2 As New System.DateTime(currentTime.Year, currentTime.Month, currentTime.Day, currentTime.Hour, currentTime.Minute, currentTime.Second)
Dim diff1 As System.TimeSpan
diff1 = date2.Subtract(date1)
MsgBox(diff1.ToString)
4

1 に答える 1

4

A ではTimeSpan、日付を減算できます。

DateTime.Subtract メソッド (TimeSpan)

Dim date1 As New System.DateTime(1996, 6, 3, 22, 15, 0)
Dim date2 As New System.DateTime(1996, 12, 6, 13, 2, 0)

Dim diff1 As System.TimeSpan
' diff1 gets 185 days, 14 hours, and 47 minutes.
diff1 = date2.Subtract(date1)

MsgBox(diff1.Days)
MsgBox(diff1.Hours)
MsgBox(diff1.Minutes)

TimeSpan クラスのすべてのメンバーは次のとおりです。

于 2012-08-27T12:01:26.217 に答える