13518219792
VB有現(xiàn)成的函數(shù)：
成都創(chuàng)新互聯(lián)是專業(yè)的鄆城網(wǎng)站建設(shè)公司，鄆城接單;提供成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè),網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進行鄆城網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團隊,希望更多企業(yè)前來合作!
DateDiff(格式,日期1,日期2)
如今天到2010-5-1 8:00:00的時間差，代碼：
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#) '還有幾(整)小時
DateDiff("n",Now,#2010-5-1 8:00:00#) '還有幾(整)分鐘
DateDiff("s",Now,#2010-5-1 8:00:00#) '還有幾(整)秒
不對。步驟如下：
添加一個label標簽名字label1 用來顯示時間
再添加一個timer控件 名字timer1 interval屬性=1000 用來計時
窗體添加代碼
Dim t As Date '用來記錄時間
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登錄時間:" t.TimeOfDay.ToString
End Sub
Visual Studio .NET的DateTimePicker控件為用戶提供一個選擇日期/時間的簡便方法。這個控件允許你選擇日期和時間；同時，由于這個控件允許你限制輸入內(nèi)容，你可以忽略合法的日期格式。DateTimePicker控件類似于MonthView控件，后者允許你選擇一個日期或日期范圍，但不支持時間選擇。在本文中，我將創(chuàng)建一個使用DateTimePicker控件的實例。實例在常用控件（Common Controls）下的工具箱(Toolbox)中找到DateTimePicker控件，并把它添加到Windows Forms中。設(shè)置以下屬性：l Name：dtpDateSelectionl CustomFormat：mm/dd/yyyyl Format：短l MaxDate：12/31/2008l MinDate：01/01/2007l ShowUpDown：假 在Form Load事件中添加以下代碼： dtpDateSelection.Value = Now 創(chuàng)建以下事件： Private Sub dtpDateSelection_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtpDateSelection.CloseUp MessageBox.Show(dtpDateSelection.Value) End Sub 結(jié)果在第一個例子中，ShowUpDown屬性設(shè)為假，表示在用戶點擊控件時，控件的日歷部分可見。然后用戶從控件的日歷部分選擇日期。在DateTimePicker控件中選擇一個日期后，你的屏幕看起來與圖A類似。 現(xiàn)在，將ShowUpDown屬性值改為真，再次運行代碼。這次你不會看到控件的日歷部分，你可以點擊控件的上/下箭頭來選擇一個日期。其結(jié)果類似于圖B。 注意，這個控件不允許你選擇小于MinDate屬性值或大于MaxDate屬性值的日期。 更多信息你還可以使用許多其它屬性和重要的方法，讓DateTimePicker控件滿足你的需求。MSDN提供關(guān)于如何使用DateTimePicker控件的其它細節(jié)。 Irina Medvinskaya自1996年開始涉足技術(shù)領(lǐng)域。她獲得佩斯大學的MBA學位，現(xiàn)在任花旗集團的項目經(jīng)理。
還要設(shè)置Format 為 ： Custom
用的時候用DateTimePicker1.Text 不要用value
下面是我隨便用了兩個DateTimePicker和一個button一個textbox演示了一下的代碼,你根據(jù)自己的需要調(diào)試DateTimePicker風格
------------------------------------------------
Public Class Form1
Inherits System.Windows.Forms.Form
#Region
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ComponentModel.IContainer
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker
Me.Button1 = New System.Windows.Forms.Button
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker
Me.SuspendLayout()
'
'DateTimePicker1
'
Me.DateTimePicker1.AllowDrop = True
Me.DateTimePicker1.CustomFormat = "yyyy-MM-dd"
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker1.Location = New System.Drawing.Point(56, 24)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.ShowUpDown = True
Me.DateTimePicker1.Size = New System.Drawing.Size(160, 19)
Me.DateTimePicker1.TabIndex = 0
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(144, 128)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 1
Me.Button1.Text = "Button1"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(136, 72)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.TabIndex = 2
Me.TextBox1.Text = "TextBox1"
'
'DateTimePicker2
'
Me.DateTimePicker2.CustomFormat = "yyyy-MM-dd"
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker2.Location = New System.Drawing.Point(40, 160)
Me.DateTimePicker2.Name = "DateTimePicker2"
Me.DateTimePicker2.Size = New System.Drawing.Size(120, 19)
Me.DateTimePicker2.TabIndex = 3
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.DateTimePicker2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.DateTimePicker1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = DateTimePicker1.Text
End Sub
End Class
----------------------------------------------------------
我的操作系統(tǒng)和.net都是日文的,注釋的東西我刪除了,主要看代碼就好了
這段代碼你可以建一個空的解決方案，完全復(fù)制到里面去
