Imports System
Public Class Program
Public Shared Sub Main()
Dim dt As DateTime = New DateTime(2005, 03, 06, 15, 07, 09, 613)
Dim s As String = String.Format("{0:t tt}", dt)
Console.WriteLine(s)
dt = New DateTime(2005, 03, 06, 4, 07, 09, 613)
s = String.Format("{0:t tt}", dt)
Console.WriteLine(s)
End Sub
End Class
' run:
'
' P PM
' A AM
'