VB.Net Tutorial/Date Time/TimeSpan

Материал из VB Эксперт
Перейти к: навигация, поиск

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