16,717
社区成员
发帖
与我相关
我的任务
分享 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String = "2008-10-10"
Dim result As String = GetEnDateTime(s)
Console.WriteLine(result)'10-Oct-08
result = GetEnDateTime(Now)
Console.WriteLine(result)'05-Dec-08
End Sub
Public Function GetEnDateTime(ByVal input As String) As String
Return GetEnDateTime(DateTime.Parse(input))
End Function
Public Function GetEnDateTime(ByVal input As DateTime) As String
Return input.ToString("dd-MMM-yy", New Globalization.CultureInfo("en-US", False).DateTimeFormat)
End Function