当前位置: 首页>>代码示例>>VB.NET>>正文


VB.NET TimeSpan构造函数代码示例

本文整理汇总了VB.NET中System.TimeSpan.TimeSpan构造函数的典型用法代码示例。如果您正苦于以下问题:VB.NET TimeSpan构造函数的具体用法?VB.NET TimeSpan怎么用?VB.NET TimeSpan使用的例子?那么恭喜您, 这里精选的构造函数代码示例或许可以为您提供帮助。您也可以进一步了解该构造函数所在System.TimeSpan的用法示例。


在下文中一共展示了TimeSpan构造函数的4个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。

示例1: TimeSpanCtorLDemo

' Example of the TimeSpan( Long ) constructor.
Module TimeSpanCtorLDemo

    ' Create a TimeSpan object and display its value.
    Sub CreateTimeSpan( ticks As Long )

        Dim elapsedTime As New TimeSpan( ticks )

        ' Format the constructor for display.
        Dim ctor AS String = _
            String.Format( "TimeSpan( {0} )", ticks )

        ' Pad the end of a TimeSpan string with spaces if
        ' it does not contain milliseconds.
        Dim elapsedStr As String = elapsedTime.ToString( )
        Dim pointIndex  As Integer = elapsedStr.IndexOf( ":"c )

        pointIndex = elapsedStr.IndexOf( "."c, pointIndex )
        If pointIndex < 0 Then elapsedStr &= "        "

        ' Display the constructor and its value.
        Console.WriteLine( "{0,-33}{1,24}", ctor, elapsedStr )
    End Sub
    
    Sub Main( )

        Console.WriteLine( _
            "This example of the TimeSpan( Long ) constructor " & _
            vbCrLf & "generates the following output." & vbCrLf )
        Console.WriteLine( "{0,-33}{1,16}", "Constructor", "Value" )
        Console.WriteLine( "{0,-33}{1,16}", "-----------", "-----" )

        CreateTimeSpan( 1 )                
        CreateTimeSpan( 999999 )                
        CreateTimeSpan( -1000000000000 )        
        CreateTimeSpan( 18012202000000 )        
        CreateTimeSpan( 999999999999999999 )    
        CreateTimeSpan( 1000000000000000000 )   

    End Sub 
End Module 

' This example of the TimeSpan( Long ) constructor
开发者ID:VB.NET开发者,项目名称:System,代码行数:43,代码来源:TimeSpan

输出:

Constructor                                 Value
-----------                                 -----
TimeSpan( 1 )                            00:00:00.0000001
TimeSpan( 999999 )                       00:00:00.0999999
TimeSpan( -1000000000000 )            -1.03:46:40
TimeSpan( 18012202000000 )            20.20:20:20.2000000
TimeSpan( 999999999999999999 )   1157407.09:46:39.9999999
TimeSpan( 1000000000000000000 )  1157407.09:46:40

示例2: TimeSpanCtorIIIDemo

' Example of the TimeSpan( Integer, Integer, Integer ) constructor.
Module TimeSpanCtorIIIDemo

    ' Create a TimeSpan object and display its value.
    Sub CreateTimeSpan( hours As Integer, minutes As Integer, _
        seconds As Integer )

        Dim elapsedTime As New TimeSpan( hours, minutes, seconds )

        ' Format the constructor for display.
        Dim ctor AS String = _
            String.Format( "TimeSpan( {0}, {1}, {2} )", _
                hours, minutes, seconds )

        ' Display the constructor and its value.
        Console.WriteLine( "{0,-37}{1,16}", _
            ctor, elapsedTime.ToString( ) )
    End Sub
    
    Sub Main()

        Console.WriteLine( _
            "This example of the " & _
            "TimeSpan( Integer, Integer, Integer ) " & vbCrLf & _
            "constructor generates the following output." & vbCrLf )
        Console.WriteLine( "{0,-37}{1,16}", "Constructor", "Value" )
        Console.WriteLine( "{0,-37}{1,16}", "-----------", "-----" )

        CreateTimeSpan( 10, 20, 30 )
        CreateTimeSpan( -10, 20, 30 )
        CreateTimeSpan( 0, 0, 37230 )
        CreateTimeSpan( 1000, 2000, 3000 )
        CreateTimeSpan( 1000, -2000, -3000 )
        CreateTimeSpan( 999999, 999999, 999999 )
    End Sub 
End Module 

' This example of the TimeSpan( Integer, Integer, Integer )
开发者ID:VB.NET开发者,项目名称:System,代码行数:38,代码来源:TimeSpan

输出:

Constructor                                     Value
-----------                                     -----
TimeSpan( 10, 20, 30 )                       10:20:30
TimeSpan( -10, 20, 30 )                     -09:39:30
TimeSpan( 0, 0, 37230 )                      10:20:30
TimeSpan( 1000, 2000, 3000 )              43.02:10:00
TimeSpan( 1000, -2000, -3000 )            40.05:50:00
TimeSpan( 999999, 999999, 999999 )     42372.15:25:39

