VB.Net/Development/Date Format
Содержание
Assign Date value in format: #AM#
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main() Dim dteData As Date dteData = #5/5/1967 6:41:00 AM# "Display the date and time System.Console.WriteLine(dteData.ToLongDateString & " " & _ dteData.ToLongTimeString) End Sub
End Class
</source>
DateTime Format French
<source lang="vbnet"> Imports System Imports System.Globalization Imports System.Threading Module Module1
Sub Main() Dim MyCulture As CultureInfo = New CultureInfo("fr-FR") Dim MyDate As DateTime = Now() Dim dtf As DateTimeFormatInfo Thread.CurrentThread.CurrentCulture = MyCulture Console.WriteLine(MyDate.ToLongDateString()) Console.WriteLine(MyDate.ToLongTimeString()) Console.WriteLine(MyDate.ToShortDateString()) Console.WriteLine(MyDate.ToShortTimeString()) dtf = MyCulture.DateTimeFormat dtf.DateSeparator = "\" dtf.TimeSeparator = "&" Console.WriteLine(MyDate.ToLongDateString()) Console.WriteLine(MyDate.ToLongTimeString()) Console.WriteLine(MyDate.ToShortDateString()) Console.WriteLine(MyDate.ToShortTimeString()) End Sub
End Module
</source>
Different Date in dddd and MMMM
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main() Dim dteData As Date "Get the current date and time dteData = Now System.Console.WriteLine("Weekday name: " & dteData.ToString("dddd")) System.Console.WriteLine("Month name: " & dteData.ToString("MMMM")) End Sub
End Class
</source>
Is input value a Date
<source lang="vbnet"> Public Class MainClass
Public Shared Sub Main() System.Console.WriteLine(IsDate("your input")) End Sub Public Shared Function IsDate(ByVal DateIn As String) As Boolean Dim datDateTime As DateTime Dim blnIsDate As Boolean = True Try datDateTime = DateTime.Parse(DateIn) Catch e As FormatException blnIsDate = False End Try Return blnIsDate End Function
End Class
</source>
Output time in format: "h:mm:ss tt"
<source lang="vbnet"> Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Imports System.Diagnostics Imports System.Drawing.Printing Imports System.ruponentModel
Public Class MainClass
Shared Sub Main() Console.WriteLine(Now.ToString("h:mm:ss tt")) End Sub
End Class
</source>
Show Date in different format
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main() Dim dteData As Date "Get the current date and time dteData = Now "Display the results System.Console.WriteLine(dteData) "Display dates System.Console.WriteLine(dteData.ToLongDateString) System.Console.WriteLine(dteData.ToShortDateString) "Display times System.Console.WriteLine(dteData.ToLongTimeString) System.Console.WriteLine(dteData.ToShortTimeString) End Sub
End Class
</source>
To Long Date, Long Time and Universal Time
<source lang="vbnet"> Imports System.IO Module Module1
Sub Main() Dim Dt As DateTime = Now() Console.WriteLine("Long date: " & Dt.ToLongDateString) Console.WriteLine("Short date: " & Dt.ToShortDateString) Console.WriteLine("Long time: " & Dt.ToLongTimeString) Console.WriteLine("Short time: " & Dt.ToShortTimeString) Console.WriteLine("Universal time: " & Dt.ToUniversalTime) End Sub
End Module
</source>