本文整理汇总了VB.NET中System.TimeSpan.Ticks属性的典型用法代码示例。如果您正苦于以下问题：VB.NET TimeSpan.Ticks属性的具体用法？VB.NET TimeSpan.Ticks怎么用？VB.NET TimeSpan.Ticks使用的例子？那么, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.TimeSpan的用法示例。
在下文中一共展示了TimeSpan.Ticks属性的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Example
Module Example
Sub Main()
' Create and display a TimeSpan value of 1 tick.
Console.Write(vbCrLf & "{0,-45}", "TimeSpan( 1 )")
ShowTimeSpanProperties(New TimeSpan(1))
' Create a TimeSpan value with a large number of ticks.
Console.Write(vbCrLf & "{0,-45}", "TimeSpan( 111222333444555 )")
ShowTimeSpanProperties(New TimeSpan(111222333444555))
' This TimeSpan has all fields specified.
Console.Write(vbCrLf & "{0,-45}", "TimeSpan( 10, 20, 30, 40, 50 )")
ShowTimeSpanProperties(New TimeSpan( 10, 20, 30, 40, 50))
' This TimeSpan has all fields overflowing.
Console.Write(vbCrLf & "{0,-45}",
"TimeSpan( 1111, 2222, 3333, 4444, 5555 )")
ShowTimeSpanProperties(New TimeSpan( 1111, 2222, 3333, 4444, 5555))
' This TimeSpan is based on a number of days.
Console.Write( vbCrLf & "{0,-45}", "FromDays( 20.84745602 )")
ShowTimeSpanProperties(TimeSpan.FromDays( 20.84745602))
End Sub
Sub ShowTimeSpanProperties(interval As TimeSpan)
Console.WriteLine("{0,21}", interval)
Console.WriteLine("{0,-12}{1,8} {2,-18}{3,21:N3}",
"Days", interval.Days, "TotalDays", interval.TotalDays)
Console.WriteLine("{0,-12}{1,8} {2,-18}{3,21:N3}", "Hours", interval.Hours,
"TotalHours", interval.TotalHours)
Console.WriteLine("{0,-12}{1,8} {2,-18}{3,21:N3}", "Minutes", interval.Minutes,
"TotalMinutes", interval.TotalMinutes)
Console.WriteLine("{0,-12}{1,8} {2,-18}{3,21:N3}", "Seconds", interval.Seconds,
"TotalSeconds", interval.TotalSeconds)
Console.WriteLine("{0,-12}{1,8} {2,-18}{3,21:N3}",
"Milliseconds", interval.Milliseconds,
"TotalMilliseconds", interval.TotalMilliseconds)
Console.WriteLine("{0,-12}{1,8} {2,-18}{3,21:N0}",
Nothing, Nothing, "Ticks", interval.Ticks)
End Sub
End Module
' The example displays the following output if the current culture is en-US:
' TimeSpan( 1 ) 00:00:00.0000001
' Days 0 TotalDays 0.000
' Hours 0 TotalHours 0.000
' Minutes 0 TotalMinutes 0.000
' Seconds 0 TotalSeconds 0.000
' Milliseconds 0 TotalMilliseconds 0.000
' Ticks 1
'
' TimeSpan( 111222333444555 ) 128.17:30:33.3444555
' Days 128 TotalDays 128.730
' Hours 17 TotalHours 3,089.509
' Minutes 30 TotalMinutes 185,370.556
' Seconds 33 TotalSeconds 11,122,233.344
' Milliseconds 344 TotalMilliseconds 11,122,233,344.456
' Ticks 111,222,333,444,555
'
' TimeSpan( 10, 20, 30, 40, 50 ) 10.20:30:40.0500000
' Days 10 TotalDays 10.855
' Hours 20 TotalHours 260.511
' Minutes 30 TotalMinutes 15,630.668
' Seconds 40 TotalSeconds 937,840.050
' Milliseconds 50 TotalMilliseconds 937,840,050.000
' Ticks 9,378,400,500,000
'
' TimeSpan( 1111, 2222, 3333, 4444, 5555 ) 1205.22:47:09.5550000
' Days 1205 TotalDays 1,205.949
' Hours 22 TotalHours 28,942.786
' Minutes 47 TotalMinutes 1,736,567.159
' Seconds 9 TotalSeconds 104,194,029.555
' Milliseconds 555 TotalMilliseconds 104,194,029,555.000
' Ticks 1,041,940,295,550,000
'
' FromDays( 20.84745602 ) 20.20:20:20.2000000
' Days 20 TotalDays 20.847
' Hours 20 TotalHours 500.339
' Minutes 20 TotalMinutes 30,020.337
' Seconds 20 TotalSeconds 1,801,220.200
' Milliseconds 200 TotalMilliseconds 1,801,220,200.000
' Ticks 18,012,202,000,000示例2: Test
public class Test
public Shared Sub Main
Dim ts1, ts2 As TimeSpan
ts1 = New TimeSpan(1, 2, 3)
ts2 = New TimeSpan(ts1.Ticks * 12)
Console.WriteLine(ts1.ToString)
Console.WriteLine(ts2.ToString)
End Sub
End class