Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| ' Visual Basic .NET Document | |
| Option Strict On | |
| Module Example | |
| Public Sub Main() | |
| FSpecifier() | |
| Console.WriteLine("-----") | |
| FFSpecifier() | |
| Console.WriteLine("-----") | |
| FFFSpecifier() | |
| Console.WriteLine("-----") | |
| FFFFSpecifier() | |
| Console.WriteLine("-----") | |
| FFFFFSpecifier() | |
| Console.WriteLine("-----") | |
| FFFFFFSpecifier() | |
| Console.WriteLine("-----") | |
| F7Specifier() | |
| End Sub | |
| Private Sub FSpecifier() | |
| ' <Snippet21> | |
| Console.WriteLine("Formatting:") | |
| Dim ts1 As TimeSpan = TimeSpan.Parse("0:0:3.669") | |
| Console.WriteLine("{0} ('%F') --> {0:%F}", ts1) | |
| Dim ts2 As TimeSpan = TimeSpan.Parse("0:0:3.091") | |
| Console.WriteLine("{0} ('ss\.F') --> {0:ss\.F}", ts2) | |
| Console.WriteLine() | |
| Console.WriteLine("Parsing:") | |
| Dim inputs() As String = { "0:0:03.", "0:0:03.1", "0:0:03.12" } | |
| Dim fmt As String = "h\:m\:ss\.F" | |
| Dim ts3 As TimeSpan | |
| For Each input As String In inputs | |
| If TimeSpan.TryParseExact(input, fmt, Nothing, ts3) | |
| Console.WriteLine("{0} ('{1}') --> {2}", input, fmt, ts3) | |
| Else | |
| Console.WriteLine("Cannot parse {0} with '{1}'.", | |
| input, fmt) | |
| End If | |
| Next | |
| ' The example displays the following output: | |
| ' Formatting: | |
| ' 00:00:03.6690000 ('%F') --> 6 | |
| ' 00:00:03.0910000 ('ss\.F') --> 03. | |
| ' | |
| ' Parsing: | |
| ' 0:0:03. ('h\:m\:ss\.F') --> 00:00:03 | |
| ' 0:0:03.1 ('h\:m\:ss\.F') --> 00:00:03.1000000 | |
| ' Cannot parse 0:0:03.12 with 'h\:m\:ss\.F'. | |
| ' </Snippet21> | |
| End Sub | |
| Private Sub FFSpecifier() | |
| ' <Snippet22> | |
| Console.WriteLine("Formatting:") | |
| Dim ts1 As TimeSpan = TimeSpan.Parse("0:0:3.697") | |
| Console.WriteLine("{0} ('FF') --> {0:FF}", ts1) | |
| Dim ts2 As TimeSpan = TimeSpan.Parse("0:0:3.809") | |
| Console.WriteLine("{0} ('ss\.FF') --> {0:ss\.FF}", ts2) | |
| Console.WriteLine() | |
| Console.WriteLine("Parsing:") | |
| Dim inputs() As String = { "0:0:03.", "0:0:03.1", "0:0:03.127" } | |
| Dim fmt As String = "h\:m\:ss\.FF" | |
| Dim ts3 As TimeSpan | |
| For Each input As String In inputs | |
| If TimeSpan.TryParseExact(input, fmt, Nothing, ts3) | |
| Console.WriteLine("{0} ('{1}') --> {2}", input, fmt, ts3) | |
| Else | |
| Console.WriteLine("Cannot parse {0} with '{1}'.", | |
| input, fmt) | |
| End If | |
| Next | |
| ' The example displays the following output: | |
| ' Formatting: | |
| ' 00:00:03.6970000 ('FF') --> 69 | |
| ' 00:00:03.8090000 ('ss\.FF') --> 03.8 | |
| ' | |
| ' Parsing: | |
| ' 0:0:03. ('h\:m\:ss\.FF') --> 00:00:03 | |
| ' 0:0:03.1 ('h\:m\:ss\.FF') --> 00:00:03.1000000 | |
| ' Cannot parse 0:0:03.127 with 'h\:m\:ss\.FF'. | |
| ' </Snippet22> | |
| End Sub | |
| Private Sub FFFSpecifier() | |
| ' <Snippet23> | |
| Console.WriteLine("Formatting:") | |
| Dim ts1 As TimeSpan = TimeSpan.Parse("0:0:3.6974") | |
| Console.WriteLine("{0} ('FFF') --> {0:FFF}", ts1) | |
| Dim ts2 As TimeSpan = TimeSpan.Parse("0:0:3.8009") | |
| Console.WriteLine("{0} ('ss\.FFF') --> {0:ss\.FFF}", ts2) | |
| Console.WriteLine() | |
| Console.WriteLine("Parsing:") | |
| Dim inputs() As String = { "0:0:03.", "0:0:03.12", "0:0:03.1279" } | |
| Dim fmt As String = "h\:m\:ss\.FFF" | |
| Dim ts3 As TimeSpan | |
| For Each input As String In inputs | |
| If TimeSpan.TryParseExact(input, fmt, Nothing, ts3) | |
| Console.WriteLine("{0} ('{1}') --> {2}", input, fmt, ts3) | |
| Else | |
| Console.WriteLine("Cannot parse {0} with '{1}'.", | |
| input, fmt) | |
| End If | |
| Next | |
| ' The example displays the following output: | |
| ' Formatting: | |
| ' 00:00:03.6974000 ('FFF') --> 697 | |
| ' 00:00:03.8009000 ('ss\.FFF') --> 03.8 | |
| ' | |
| ' Parsing: | |
| ' 0:0:03. ('h\:m\:ss\.FFF') --> 00:00:03 | |
| ' 0:0:03.12 ('h\:m\:ss\.FFF') --> 00:00:03.1200000 | |
| ' Cannot parse 0:0:03.1279 with 'h\:m\:ss\.FFF'. | |
| ' </Snippet23> | |
| End Sub | |
| Private Sub FFFFSpecifier() | |
| ' <Snippet24> | |
| Console.WriteLine("Formatting:") | |
| Dim ts1 As TimeSpan = TimeSpan.Parse("0:0:3.69749") | |
| Console.WriteLine("{0} ('FFFF') --> {0:FFFF}", ts1) | |
| Dim ts2 As TimeSpan = TimeSpan.Parse("0:0:3.80009") | |
| Console.WriteLine("{0} ('ss\.FFFF') --> {0:ss\.FFFF}", ts2) | |
| Console.WriteLine() | |
| Console.WriteLine("Parsing:") | |
| Dim inputs() As String = { "0:0:03.", "0:0:03.12", "0:0:03.12795" } | |
| Dim fmt As String = "h\:m\:ss\.FFFF" | |
| Dim ts3 As TimeSpan | |
| For Each input As String In inputs | |
| If TimeSpan.TryParseExact(input, fmt, Nothing, ts3) | |
| Console.WriteLine("{0} ('{1}') --> {2}", input, fmt, ts3) | |
| Else | |
| Console.WriteLine("Cannot parse {0} with '{1}'.", | |
| input, fmt) | |
| End If | |
| Next | |
| ' The example displays the following output: | |
| ' Formatting: | |
| ' 00:00:03.6974900 ('FFFF') --> 6974 | |
| ' 00:00:03.8000900 ('ss\.FFFF') --> 03.8 | |
| ' | |
| ' Parsing: | |
| ' 0:0:03. ('h\:m\:ss\.FFFF') --> 00:00:03 | |
| ' 0:0:03.12 ('h\:m\:ss\.FFFF') --> 00:00:03.1200000 | |
| ' Cannot parse 0:0:03.12795 with 'h\:m\:ss\.FFFF'. | |
| ' </Snippet24> | |
| End Sub | |
| Private Sub FFFFFSpecifier() | |
| ' <Snippet25> | |
| Console.WriteLine("Formatting:") | |
| Dim ts1 As TimeSpan = TimeSpan.Parse("0:0:3.697497") | |
| Console.WriteLine("{0} ('FFFFF') --> {0:FFFFF}", ts1) | |
| Dim ts2 As TimeSpan = TimeSpan.Parse("0:0:3.800009") | |
| Console.WriteLine("{0} ('ss\.FFFFF') --> {0:ss\.FFFFF}", ts2) | |
| Console.WriteLine() | |
| Console.WriteLine("Parsing:") | |
| Dim inputs() As String = { "0:0:03.", "0:0:03.12", "0:0:03.127956" } | |
| Dim fmt As String = "h\:m\:ss\.FFFFF" | |
| Dim ts3 As TimeSpan | |
| For Each input As String In inputs | |
| If TimeSpan.TryParseExact(input, fmt, Nothing, ts3) | |
| Console.WriteLine("{0} ('{1}') --> {2}", input, fmt, ts3) | |
| Else | |
| Console.WriteLine("Cannot parse {0} with '{1}'.", | |
| input, fmt) | |
| End If | |
| Next | |
| ' The example displays the following output: | |
| ' Formatting: | |
| ' 00:00:03.6974970 ('FFFFF') --> 69749 | |
| ' 00:00:03.8000090 ('ss\.FFFFF') --> 03.8 | |
| ' | |
| ' Parsing: | |
| ' 0:0:03. ('h\:m\:ss\.FFFF') --> 00:00:03 | |
| ' 0:0:03.12 ('h\:m\:ss\.FFFF') --> 00:00:03.1200000 | |
| ' Cannot parse 0:0:03.127956 with 'h\:m\:ss\.FFFF'. | |
| ' </Snippet25> | |
| End Sub | |
| Private Sub FFFFFFSpecifier() | |
| ' <Snippet26> | |
| Console.WriteLine("Formatting:") | |
| Dim ts1 As TimeSpan = TimeSpan.Parse("0:0:3.6974974") | |
| Console.WriteLine("{0} ('FFFFFF') --> {0:FFFFFF}", ts1) | |
| Dim ts2 As TimeSpan = TimeSpan.Parse("0:0:3.8000009") | |
| Console.WriteLine("{0} ('ss\.FFFFFF') --> {0:ss\.FFFFFF}", ts2) | |
| Console.WriteLine() | |
| Console.WriteLine("Parsing:") | |
| Dim inputs() As String = { "0:0:03.", "0:0:03.12", "0:0:03.1279569" } | |
| Dim fmt As String = "h\:m\:ss\.FFFFFF" | |
| Dim ts3 As TimeSpan | |
| For Each input As String In inputs | |
| If TimeSpan.TryParseExact(input, fmt, Nothing, ts3) | |
| Console.WriteLine("{0} ('{1}') --> {2}", input, fmt, ts3) | |
| Else | |
| Console.WriteLine("Cannot parse {0} with '{1}'.", | |
| input, fmt) | |
| End If | |
| Next | |
| ' The example displays the following output: | |
| ' Formatting: | |
| ' 00:00:03.6974974 ('FFFFFF') --> 697497 | |
| ' 00:00:03.8000009 ('ss\.FFFFFF') --> 03.8 | |
| ' | |
| ' Parsing: | |
| ' 0:0:03. ('h\:m\:ss\.FFFFFF') --> 00:00:03 | |
| ' 0:0:03.12 ('h\:m\:ss\.FFFFFF') --> 00:00:03.1200000 | |
| ' Cannot parse 0:0:03.1279569 with 'h\:m\:ss\.FFFFFF'. | |
| ' </Snippet26> | |
| End Sub | |
| Private Sub F7Specifier() | |
| ' <Snippet27> | |
| Console.WriteLine("Formatting:") | |
| Dim ts1 As TimeSpan = TimeSpan.Parse("0:0:3.6974974") | |
| Console.WriteLine("{0} ('FFFFFFF') --> {0:FFFFFFF}", ts1) | |
| Dim ts2 As TimeSpan = TimeSpan.Parse("0:0:3.9500000") | |
| Console.WriteLine("{0} ('ss\.FFFFFFF') --> {0:ss\.FFFFFFF}", ts2) | |
| Console.WriteLine() | |
| Console.WriteLine("Parsing:") | |
| Dim inputs() As String = { "0:0:03.", "0:0:03.12", "0:0:03.1279569" } | |
| Dim fmt As String = "h\:m\:ss\.FFFFFFF" | |
| Dim ts3 As TimeSpan | |
| For Each input As String In inputs | |
| If TimeSpan.TryParseExact(input, fmt, Nothing, ts3) | |
| Console.WriteLine("{0} ('{1}') --> {2}", input, fmt, ts3) | |
| Else | |
| Console.WriteLine("Cannot parse {0} with '{1}'.", | |
| input, fmt) | |
| End If | |
| Next | |
| ' The example displays the following output: | |
| ' Formatting: | |
| ' 00:00:03.6974974 ('FFFFFFF') --> 6974974 | |
| ' 00:00:03.9500000 ('ss\.FFFFFFF') --> 03.95 | |
| ' | |
| ' Parsing: | |
| ' 0:0:03. ('h\:m\:ss\.FFFFFFF') --> 00:00:03 | |
| ' 0:0:03.12 ('h\:m\:ss\.FFFFFFF') --> 00:00:03.1200000 | |
| ' 0:0:03.1279569 ('h\:m\:ss\.FFFFFFF') --> 00:00:03.1279569 | |
| ' </Snippet27> | |
| End Sub | |
| End Module | |