в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:54:34Z

1 версия

Новая страница

==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>
<pre class=codeResult>The original date is 01/01/2000
The new date is 01/06/2000
The new date is 01/07/2000</pre>

==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>
<pre class=codeResult>Year: 2007
Month: 5
Day: 11</pre>

==Day of the week==

<source lang="vbnet">Public Class Tester
Public Shared Sub Main
Console.WriteLine(Today.DayOfWeek.ToString())
End Sub
End Class</source>
<pre class=codeResult>Friday</pre>

==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>
<pre class=codeResult>01:02:03
12:24:36</pre>

==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>
<pre class=codeResult>There are -227 days between December 25, 2007 and May 11, 2007</pre>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Date Time/TimeSpan - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия