【VB】“HH:MM:SS”格式的时间的计算

0xAA55

原理很简单。转换成秒。然后进行计算（加减乘除与或非、左移右移等）。最后再转换回HH:MM:SS的格式。
看这界面！多直观！还支持16进制！

注意我用的是VB6哈。不是.NET
BIN下载： 时间计算.exe (24 KB, 下载次数: 0, 售价: 1 个宅币)

2014-7-6 22:44 上传

点击文件名下载附件

SRC下载： 时间计算.7z (6.46 KB, 下载次数: 5, 售价: 10 个宅币)

2014-7-6 22:45 上传

点击文件名下载附件

顺带我把源代码放出来。一览无余。

1. VERSION 5.00
   
2. Begin VB.Form frmTimeCalc
   
3.    BorderStyle     =   1  'Fixed Single
   
4.    Caption         =   "时间计算器"
   
5.    ClientHeight    =   495
   
6.    ClientLeft      =   45
   
7.    ClientTop       =   375
   
8.    ClientWidth     =   6495
   
9.    Icon            =   "frmTimeCalc.frx":0000
   
10.    LinkTopic       =   "Form1"
    
11.    MaxButton       =   0   'False
    
12.    ScaleHeight     =   33
    
13.    ScaleMode       =   3  'Pixel
    
14.    ScaleWidth      =   433
    
15.    StartUpPosition =   3  '窗口缺省
    
16.    Begin VB.ComboBox CbOperator
    
17.       Height          =   300
    
18.       ItemData        =   "frmTimeCalc.frx":000C
    
19.       Left            =   2040
    
20.       List            =   "frmTimeCalc.frx":002B
    
21.       Style           =   2  'Dropdown List
    
22.       TabIndex        =   4
    
23.       Top             =   120
    
24.       Width           =   855
    
25.    End
    
26.    Begin VB.TextBox txtResult
    
27.       BackColor       =   &H8000000F&
    
28.       Height          =   270
    
29.       Left            =   5400
    
30.       Locked          =   -1  'True
    
31.       TabIndex        =   3
    
32.       Text            =   "00:00:00"
    
33.       Top             =   120
    
34.       Width           =   975
    
35.    End
    
36.    Begin VB.CommandButton Calc
    
37.       Caption         =   "="
    
38.       Height          =   255
    
39.       Left            =   4920
    
40.       TabIndex        =   2
    
41.       Top             =   120
    
42.       Width           =   375
    
43.    End
    
44.    Begin VB.TextBox txtTime2
    
45.       Height          =   270
    
46.       Left            =   3000
    
47.       TabIndex        =   1
    
48.       Text            =   "00:00:00"
    
49.       Top             =   120
    
50.       Width           =   1815
    
51.    End
    
52.    Begin VB.TextBox txtTime1
    
53.       Height          =   270
    
54.       Left            =   120
    
55.       TabIndex        =   0
    
56.       Text            =   "00:00:00"
    
57.       Top             =   120
    
58.       Width           =   1815
    
59.    End
    
60. End
    
61. Attribute VB_Name = "frmTimeCalc"
    
62. Attribute VB_GlobalNameSpace = False
    
63. Attribute VB_Creatable = False
    
64. Attribute VB_PredeclaredId = True
    
65. Attribute VB_Exposed = False
    
66. '作者：0xAA55
    
67. '论坛：[url]http://www.0xaa55.com/[/url]
    
68. '版权所有(C) 2013-2014 技术宅的结界
    
69. '请保留原作者信息否则视为侵权
    
70. Option Explicit
    
71. 
    
72. '为了保证我们不在地球的时候也能用上这个程序，我把这些常数弄了一下
    
73. Private Const SecondsPerMinute As Long = 60 '每分钟秒数
    
74. Private Const MinutesPerHour As Long = 60 '每小时分钟数
    
75. Private Const HoursPerDay As Long = 24 '每天的小时数
    
76. Private Const SecondsPerHour As Long = SecondsPerMinute * MinutesPerHour '每小时的秒数
    
77. Private Const SecondsPerDay As Long = SecondsPerHour * HoursPerDay '每天的秒数
    
78. 
    
79. 'TimeToSeconds:
    
