dim a1 as timespan = dtEndTime -dtStartTime
創(chuàng)新互聯(lián)建站于2013年創(chuàng)立,先為墾利等服務(wù)建站,墾利等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為墾利企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
dim a2 as integer = a1.TotalMilliseconds
在應(yīng)用開發(fā)中,開發(fā)人員經(jīng)常要進(jìn)行各種各樣的日期處理。如果你需要一種簡(jiǎn)單的方法來(lái)計(jì)算出給定兩個(gè)日期間的天數(shù),不妨考慮使用VB.NET中的TimeSpan對(duì)象。 列表A向你演示了如何使用TimeSpan對(duì)象來(lái)獲得兩個(gè)日期間的時(shí)間值。今后,你可以使用Subtract方法來(lái)獲得兩個(gè)日期間的實(shí)際天數(shù)。 關(guān)于列表A的一些說(shuō)明 首先,我們聲明一個(gè)Date類型的變量dtStartDate,并賦初值為2007年一月一日。同時(shí),還聲明了其它一些將會(huì)用到的變量,包括:TimeSpan的一個(gè)實(shí)例tsTimeSpan,整型數(shù)iNumberOfDays,字符串型變量strMsgText。設(shè)定變量tsTimeSpan的值為當(dāng)前日期/時(shí)間值與dtStartDate值得差。 為了計(jì)算出當(dāng)前日期/時(shí)間(Now)與dtStartDate之間的天數(shù),我們使用TimeSpan對(duì)象的Days屬性,設(shè)定它的值為iNumberOfDays 。查看本文來(lái)源
Public Class Form1
Private Past As Date
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Past = Now
IO.File.AppendAllText("test.txt", Past.ToString, System.Text.Encoding.Default)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Now1 As Date = CDate(IO.File.ReadAllText("test.txt", System.Text.Encoding.Default))
Dim Now2 As Date = Now
MsgBox("從" Now1.ToString "到" Now2.ToString "經(jīng)過了" CStr(CDate((Now2 - Now1).ToString)))
End Sub
實(shí)際情況修改下。
End Class
function getTime2Time($time1, $time2)
{
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'));