新建一個(gè)LABEL控件
10年積累的網(wǎng)站設(shè)計(jì)制作、網(wǎng)站制作經(jīng)驗(yàn),可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你,你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程,更有宜豐免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
然后在FORM_LOAD 事件中輸入
Label1.caption=year(now()) 'year可以換成month,day,hour,minute,second
label1.caption=label1.caption-1 '減號(hào)后面可以輸入你想要的數(shù)字
就OK了
DateAdd 函數(shù)
返回包含一個(gè)日期的 Variant (Date),這一日期還加上了一段時(shí)間間隔。
語法
DateAdd(interval, number, date)
DateAdd 函數(shù)語法中有下列命名參數(shù):
部分 描述
interval 必要。字符串表達(dá)式,是所要加上去的時(shí)間間隔。
number 必要。數(shù)值表達(dá)式,是要加上的時(shí)間間隔的數(shù)目。其數(shù)值可以為正數(shù)(得到未來的日期),也可以為負(fù)數(shù)(得到過去的日期)。
date 必要。Variant (Date) 或表示日期的文字,這一日期還加上了時(shí)間間隔。
設(shè)置
interval 參數(shù)具有以下設(shè)定值:
設(shè)置 描述
yyyy 年
q 季
m 月
y 一年的日數(shù)
d 日
w 一周的日數(shù)
ww 周
h 時(shí)
n 分鐘
s 秒
說明
可以使用 DateAdd 函數(shù)對(duì)日期加上或減去指定的時(shí)間間隔。例如,可以用 DateAdd 來計(jì)算距今天為三十天的日期;或者計(jì)算距現(xiàn)在為 45 分鐘的時(shí)間。
為了對(duì) date 加上“日”,可以使用“一年的日數(shù)” (“y”),“日” (”d”) 或“一周的日數(shù)” (”w”)。
DateAdd 函數(shù)將不返回有效日期。在以下實(shí)例中將 1 月31 日加上一個(gè)月:
DateAdd(m, 1, 31-Jan-95)
上例中,DateAdd 返回 1995 年 2 月 28 日,而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日,則由于 1996 年是閏年,返回值是 1996 年 2 月 29 日。
如果計(jì)算的日期超前 100 年(減去的年度超過 date 中的年份),就會(huì)導(dǎo)致錯(cuò)誤發(fā)生。
如果 number 不是一個(gè) Long 值,則在計(jì)算時(shí)取最接近的整數(shù)值來計(jì)算。
注意 DateAdd 返回值的格式由 Control Panel設(shè)置決定,而不是由傳遞到date 參數(shù)的格式?jīng)Q定。
DateAdd 函數(shù)示例
本示例先取得一個(gè)日期,再用 DateAdd 函數(shù)顯示未來數(shù)月后的日期。
Dim FirstDate As Date ' 聲明變量。
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m" ' "m"指定以“月份”作為間隔。
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of months to add")
Msg = "New date: " DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg
DateAdd函數(shù) 返回
返回包含一個(gè)日期的 Variant (Date),這一日期還加上了一段時(shí)間間隔。
語法
DateAdd(interval, number, date)
DateAdd 函數(shù)語法中有下列命名參數(shù):
部分 描述
interval 必要。字符串表達(dá)式,是所要加上去的時(shí)間間隔。
number 必要。數(shù)值表達(dá)式,是要加上的時(shí)間間隔的數(shù)目。其數(shù)值可以為正數(shù)(得到未來的日期),也可以為負(fù)數(shù)(得到過去的日期)。
date 必要。Variant (Date) 或表示日期的文字,這一日期還加上了時(shí)間間隔。
DateDiff函數(shù) 返回
返回 Variant (Long) 的值,表示兩個(gè)指定日期間的時(shí)間間隔數(shù)目。
語法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函數(shù)語法中有下列命名參數(shù):
部分 描述
interval 必要。字符串表達(dá)式,表示用來計(jì)算date1 和 date2 的時(shí)間差的時(shí)間間隔
Date1□date2 必要;Variant (Date)。計(jì)算中要用到的兩個(gè)日期。
Firstdayofweek 可選。指定一個(gè)星期的第一天的常數(shù)。如果未予指定,則以星期日為第一天。
firstweekofyear 可選。指定一年的第一周的常數(shù)。如果未予指定,則以包含 1 月 1 日的星期為第一周。
DateAdd(dateinterval, number, datetime) 對(duì)日期或時(shí)間作加減。
DateDiff(dateinterval, date1, date2) 計(jì)算兩個(gè)日期或時(shí)間間的差值。
DatePart (dateinterval, date) 依接收的日期或時(shí)間參數(shù)傳回年、月、日或時(shí)間。
DateSerial(year, month, day) 將接收的參數(shù)合并為一個(gè)只有日期的Date 型態(tài)的數(shù)據(jù)。
DateValue(datetime) 取得符合國別設(shè)定樣式的日期值,并包含時(shí)間。
Day(datetime)依接收的日期參數(shù)傳回日。