VB有现成的函数：
DateDiff 函数
返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目.
语法
DateDiff 函数语法中有下列命名参数：
部分 描述
Firstdayofweek 可选.指定一个星期的第一天的常数.如果未予指定,则以星期日为第一天.
firstweekofyear 可选.指定一年的第一周的常数.如果未予指定,则以包含 1 月 1 日的星期为第一周.
设置
interval 参数的设定值如下：
设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
firstdayofweek 参数的设定值如下：
常数 值 描述
vbUseSystem 0 使用 NLS API 设置.
vbSunday 1 星期日（缺省值）
vbUseSystem 0 用 NLS API 设置.
vbFirstJan1 1 从包含 1 月 1 日的星期开始（缺省值）.
说明
DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目.例如,可以使用 DateDiff 来计算两个日期之间相隔几日,或计算从今天起到年底还有多少个星期.
firstdayofweek 参数会影响使用时间间隔符号 "W" 或 "WW" 计算的结果.
一楼风中的奶牛的做法很棒,建议楼主采纳他的回答.
另外,AddByInts中不需要进行循环和Select判断,可以简化.
同时,为了说明类和结构的关系,这里改用类.
也请一楼风中的奶牛勿怪罪在下啊！
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim time As TimeSerial = New TimeSerial
For Each dt As String In str
time.Add(dt)
Next
MsgBox(time.ToString)
End Sub
End Class
Public Class TimeSerial
Public Hour As Integer ' 时间的小时部分
Public Minute As Integer ' 时间的分钟部分
Public Second As Integer ' 时间的秒钟部分
' 合并添加新的时间值
' param name="value"文本时间格式(00:00:00)/param
Public Sub Add(ByVal value As String)
Dim arr As String() = Split(value, ":")
Dim dts(arr.Length - 1) As Integer
For i As Integer = 0 To arr.Length - 1
dts(i) = CInt(Val(arr(i)))
AddByInts(dts)
' param name="value"时间值(仅计算:时、分、秒)/param
Public Sub Add(ByVal value As Date)
dts(0) = value.Hour
dts(1) = value.Minute
Private Sub AddByInts(ByVal value As Integer())
End If
Minute += value(1)
Hour += value(0)
' 获取时间的文本格式(00:00:00)
Public Overrides Function ToString() As String
Return Hour ":" Minute ":" Second
End Function
dim date as DateTime = DateTime.Parse(TextBox1.Text)
日期类型有好多种转换表达式, 特别的使用.ToString("YYYY-mm-dd") 这种形式可以自定义ToString里面的格式化样式.
输入函数
private sub command1_click()
dim a(10) as integer,i,avg as integer
for i=1 to 10
a(i) = val(inputbox("请输入第" i "个数"))
if a(i)0 then avg=avg+a(i)
next
print "平均值="; avg/10
end sub
扩展资料
对象与类
对象（Object）
Visual Basic.NET 具有"面向对象"的特性,Visual Basic.NET 应用种程序的基本单元是对象,用 Visual Basic.NET 编程就是用"对象"组装程序.这种"面向对象"的编程方法与传统的全部用代码编制程序的方法有很大区别,就像用集成电路芯片组装电视机和用三极管,二极管组装电视机的区别一样.显然,"面向对象"的编程方法比传统的编程方法更简单,更方便,并且编写出的程序也更加稳定.所以呢,"对象"可以被看做 Visual Basic.NET 程序设计的核心.
在 Visual Basic.NET程序设计中,对象中还可以包含头,手,腿,脚等部位,其中的每个部位又可以单独作为作为被研究的对象.在 Visual Basic.NET程序设计中,整个应用程序就是一个对象,应用程序中又包含着窗体（Form）,命令按钮（Command）,菜单（Menu）等对象.
类（Class）
在 Visual Basic.NET中,对象是由类创建的,所以呢对象可以说是类的具体实例,这就好比是蛋糕和做蛋糕的模具之间的关系.
各种不同的对象分属于各种不同的种类.同一类对象可能具有一些不同的特征（或是说同一类对象不一定具有完全相同的特性）；具有某些相同的特性的对象,不一定是同一类对象.
以上就是土嘎嘎小编为大家整理的vb.net时间平均函数的简单介绍vb.net时间平均函数的简单介绍相关咨询咨询主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！