в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:54:36Z

1 версия

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

==Assign Now() to a date variable==

<source lang="vbnet">public class Test
public Shared Sub Main

Dim dteExpiration As Date
dteExpiration = Now()
Console.WriteLine(dteExpiration)

End Sub
End class</source>
<pre class=codeResult>11/05/2007 12:30:59 PM</pre>

==Call to WeekdayName combined with call to Weekday==

<source lang="vbnet">Option Strict On
Imports System.Globalization
Public Module WeekdayNameFunction
Public Sub Main()

Dim birthday As Date = #07/28/1993#
Console.WriteLine(WeekdayName(Weekday(birthday), True))
End Sub
End Module</source>
<pre class=codeResult>Wed</pre>

==CDate: convert string(15 July, o Date==

<source lang="vbnet">Module Tester
Public Sub Main()
Dim sDate As String = "8/1/86"
Dim dtDate As Date = CDate(sDate)
sDate = "15 July, 1215"
dtDate = CDate(sDate)
Console.WriteLine("Date now holds {0}", dtDate)
End Sub
End Module</source>
<pre class=codeResult>Date now holds 15/07/1215 12:00:00 AM</pre>

==CDate: convert string( to date==

<source lang="vbnet">Module Tester
Public Sub Main()
Dim sDate As String = "8/1/86"
Dim dtDate As Date = CDate(sDate)
Console.WriteLine("Date now holds {0}", dtDate)
End Sub
End Module</source>
<pre class=codeResult>Date now holds 08/01/1986 12:00:00 AM</pre>

==CDate: convert string(Tuesday, September 6:45pm) to Date==

<source lang="vbnet">Module Tester
Public Sub Main()
Dim sDate As String = "8/1/86"
Dim dtDate As Date = CDate(sDate)
sDate = "Tuesday, September 16, 1845 6:45pm"
dtDate = CDate(sDate)
Console.WriteLine("Date now holds {0}", dtDate)
End Sub
End Module</source>
<pre class=codeResult>Date now holds 16/09/1845 6:45:00 PM</pre>

==DateAdd: add two date together==

<source lang="vbnet">Option Strict On
Public Module DateAddTest
Public Sub Main()
Console.WriteLine(DateAdd(DateInterval.Hour, 36, Date.Now))
Console.WriteLine(DateAdd(DateInterval.Hour, -36, Date.Now))
End Sub
End Module</source>
<pre class=codeResult>13/05/2007 9:17:01 AM
10/05/2007 9:17:01 AM</pre>

==Determining the weekday of a date==

<source lang="vbnet">Option Strict On
Imports System.Globalization
Public Module WeekdayNameFunction
Public Sub Main()
"
Dim historicalDate As New DateTime(1905, 1, 9, New JulianCalendar())
Dim dayOfWeek As Integer = Weekday(historicalDate, FirstDayOfWeek.System)
Console.WriteLine(WeekdayName(dayOfWeek, False, FirstDayOfWeek.System))
End Sub
End Module</source>
<pre class=codeResult>Sunday</pre>

==Different date between two dates==

<source lang="vbnet">public class Test
public Shared Sub Main

Dim dteExpiration As Date
Dim lngDays As Long
lngDays = DateDiff(DateInterval.Day, #12/31/2000#, Now())
Console.WriteLine(lngDays)

End Sub
End class</source>
<pre class=codeResult>2322</pre>

==TimeOfDay==

<source lang="vbnet">public class Test
public Shared Sub Main
Console.WriteLine(TimeOfDay)
End Sub
End Class</source>
<pre class=codeResult>01/01/0001 12:22:14 PM</pre>

==Weekday Function==

<source lang="vbnet">Option Strict On
Public Module WeekdayFunction
Public Sub Main
Dim holiday As Date = #01/01/2006#
If Weekday(holiday, FirstDayOfWeek.Monday) <= 5 Then
Console.WriteLine("The holiday on {0}, is during the work week.", _
FormatDateTime(holiday, DateFormat.LongDate))
Else
Console.WriteLine("The holiday on {0}, occurs during the weekend.", _
FormatDateTime(holiday, DateFormat.LongDate))
End If
End Sub
End Module</source>
<pre class=codeResult>The holiday on January 1, 2006, occurs during the weekend.</pre>

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

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

в 16:40, 26 мая 2010

Admin: 1 версия