80. '将描述时间的字符串转换成以秒计数的数值。字符串的格式是 小时:分钟:秒
    
81. Function TimeToSeconds(ByVal TimeString As String) As Long
    
82. On Error GoTo ErrHandler
    
83. Dim Hours&, Minutes&, Seconds&, Strings$()
    
84. Strings = Split(TimeString, ":")
    
85. Hours = CLng(Replace(Strings(0), "0x", "&H"))
    
86. Minutes = CLng(Replace(Strings(1), "0x", "&H"))
    
87. Seconds = CLng(Replace(Strings(2), "0x", "&H"))
    
88. TimeToSeconds = Seconds + Minutes * SecondsPerMinute + Hours * SecondsPerHour
    
89. Exit Function
    
90. ErrHandler:
    
91. TimeToSeconds = -1
    
92. End Function
    
93. 
    
94. 'SecondsToTime:
    
95. '将描述时间的以秒计数的数值转换成字符串。字符串的格式是 小时:分钟:秒
    
96. Function SecondsToTime(ByVal TimeSeconds As Long) As String
    
97. Dim Hours&, Minutes&, Seconds&, Sign As String
    
98. If TimeSeconds < 0 Then
    
99.     TimeSeconds = -TimeSeconds
    
100.     Sign = "-"
     
101. End If
     
102. Seconds = TimeSeconds Mod SecondsPerMinute
     
103. Minutes = (TimeSeconds \ SecondsPerMinute) Mod MinutesPerHour
     
104. Hours = (TimeSeconds \ SecondsPerHour) Mod HoursPerDay
     
105. SecondsToTime = Sign & Format$(Hours, "00") & ":" & Format$(Minutes, "00") & ":" & Format$(Seconds, "00")
     
106. End Function
     
107. 
     
108. Private Sub Calc_Click()
     
109. On Error Resume Next
     
110. 
     
111. '先全部转换成秒
     
112. Dim Seconds1 As Long, Seconds2 As Long
     
113. Seconds1 = TimeToSeconds(txtTime1.Text)
     
114. Seconds2 = TimeToSeconds(txtTime2.Text)
     
115. If Seconds1 = -1 Or Seconds2 = -1 Then
     
116.     MsgBox "时间格式不对。请按照“时:分:秒”的方式输入。", vbCritical, "无法计算。"
     
117.     Exit Sub
     
118. End If
     
119. 
     
120. Dim ResultSeconds As Long
     
121. 
     
122. '然后进行计算。支持⑨种计算
     
123. Select Case CbOperator.ListIndex
     
124.     Case 0 '加
     
125.         ResultSeconds = (Seconds1 + Seconds2) Mod SecondsPerDay
     
126.     Case 1 '减
     
127.         ResultSeconds = (Seconds1 - Seconds2) Mod SecondsPerDay
     
128.     Case 2 '乘
     
129.         ResultSeconds = (Seconds1 * Seconds2) Mod SecondsPerDay
     
130.     Case 3 '除
     
131.         ResultSeconds = (Seconds1 \ Seconds2) Mod SecondsPerDay
     
132.     Case 4 '与
     
133.         ResultSeconds = (Seconds1 And Seconds2) Mod SecondsPerDay
     
134.     Case 5 '或
     
135.         ResultSeconds = (Seconds1 Or Seconds2) Mod SecondsPerDay
     
136.     Case 6 '异或
     
137.         ResultSeconds = (Seconds1 Xor Seconds2) Mod SecondsPerDay
     
138.     Case 7 '左移
     
139.         ResultSeconds = (Seconds1 * (2 ^ Seconds2)) Mod SecondsPerDay
     
140.     Case 8 '右移
     
141.         ResultSeconds = (Seconds1 \ (2 ^ Seconds2)) Mod SecondsPerDay
     
142. End Select
     
143. 
     
144. txtResult.Text = SecondsToTime(ResultSeconds)
     
145. End Sub
     
146. 
     
147. Private Sub Form_Load()
     
148. CbOperator.ListIndex = 0
     
149. End Sub

复制代码

wypabcd

vb学习中，非常有收获

wlddd

学习了，后期可能用到

xiawan

楼主大能，感谢感谢