VB有現(xiàn)成的函數(shù):
專注于為中小企業(yè)提供網(wǎng)站建設(shè)、成都網(wǎng)站制作服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)梅江免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動(dòng)了上千余家企業(yè)的穩(wěn)健成長(zhǎng),幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
DateDiff(格式,日期1,日期2)
如今天到2010-5-1 8:00:00的時(shí)間差,代碼:
DateDiff("yyyy",Now,#2010-5-1 8:00:00#) '還有幾(整)年
DateDiff("q",Now,#2010-5-1 8:00:00#) '還有幾(整)季度
DateDiff("m",Now,#2010-5-1 8:00:00#) '還有幾(整)月
DateDiff("d",Now,#2010-5-1 8:00:00#) '還有幾(整)天
DateDiff("ww",Now,#2010-5-1 8:00:00#) '還有幾(整)周
DateDiff("h",Now,#2010-5-1 8:00:00#) '還有幾(整)小時(shí)
DateDiff("n",Now,#2010-5-1 8:00:00#) '還有幾(整)分鐘
DateDiff("s",Now,#2010-5-1 8:00:00#) '還有幾(整)秒
可以使用VB.NET中的DataTime對(duì)象的AddMonths方法:
Dim d1 As Date = Now
MsgBox(d1) '顯示現(xiàn)在的機(jī)器日期與時(shí)間
MsgBox(d1.AddMonths(2)) '顯示現(xiàn)在的機(jī)器日期加上2個(gè)月的對(duì)應(yīng)日期與時(shí)間
MsgBox(d1.AddMonths(-1)) '顯示現(xiàn)在的機(jī)器日期減掉1個(gè)月的對(duì)應(yīng)日期與時(shí)間
DataTime對(duì)象的方法很多,你可以通過在線查閱,例如:
d1.Add()
d1.AddDays()
d1.AddHours()
d1.AddMinutes()
d1.AddSeconds()
d1.AddYears()
等等!
注意:從字面意思可以理解是加,而括號(hào)里是填寫對(duì)應(yīng)的數(shù)值,當(dāng)數(shù)值為負(fù)數(shù),起到減的作用了。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim unix As DateTime = #1/1/1970#
unix = unix.AddSeconds(CDbl(TextBox1.Text))
MsgBox(unix)
End Sub
我天才、、、
Label1.Text?=?"12時(shí)演示:"?+?Now.ToString("yyyy-MM-dd?hh:mm:ss")
Label2.Text?=?"24時(shí)演示:"?+?Now.ToString("yyyy-MM-dd?HH:mm:ss")
Label3.Text?=?"UTC時(shí)演示:"?+?System.DateTime.UtcNow.ToString("yyyy-MM-dd?HH:mm:ss")
Label4.Text?=?"時(shí)間為不補(bǔ)0:"?+?Now.ToString("yyyy-MM-dd?H:m:s")
Label5.Text?=?"時(shí)間戳:"?+?CLng(System.DateTime.UtcNow.Subtract(New?Date(1970,?1,?1,?0,?0,?0)).TotalMilliseconds).ToString
將時(shí)間轉(zhuǎn)換為指定的字符串格式用:Now.ToString("yyyyMMddHHmmss")就Ok了。
例如:年份用小寫yyyy(大寫不識(shí)別),大寫MM識(shí)別為月份,小寫mm識(shí)別為分鐘,日期天為大寫DD(小寫不識(shí)別),
小時(shí)大寫HH識(shí)別為24小時(shí)制,小寫hh識(shí)別為12小時(shí)制,秒用小寫ss(大寫不識(shí)別)
補(bǔ)充:Visual Basic.NET是基于微軟.NET Framework之上的面向?qū)ο蟮木幊陶Z言。
其在調(diào)試時(shí)是以解釋型語言方式運(yùn)作,而輸出為EXE程序是是以編譯型語言方式運(yùn)作。
可以看作是Visual Basic在.Net Framework平臺(tái)上的升級(jí)版本,增強(qiáng)了對(duì)面向?qū)ο蟮闹С?。大多的VB.Net程序員使用Visual Studio .Net作為IDE(integrated development environment).SharpDevelop是另一種可用的開源的IDE。
VB.Net需要在.Net Framework平臺(tái)上才能執(zhí)行。
1、時(shí)間可以直接比較大小,定義兩個(gè)時(shí)間的變量,直接使用或者即可判斷,跟數(shù)據(jù)大小判斷是一樣的
2、時(shí)間差值,可以使用DateDiff函數(shù)進(jìn)行
3、比如取一個(gè)現(xiàn)在的時(shí)間now,使用Year、month、day、hour、min、sec函數(shù)可以取到now的年份、月、日、小時(shí)、分鐘和秒