十年網(wǎng)站開發(fā)經(jīng)驗 + 多家企業(yè)客戶 + 靠譜的建站團隊
量身定制 + 運營維護+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
兩種方式自己選用
在梅列等地區(qū),都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局,加強發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力,以專注、極致的服務(wù)理念,為客戶提供成都網(wǎng)站設(shè)計、成都做網(wǎng)站 網(wǎng)站設(shè)計制作按需定制網(wǎng)站,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站制作,營銷型網(wǎng)站建設(shè),外貿(mào)營銷網(wǎng)站建設(shè),梅列網(wǎng)站建設(shè)費用合理。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String
s = DateTime.Today.Year()
s = s DateTime.Today.Month()
s = s DateTime.Today.Day()
s = s DateTime.Now.Hour()
s = s DateTime.Now.Minute()
s = s DateTime.Now.Second()
MsgBox(s, vbDefaultButton1, Now())
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim s As String
s = Format(Now(), "yyyymmddhhmmss")
MsgBox(s, vbYes, Now())
End Sub
用日期函數(shù)day()可獲得當前日期,time()可獲得當前系統(tǒng)時間.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16顯示當前日期
now 這個函數(shù)可以獲得當前系統(tǒng)時間(包括年月日,小時分鐘秒)
而
year()
month()
day()
等等則可以從now返回的值中分別提取年,月,日的信息
用TIMER控件調(diào)用NOW函數(shù),可取得系統(tǒng)的日期和時間:
Private Sub Timer1_Timer()
Text1 = Now
End Sub
日期:DateTime.Now.ToShortDateString
時間:DateTime.Now.ToFileTime
可以這樣用:
Response.Write(DateTime.Now.ToShortDateString() + "
");
Response.Write(DateTime.Now.ToShortTimeString() + "
");
輸出:
2007-1-29
8:49
Response.Write(DateTime.Now.ToLongDateString() + "
");
Response.Write(DateTime.Now.ToLongTimeString() + "
");
輸出:
2007年1月29日
8:49:15
不知合不合你要求
我是要VS2005下使用,很好用??刹榭碝SDN以下簡單例出:
.NET Framework 類庫
DateTime 成員
請參見 構(gòu)造函數(shù) 字段 方法 屬性 顯式接口實現(xiàn)
全部折疊 全部展開 成員選項:全部顯示 成員選項:已篩選
包括繼承的成員
包括受保護的成員
僅 .NET Compact Framework 成員
表示時間上的一刻,通常以日期和當天的時間表示。
下表列出了由 DateTime 類型公開的成員。
公共構(gòu)造函數(shù)
名稱 說明
DateTime 已重載。初始化 DateTime 結(jié)構(gòu)的新實例。
頁首
公共字段
名稱 說明
MaxValue 表示 DateTime 的最大可能值。此字段為只讀。
MinValue 表示 DateTime 的最小可能值。此字段為只讀。
頁首
公共屬性
名稱 說明
Date 獲取此實例的日期部分。
Day 獲取此實例所表示的日期為該月中的第幾天。
DayOfWeek 獲取此實例所表示的日期是星期幾。
DayOfYear 獲取此實例所表示的日期是該年中的第幾天。
Hour 獲取此實例所表示日期的小時部分。
Kind 獲取一個值,該值指示由此實例表示的時間是基于本地時間、協(xié)調(diào)通用時間 (UTC),還是兩者皆否。
Millisecond 獲取此實例所表示日期的毫秒部分。
Minute 獲取此實例所表示日期的分鐘部分。
Month 獲取此實例所表示日期的月份部分。
Now 獲取一個 DateTime 對象,該對象設(shè)置為此計算機上的當前日期和時間,表示為本地時間。
Second 獲取此實例所表示日期的秒部分。
Ticks 獲取表示此實例的日期和時間的刻度數(shù)。
TimeOfDay 獲取此實例的當天的時間。
Today 獲取當前日期。
UtcNow 獲取一個 DateTime 對象,該對象設(shè)置為此計算機上的當前日期和時間,表示為協(xié)調(diào)通用時間 (UTC)。
Year 獲取此實例所表示日期的年份部分。
Sub?gettime()
nowtime?=?Format(DateTime.Now,?"yyyy/MM/dd?hh:mm:ss")
MsgBox?nowtime
End?Sub
其中DateTime.Now為當前系統(tǒng)的時間
Format是設(shè)置時間格式
效果如下
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Short = Date.Now.Month
Dim b As Short = Date.Now.Day
MessageBox.Show(a)
MessageBox.Show(b)
End Sub
上面是獲取月份以及天數(shù)
'======================
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Short = Date.Now.Month
Dim b As Short = Date.Now.Day
Dim c, d As String
If a 0 AndAlso a 10 Then
c = "1位數(shù)"
Else
c = "2位數(shù)"
End If
If b 0 AndAlso b 10 Then
d = "1位數(shù)"
Else
d = "2位數(shù)"
End If
MessageBox.Show(c)
MessageBox.Show(d)
End Sub
這個是獲取位數(shù)的