示例3: Example

Module Example
    ' Create a TimeSpan object and display its value.
    Sub CreateTimeSpan( days As Integer, hours As Integer, _
        minutes As Integer, seconds As Integer )

        Dim elapsedTime As New TimeSpan( _
            days, hours, minutes, seconds )

        ' Format the constructor for display.
        Dim ctor AS String = _
            String.Format( "TimeSpan( {0}, {1}, {2}, {3} )", _
                days, hours, minutes, seconds )

        ' Display the constructor and its value.
        Console.WriteLine( "{0,-44}{1,16}", _
            ctor, elapsedTime.ToString( ) )
    End Sub
    
    Sub Main()
        Console.WriteLine( "{0,-44}{1,16}", "Constructor", "Value" )
        Console.WriteLine( "{0,-44}{1,16}", "-----------", "-----" )

        CreateTimeSpan( 10, 20, 30, 40 )
        CreateTimeSpan( -10, 20, 30, 40 )
        CreateTimeSpan( 0, 0, 0, 937840 )
        CreateTimeSpan( 1000, 2000, 3000, 4000 )
        CreateTimeSpan( 1000, -2000, -3000, -4000 )
        CreateTimeSpan( 999999, 999999, 999999, 999999 )
    End Sub 
End Module
开发者ID:VB.NET开发者,项目名称:System,代码行数:30,代码来源:TimeSpan

输出:

Constructor                                            Value
-----------                                            -----
TimeSpan( 10, 20, 30, 40 )                       10.20:30:40
TimeSpan( -10, 20, 30, 40 )                      -9.03:29:20
TimeSpan( 0, 0, 0, 937840 )                      10.20:30:40
TimeSpan( 1000, 2000, 3000, 4000 )             1085.11:06:40
TimeSpan( 1000, -2000, -3000, -4000 )           914.12:53:20
TimeSpan( 999999, 999999, 999999, 999999 )  1042371.15:25:39

示例4: TimeSpanCtorIIIIIDemo

' Example of the 
' TimeSpan( Integer, Integer, Integer, Integer, Integer ) constructor. 
Module TimeSpanCtorIIIIIDemo

    ' Create a TimeSpan object and display its value.
    Sub CreateTimeSpan( days As Integer, hours As Integer, _
        minutes As Integer, seconds As Integer, millisec As Integer )

        Dim elapsedTime As New TimeSpan( _
            days, hours, minutes, seconds, millisec )

        ' Format the constructor for display.
        Dim ctor As String = _
            String.Format( "TimeSpan( {0}, {1}, {2}, {3}, {4} )", _
                days, hours, minutes, seconds, millisec )

        ' Display the constructor and its value.
        Console.WriteLine( "{0,-48}{1,24}", _
            ctor, elapsedTime.ToString( ) )
    End Sub

    Sub Main( )

        Console.WriteLine( _
            "This example of the " & vbCrLf & _
            "TimeSpan( Integer, Integer, " & _
            "Integer, Integer, Integer ) " & vbCrLf & _
            "constructor generates the following output." & vbCrLf )
        Console.WriteLine( "{0,-48}{1,16}", "Constructor", "Value" )
        Console.WriteLine( "{0,-48}{1,16}", "-----------", "-----" )

        CreateTimeSpan( 10, 20, 30, 40, 50 )
        CreateTimeSpan( -10, 20, 30, 40, 50 )
        CreateTimeSpan( 0, 0, 0, 0, 937840050 )
        CreateTimeSpan( 1111, 2222, 3333, 4444, 5555 )
        CreateTimeSpan( 1111, -2222, -3333, -4444, -5555 )
        CreateTimeSpan( 99999, 99999, 99999, 99999, 99999 )
    End Sub 
End Module 

' This example of the
' TimeSpan( Integer, Integer, Integer, Integer, Integer )
开发者ID:VB.NET开发者,项目名称:System,代码行数:42,代码来源:TimeSpan

输出:

Constructor                                                Value
-----------                                                -----
TimeSpan( 10, 20, 30, 40, 50 )                       10.20:30:40.0500000
TimeSpan( -10, 20, 30, 40, 50 )                      -9.03:29:19.9500000
TimeSpan( 0, 0, 0, 0, 937840050 )                    10.20:30:40.0500000
TimeSpan( 1111, 2222, 3333, 4444, 5555 )           1205.22:47:09.5550000
TimeSpan( 1111, -2222, -3333, -4444, -5555 )       1016.01:12:50.4450000
TimeSpan( 99999, 99999, 99999, 99999, 99999 )    104236.05:27:18.9990000


注:本文中的System.TimeSpan.TimeSpan构造函数示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。