VB.Net Tutorial/Date Time/TimeSpan
Содержание
Add TimeSpan to Date
<source lang="vbnet">Option Strict On Public Class DateMembers
Public Shared Sub Main() Dim dat As Date = New Date(2000, 1, 1) Dim ts As New TimeSpan(30, 0, 0, 0) Console.WriteLine("The original date is " & dat) dat = dat.AddMonths(5) Console.WriteLine("The new date is " & dat) dat = dat + ts Console.WriteLine("The new date is " & dat) End Sub
End Class</source>
The original date is 01/01/2000 The new date is 01/06/2000 The new date is 01/07/2000
Date different parts
<source lang="vbnet">Public Class Tester
Public Shared Sub Main Dim rightNow As Date = Now Dim yearNow As Integer = rightNow.Year Dim monthNow As Integer = rightNow.Month Dim dayNow As Integer = rightNow.Day Dim results As String = String.Format( _ "Year: {1}{0}Month: {2}{0}Day: {3}{0}", _ vbNewLine, yearNow, monthNow, dayNow) Console.WriteLine(results) End Sub
End Class</source>
Year: 2007 Month: 5 Day: 11
Day of the week
<source lang="vbnet">Public Class Tester
Public Shared Sub Main Console.WriteLine(Today.DayOfWeek.ToString()) End Sub
End Class</source>
Friday
Ticks times value
<source lang="vbnet">public class Test
public Shared Sub Main Dim ts1, ts2 As TimeSpan ts1 = New TimeSpan(1, 2, 3) ts2 = New TimeSpan(ts1.Ticks * 12) Console.WriteLine(ts1.ToString) Console.WriteLine(ts2.ToString) End Sub
End class</source>
01:02:03 12:24:36
TimeSpan and Date Substract
<source lang="vbnet">Public Class Tester
Public Shared Sub Main Dim birthDay As Date Dim lifeTime As TimeSpan Dim lifeDays As Integer
birthDay = Date.Parse("December 25, 2007") lifeTime = Now.Subtract(birthDay) lifeDays = lifeTime.Days Console.WriteLine(String.Format( _ "There are {0} days between {1:D} and {2:D}", _ lifeDays, birthDay, Now)) End Sub
End Class</source>
There are -227 days between December 25, 2007 and May 11, 2007