本文整理汇总了VB.NET中System.TimeSpan.Parse方法的典型用法代码示例。如果您正苦于以下问题：VB.NET TimeSpan.Parse方法的具体用法？VB.NET TimeSpan.Parse怎么用？VB.NET TimeSpan.Parse使用的例子？那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.TimeSpan的用法示例。
在下文中一共展示了TimeSpan.Parse方法的3个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Example
' 导入命名空间
Imports System.Globalization
Imports System.Threading
Module Example
Public Sub Main()
Dim values() As String = { "6", "6:12", "6:12:14", "6:12:14:45",
"6.12:14:45", "6:12:14:45.3448",
"6:12:14:45,3448", "6:34:14:45" }
Dim cultureNames() As String = { "hr-HR", "en-US"}
' Change the current culture.
For Each cultureName As String In cultureNames
Thread.CurrentThread.CurrentCulture = New CultureInfo(cultureName)
Console.WriteLine("Current Culture: {0}",
Thread.CurrentThread.CurrentCulture.Name)
For Each value As String In values
Try
Dim ts As TimeSpan = TimeSpan.Parse(value)
Console.WriteLine("{0} --> {1}", value, ts.ToString("c"))
Catch e As FormatException
Console.WriteLine("{0}: Bad Format", value)
Catch e As OverflowException
Console.WriteLine("{0}: Overflow", value)
End Try
Next
Console.WriteLine()
Next
End Sub
End Module输出：
Current Culture: hr-HR 6 --> 6.00:00:00 6:12 --> 06:12:00 6:12:14 --> 06:12:14 6:12:14:45 --> 6.12:14:45 6.12:14:45 --> 6.12:14:45 6:12:14:45.3448: Bad Format 6:12:14:45,3448 --> 6.12:14:45.3448000 6:34:14:45: Overflow Current Culture: en-US 6 --> 6.00:00:00 6:12 --> 06:12:00 6:12:14 --> 06:12:14 6:12:14:45 --> 6.12:14:45 6.12:14:45 --> 6.12:14:45 6:12:14:45.3448 --> 6.12:14:45.3448000 6:12:14:45,3448: Bad Format 6:34:14:45: Overflow
示例2: values
Dim values() As String = { "000000006", "12.12:12:12.12345678" }
For Each value As String In values
Try
Dim interval As TimeSpan = TimeSpan.Parse(value)
Console.WriteLine("{0} --> {1}", value, interval)
Catch e As FormatException
Console.WriteLine("{0}: Bad Format", value)
Catch e As OverflowException
Console.WriteLine("{0}: Overflow", value)
End Try
Next
' Output from .NET Framework 3.5 and earlier versions:
' 000000006 --> 6.00:00:00
' 12.12:12:12.12345678: Bad Format
' Output from .NET Framework 4:
' 000000006: Overflow
' 12.12:12:12.12345678: Overflow示例3: Example
' 导入命名空间
Imports System.Globalization
Imports System.Threading
Module Example
Public Sub Main()
Dim values() As String = { "6", "6:12", "6:12:14", "6:12:14:45",
"6.12:14:45", "6:12:14:45.3448",
"6:12:14:45,3448", "6:34:14:45" }
Dim cultures() As CultureInfo = { New CultureInfo("en-US"),
New CultureInfo("ru-RU"),
CultureInfo.InvariantCulture }
Dim header As String = String.Format("{0,-17}", "String")
For Each culture As CultureInfo In cultures
header += If(culture.Equals(CultureInfo.InvariantCulture),
String.Format("{0,20}", "Invariant"),
String.Format("{0,20}", culture.Name))
Next
Console.WriteLine(header)
Console.WriteLine()
For Each value As String In values
Console.Write("{0,-17}", value)
For Each culture As CultureInfo In cultures
Try
Dim ts As TimeSpan = TimeSpan.Parse(value, culture)
Console.Write("{0,20}", ts.ToString("c"))
Catch e As FormatException
Console.Write("{0,20}", "Bad Format")
Catch e As OverflowException
Console.Write("{0,20}", "Overflow")
End Try
Next
Console.WriteLine()
Next
End Sub
End Module输出：
String en-US ru-RU Invariant 6 6.00:00:00 6.00:00:00 6.00:00:00 6:12 06:12:00 06:12:00 06:12:00 6:12:14 06:12:14 06:12:14 06:12:14 6:12:14:45 6.12:14:45 6.12:14:45 6.12:14:45 6.12:14:45 6.12:14:45 6.12:14:45 6.12:14:45 6:12:14:45.3448 6.12:14:45.3448000 Bad Format 6.12:14:45.3448000 6:12:14:45,3448 Bad Format 6.12:14:45.3448000 Bad Format 6:34:14:45 Overflow Overflow Overflow