給你個例子:
成都創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供常州網(wǎng)站建設(shè)、常州做網(wǎng)站、常州網(wǎng)站設(shè)計、常州網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、常州企業(yè)網(wǎng)站模板建站服務(wù),十載常州做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyEndDate As New DateTime(2012, 8, 8)
Dim MyStartDate As DateTime = DateTime.Now
Dim MySpan As TimeSpan = MyEndDate.Subtract(MyStartDate)
Dim MyInfo As String = "離2012年8月8日還有" + _
Math.Round(MySpan.TotalDays, 0).ToString() + "天"
MessageBox.Show(MyInfo, "信息", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
DateAdd函數(shù) 返回
返回包含一個日期的 Variant (Date),這一日期還加上了一段時間間隔。
語法
DateAdd(interval, number, date)
DateAdd 函數(shù)語法中有下列命名參數(shù):
部分 描述
interval 必要。字符串表達式,是所要加上去的時間間隔。
number 必要。數(shù)值表達式,是要加上的時間間隔的數(shù)目。其數(shù)值可以為正數(shù)(得到未來的日期),也可以為負數(shù)(得到過去的日期)。
date 必要。Variant (Date) 或表示日期的文字,這一日期還加上了時間間隔。
DateDiff函數(shù) 返回
返回 Variant (Long) 的值,表示兩個指定日期間的時間間隔數(shù)目。
語法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函數(shù)語法中有下列命名參數(shù):
部分 描述
interval 必要。字符串表達式,表示用來計算date1 和 date2 的時間差的時間間隔
Date1□date2 必要;Variant (Date)。計算中要用到的兩個日期。
Firstdayofweek 可選。指定一個星期的第一天的常數(shù)。如果未予指定,則以星期日為第一天。
firstweekofyear 可選。指定一年的第一周的常數(shù)。如果未予指定,則以包含 1 月 1 日的星期為第一周。
新建一個LABEL控件
然后在FORM_LOAD 事件中輸入
Label1.caption=year(now()) 'year可以換成month,day,hour,minute,second
label1.caption=label1.caption-1 '減號后面可以輸入你想要的數(shù)字
就OK了