VB可使用DateAdd 函數(shù)來獲取加上了一段時(shí)間間隔后的日期和時(shí)間數(shù)據(jù)。
我們提供的服務(wù)有:成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、巴里坤哈薩克ssl等。為數(shù)千家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的巴里坤哈薩克網(wǎng)站制作公司
DateAdd 函數(shù),返回包含一個(gè)日期的 Variant
(Date),這一日期還加上了一段時(shí)間間隔。
代碼實(shí)例:
Private Sub Command1_Click()
Dim D As Date
Dim Sj As Long
Sj = InputBox("輸入秒數(shù):", Sj)
D = DateAdd("s", Sj, #1/1/1970#)
Debug.Print D
End Sub
Dim unix As DateTime = #1/1/1970#
unix = unix.AddSeconds(CDbl("時(shí)間戳"))
MsgBox(unix)
'--------------------
百度VB2010(VB.NET)吧建設(shè)發(fā)展中,需要你的支持和幫助!!!
快加入我們吧!發(fā)表你的疑問,經(jīng)驗(yàn),程序,分享..
讓我們共同進(jìn)步!
在你對(duì)日期/時(shí)間進(jìn)行格式化時(shí),控制面板中的地區(qū)與語言選項(xiàng)部分的設(shè)置會(huì)影響你所得到的結(jié)果。那些設(shè)置用來初始化DateTimeFormatInfo對(duì)象,這個(gè)對(duì)象與當(dāng)前線程的文化有關(guān),并提供控制格式的值。
Dim dateTimeInfo as DateTime = DateTime.Now
MessageBox.Show (dateTimeInfo)
Dim strMonth as String = dateTimeInfo.ToString("F")
MessageBox.Show(strMonth)
上面的代碼定義了日期時(shí)間變量dateTimeInfo并將其值設(shè)為當(dāng)前日期/時(shí)間。然后,我再定義字符串變量strMonth并將dateTimeInfo的值轉(zhuǎn)換為"帶長(zhǎng)時(shí)間的完整日期/時(shí)間"格式下的字符串。
下面是一個(gè)標(biāo)準(zhǔn)日期格式說明符列表:
d:短日期
D:長(zhǎng)日期
t:短時(shí)間
T:長(zhǎng)時(shí)間
f:帶短時(shí)間的完整日期/時(shí)間
F:帶長(zhǎng)時(shí)間的完整日期/時(shí)間
g:帶短時(shí)間的一般日期/時(shí)間
G:帶長(zhǎng)時(shí)間的一般日期/時(shí)間
M或m:月-日
R或r:RFC1123
s:遵守ISO 8601的可分類日期/時(shí)間
u:國際可分類日期/時(shí)間
U:帶長(zhǎng)時(shí)間的完整日期/時(shí)間。(此格式與F相同,但它用于國際GMT時(shí)間。)
Y或y:年-月
Dim a As String
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函數(shù),這個(gè)函數(shù)是用于把字符型變量轉(zhuǎn)換成日期型變量,
字符型變量(本例中的a)如果不是標(biāo)準(zhǔn)的日期格式,請(qǐng)先用字符串函數(shù)處理成標(biāo)準(zhǔn)日期格式再用CDate函數(shù)進(jìn)行轉(zhuǎn)換,否則會(huì)報(bào)錯(cuò)