function getTime2Time($time1, $time2)
創(chuàng)新互聯(lián)不只是一家網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司；我們對(duì)營(yíng)銷(xiāo)、技術(shù)、服務(wù)都有自己獨(dú)特見(jiàn)解，公司采取“創(chuàng)意+綜合+營(yíng)銷(xiāo)”一體化的方式為您提供更專(zhuān)業(yè)的服務(wù)！我們經(jīng)歷的每一步也許不一定是最完美的，但每一步都有值得深思的意義。我們珍視每一份信任，關(guān)注我們的成都網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、外貿(mào)網(wǎng)站建設(shè)質(zhì)量和服務(wù)品質(zhì)，在得到用戶(hù)滿(mǎn)意的同時(shí)，也能得到同行業(yè)的專(zhuān)業(yè)認(rèn)可，能夠?yàn)樾袠I(yè)創(chuàng)新發(fā)展助力。未來(lái)將繼續(xù)專(zhuān)注于技術(shù)創(chuàng)新，服務(wù)升級(jí)，滿(mǎn)足企業(yè)一站式營(yíng)銷(xiāo)型網(wǎng)站建設(shè)需求，讓再小的品牌網(wǎng)站設(shè)計(jì)也能產(chǎn)生價(jià)值！
{
var time1 = arguments[0], time2 = arguments[1];
time1 = Date.parse(time1)/1000;
time2 = Date.parse(time2)/1000;
var time_ = time1 - time2;
return (time_/(3600*24));
}
document.write(getTime2Time('2016-08-02', '2016-07-02'));
一樓風(fēng)中的奶牛的做法很棒，建議樓主采納他的回答。
只是其中有一個(gè)Bug，就是“倒數(shù)第二次累計(jì)分鐘數(shù)為59，累計(jì)秒數(shù)達(dá)到60的時(shí)候，會(huì)出現(xiàn)**:60:**”。例如{"10:57:35", "2:02:51"}，我這里做了修改，供參考。
另外，AddByInts中不需要進(jìn)行循環(huán)和Select判斷，可以簡(jiǎn)化。
同時(shí)，為了說(shuō)明類(lèi)和結(jié)構(gòu)的關(guān)系，這里改用類(lèi)。
也請(qǐng)一樓風(fēng)中的奶牛勿怪罪在下?。?/p>
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim str As String() = {"10:30:35", "2:02:51", "17:00:35", "2:02:51"}
Dim str As String() = {"10:57:35", "2:02:51"}
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 ' 時(shí)間的小時(shí)部分
Public Minute As Integer ' 時(shí)間的分鐘部分
Public Second As Integer ' 時(shí)間的秒鐘部分
' 合并添加新的時(shí)間值
' param name="value"文本時(shí)間格式(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)))
Next
AddByInts(dts)
End Sub
' 合并添加新的時(shí)間值
' param name="value"時(shí)間值(僅計(jì)算:時(shí)、分、秒)/param
Public Sub Add(ByVal value As Date)
Dim dts(2) As Integer
dts(0) = value.Hour
dts(1) = value.Minute
dts(2) = value.Second
AddByInts(dts)
End Sub
Private Sub AddByInts(ByVal value As Integer())
Second += value(2)
If Second = 60 Then
Minute += Int(Second / 60)
Second = Second Mod 60
End If
Minute += value(1)
If Minute = 60 Then
Hour += Int(Minute / 60)
Minute = Minute Mod 60
End If
Hour += value(0)
End Sub
' 獲取時(shí)間的文本格式(00:00:00)
Public Overrides Function ToString() As String
Return Hour ":" Minute ":" Second
End Function
End Class
DateAdd函數(shù) 返回
返回包含一個(gè)日期的 Variant (Date)，這一日期還加上了一段時(shí)間間隔。
語(yǔ)法
DateAdd(interval, number, date)
DateAdd 函數(shù)語(yǔ)法中有下列命名參數(shù)：
部分 描述
interval 必要。字符串表達(dá)式，是所要加上去的時(shí)間間隔。
number 必要。數(shù)值表達(dá)式，是要加上的時(shí)間間隔的數(shù)目。其數(shù)值可以為正數(shù)（得到未來(lái)的日期），也可以為負(fù)數(shù)（得到過(guò)去的日期）。
date 必要。Variant (Date) 或表示日期的文字，這一日期還加上了時(shí)間間隔。
DateDiff函數(shù) 返回
返回 Variant (Long) 的值，表示兩個(gè)指定日期間的時(shí)間間隔數(shù)目。
語(yǔ)法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函數(shù)語(yǔ)法中有下列命名參數(shù)：
部分 描述
interval 必要。字符串表達(dá)式，表示用來(lái)計(jì)算date1 和 date2 的時(shí)間差的時(shí)間間隔
Date1□date2 必要；Variant (Date)。計(jì)算中要用到的兩個(gè)日期。
Firstdayofweek 可選。指定一個(gè)星期的第一天的常數(shù)。如果未予指定，則以星期日為第一天。
firstweekofyear 可選。指定一年的第一周的常數(shù)。如果未予指定，則以包含 1 月 1 日的星期為第一周。
Module?Module1
Sub?Main()
Console.WriteLine(DateTimeAdd("01:23:45"))
Console.ReadLine()
End?Sub
'''?summary
'''?獲取時(shí)間的累加值
'''?/summary
'''?param?name="sDatetime"/param
'''?returns/returns
'''?remarks/remarks
Private?Function?DateTimeAdd(ByVal?sDatetime?As?String)?As?DateTime
Dim?sysTime?As?DateTime?=?DateTime.Now
Return?sysTime.Add(TimeSpan.Parse(sDatetime))
End?Function
End?Module
使用datediff函數(shù)
textbox3.text=datediff("d","textbox1.text","textbox2.text")
說(shuō)明一下：
“d”表示“天”
還可以用“y”,"m","d","h","n","s"
分別表示“年”“月”“日”“時(shí)”“分”“秒”
重慶分公司
重慶分公司
