http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FDevelopment%2FDate_OperationVB.Net/Development/Date Operation - История изменений2026-04-05T12:50:09ZИстория изменений этой страницы в викиMediaWiki 1.30.0http://www.vbex.ru/index.php?title=VB.Net/Development/Date_Operation&diff=824&oldid=prev в 16:40, 26 мая 20102010-05-26T16:40:06Z<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>http://www.vbex.ru/index.php?title=VB.Net/Development/Date_Operation&diff=825&oldid=prevAdmin: 1 версия2010-05-26T12:45:17Z<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Add a day, a month and a year to a Date==<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Dim dteStartDate As Date<br />
Dim dteChangedDate As Date<br />
"Start off in 2400<br />
dteStartDate = #2/28/2400#<br />
"Add a day and display the results<br />
dteChangedDate = dteStartDate.AddDays(1)<br />
System.Console.WriteLine(dteChangedDate.ToLongDateString)<br />
"Add some months and display the results<br />
dteChangedDate = dteStartDate.AddMonths(6)<br />
System.Console.WriteLine(dteChangedDate.ToLongDateString)<br />
"Subtract a year and display the results<br />
dteChangedDate = dteStartDate.AddYears(-1)<br />
System.Console.WriteLine(dteChangedDate.ToLongDateString)<br />
End Sub<br />
End Class<br />
<br />
</source><br />
<br />
<br />
==Add time (days, hours) to current time==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System.IO<br />
Module Module1<br />
Sub Main()<br />
Dim Dt As DateTime = Now()<br />
Dim NewDT As DateTime = Now()<br />
Console.WriteLine("Current date and time: " & Dt)<br />
NewDT = NewDT.AddHours(5)<br />
Console.WriteLine("Five hours from now is: " & NewDT)<br />
End Sub<br />
End Module<br />
<br />
<br />
</source><br />
<br />
<br />
==Date Time and TimeSpan Demo==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.Diagnostics<br />
Public Class MainClass<br />
Shared Sub Main()<br />
Const TRIALS As Integer = 10000000<br />
Dim start_time As DateTime<br />
Dim stop_time As DateTime<br />
Dim elapsed_time As TimeSpan<br />
Dim i As Integer<br />
start_time = Now<br />
For i = 1 To TRIALS<br />
Next i<br />
stop_time = Now<br />
elapsed_time = stop_time.Subtract(start_time)<br />
Console.WriteLine(elapsed_time.TotalSeconds.ToString("0.000000"))<br />
start_time = Now<br />
<br />
For i = 1 To TRIALS<br />
<br />
Next i<br />
stop_time = Now<br />
elapsed_time = stop_time.Subtract(start_time)<br />
Console.WriteLine(elapsed_time.TotalSeconds.ToString("0.000000")) <br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Date Time Subtraction==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Public Class MainClass<br />
Shared Sub Main(ByVal args As String())<br />
Dim date1 As Date = #7/20/2004#<br />
Dim date2 As Date = #8/7/2004#<br />
Dim elapsed_time As TimeSpan<br />
elapsed_time = Date.op_Subtraction(date2, date1)<br />
Console.WriteLine(elapsed_time.Days.ToString)<br />
<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==Multiply Time Span==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Public Class MainClass<br />
Shared Sub Main(ByVal args As String())<br />
Dim ts1, ts2 As TimeSpan<br />
ts1 = New TimeSpan(1, 2, 3)<br />
ts2 = New TimeSpan(ts1.Ticks * 12)<br />
Console.WriteLine(ts1.ToString)<br />
Console.WriteLine(ts2.ToString)<br />
<br />
End Sub<br />
End Class<br />
<br />
<br />
</source></div>Admin