в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:51:05Z

1 версия

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

==DateTime.DayOfWeek==

<source lang="vbnet">
Imports System.IO
Module Module1

Sub Main()
Dim DateInfo As New DateTime(Now.Ticks)
Console.WriteLine("Date: " & DateInfo.Month & "/" & _
DateInfo.Day & "/" & DateInfo.Year)
Console.WriteLine("Date: " & DateInfo.ToLongDateString())
Console.WriteLine("Today is: " & DateInfo.DayOfWeek)
Console.WriteLine("Days in April, 2002: " & DateInfo.DaysInMonth(2002, 4))
End Sub
End Module

</source>

==DateTime.IsLeapYear==

<source lang="vbnet">
Imports System.IO
Module Module1
Sub Main()
Dim Dt As DateTime = Now()

If (Dt.IsLeapYear(Dt.Year)) Then
Console.WriteLine("This is a leap year")
Else
Console.WriteLine("This is not a leap year")
End If
End Sub
End Module

</source>

==DateTime.Second==

<source lang="vbnet">
Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim currentTime as System.DateTime = System.DateTime.Now
Console.WriteLine("currentTime Year :" & currentTime.Year)
Console.WriteLine("currentTime Month:" & currentTime.Month)
Console.WriteLine("currentTime Date:" & currentTime.Date)
Console.WriteLine("currentTime Hour:" & currentTime.Hour)
Console.WriteLine("currentTime Minute:" & currentTime.Minute)
Console.WriteLine("currentTime Second:" & currentTime.Second)
End Sub
End Class

</source>

==DateTime.Subtract==

<source lang="vbnet">
public class Test

public Shared Sub Main
Dim start_time As DateTime
Dim stop_time As DateTime
Dim elapsed_time As TimeSpan
Dim num_items As Integer = 10000
Dim array1(0 To num_items - 1) As Integer
start_time = Now
For i As Integer = 0 To num_items - 1
array1(i) = i
Next i
stop_time = Now
elapsed_time = stop_time.Subtract(start_time)
Console.WriteLine(elapsed_time.TotalSeconds())

Erase array1
End Sub

End class

</source>

==DateTime.ToUniversalTime()==

<source lang="vbnet">
public class Test
public Shared Sub Main
Dim D As DateTime
D = Now()

Console.WriteLine(D.ToUniversalTime().GetType().Name)

Console.WriteLine("UTC-LocalTime=" + D.ToUniversalTime().Subtract(D).ToString())

Console.WriteLine("Ticks since 12:00AM January 1, 1 CE="+ Now().Ticks().ToString())
End Sub
End class

</source>

==DateTime.UtcNow()==

<source lang="vbnet">

Public Class MainClass
Public Shared Sub Main()
"Date Time examples
Dim dteNow As Date = Now()
Dim dteToday As Date = Today()
Dim dteGMT As DateTime = DateTime.UtcNow()
Console.WriteLine(dteNow)
Console.WriteLine(dteToday)
Console.WriteLine(dteGMT)

End Sub
End Class

</source>

==DateTime.Year==

<source lang="vbnet">
Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim currentTime as System.DateTime = System.DateTime.Now
Console.WriteLine("currentTime Year :" & currentTime.Year)
Console.WriteLine("currentTime Month:" & currentTime.Month)
Console.WriteLine("currentTime Date:" & currentTime.Date)
Console.WriteLine("currentTime Hour:" & currentTime.Hour)
Console.WriteLine("currentTime Minute:" & currentTime.Minute)
Console.WriteLine("currentTime Second:" & currentTime.Second)
End Sub
End Class

</source>

==New DateTime==

<source lang="vbnet">

public class Test
public Shared Sub Main
Dim D As New DateTime(10000333333333333)
Console.WriteLine("10000 ticks is " + D.Date())
End Sub
End class

</source>

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

VB.Net by API/System/DateTime - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия