VB.NET 時(shí)間顯示格式

Dim?a?As?DateTime?=?#18:10:50#

創(chuàng)新互聯(lián)建站主要從事成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)故城,10多年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專(zhuān)業(yè),歡迎來(lái)電咨詢(xún)建站服務(wù):028-86922220

Dim?b?As?DateTime?=?#17:05:40#

Dim?c?As?TimeSpan?=?a.Subtract(b)

Console.WriteLine(c.ToString)

最后那句是控制臺(tái)的輸出，反正c是兩個(gè)時(shí)間段的間隔，隨你怎么弄

vb.net中datetimepicker控件的時(shí)間格式問(wèn)題

還要設(shè)置Format 為 ： Custom

用的時(shí)候用DateTimePicker1.Text 不要用value

下面是我隨便用了兩個(gè)DateTimePicker和一個(gè)button一個(gè)textbox演示了一下的代碼,你根據(jù)自己的需要調(diào)試DateTimePicker風(fēng)格

------------------------------------------------

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都是日文的,注釋的東西我刪除了,主要看代碼就好了

這段代碼你可以建一個(gè)空的解決方案，完全復(fù)制到里面去

vb如何把數(shù)值轉(zhuǎn)化為時(shí)間格式

vb把數(shù)值轉(zhuǎn)化為時(shí)間格式:

VB.net 中 取系統(tǒng)時(shí)間

Dim datestr As String = ""

datestr = Format(Now(), "yyyy/MM/dd H:mm:ss ffff")

用戶(hù)定義的日期/時(shí)間格式（Format 函數(shù)）

轉(zhuǎn)化代碼：

Dim t As Integer, t1 As Integer, t2 As Integer, s As String

Dim tim As Date

Dim i As Integer, j As Integer

Private Sub Command1_Click()

s = InputBox("分鐘數(shù)：", "輸入", 67)

If s = "" Then Exit Sub

t = Val(s)

If t = 0 Then Exit Sub

t1 = t \ 60

t2 = t Mod 60

s = t1 ":" t2

tim = Format(s, "hh:mm:ss")

Text1.Text = tim

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Dim tt1 As Integer, tt2 As Integer, tt3 As Integer, tt As String

tt = Text1.Text

tt1 = Val(Left(tt, Len(tt) - 6))

tt2 = Val(Mid(tt, Len(tt) - 4, 2))

tt3 = Val(Right(tt, 2))

tt3 = tt3 - 1

If tt3 0 Then tt3 = 59: tt2 = tt2 - 1

If tt2 0 Then tt2 = 59: tt1 = tt1 - 1

If tt1 0 Then Timer1.Enabled = False: Exit Sub

tt = tt1 ":" tt2 ":" tt3

tim = Format(tt, "hh:mm:ss")

Text1.Text = tim

End Sub

vb.net日期格式問(wèn)題，高分求教

用它自帶的下拉列表 來(lái)修改

數(shù)據(jù)庫(kù) 如果你字段是 日期型 你可以設(shè)置格式

vb.net如何獲取時(shí)間格式?

可以訪(fǎng)問(wèn)注冊(cè)表HKEY_CURRENT_USER\Control Panel\International下面的一些鍵值

如sShortDate鍵值表示的是短日期sLongDate表示的是長(zhǎng)日期

中文下的短日期是 yyyy-M-d

中文下的長(zhǎng)日期是 yyyy'年'M'月'd'日'

VB.NET 寫(xiě)日期到access 格式不對(duì)

因?yàn)锳ccess日期格式設(shè)置了，在寫(xiě)入中會(huì)出現(xiàn)格式不對(duì)，可以根據(jù)情況自定義修改日期格式寫(xiě)入Access中。

語(yǔ)法如下：format([日期],"YYYY-MM-DD")

示例:

?Format(#2003/10/1#, "aaaa")? ???'星期三

?Format(#2003/10/1#, "dddd")? ? 'Wednesday

?Format(#2003/10/1#, "ww")? ?? ?'40? ? 2003年的第40周

?Format(#2003/10/1#, "mmmm") 'October

?Format(#2003/10/1#, "oooo")? ? '十月

?Format(#2003/10/1#, "q")? ???'4? ?2003年的第4季

日期時(shí)間擴(kuò)展：

(:):??時(shí)間分隔符。在一些區(qū)域，可能用其他符號(hào)來(lái)當(dāng)時(shí)間分隔符。格式化時(shí)間值時(shí)，時(shí)間分隔符可以分隔時(shí)、分、秒。時(shí)間分隔符的真正字符在格式輸出時(shí)取決于系統(tǒng)的設(shè)置。?

(/)?:??日期分隔符。在一些區(qū)域，可能用其他符號(hào)來(lái)當(dāng)日期分隔符。格式化日期數(shù)值時(shí)，日期分隔符可以分隔年、月、日。日期分隔符的真正字符在格式輸出時(shí)取決于系統(tǒng)設(shè)置。?

c?:??以 ddddd 來(lái)顯示日期并且以 ttttt 來(lái)顯示時(shí)間。如果想顯示的數(shù)值無(wú)小數(shù)部分，則只顯示日期部分，如果想顯示的數(shù)值無(wú)整數(shù)部分，則只顯示時(shí)間部分。?

d?:??以沒(méi)有前導(dǎo)零的數(shù)字來(lái)顯示日 (1 – 31)。?

dd?:??以有前導(dǎo)零的數(shù)字來(lái)顯示日 (01 – 31)。?

ddd?:??以簡(jiǎn)寫(xiě)來(lái)表示日 (Sun –Sat)。?

dddd?:??以全稱(chēng)來(lái)表示日 (Sunday –Saturday)。?

ddddd?:??以完整日期表示法顯示（包括年、月、日），日期的顯示要依系統(tǒng)的短日期格式設(shè)置而定。缺省的短日期格式為 m/d/yy。?

dddddd?:??以完整日期表示法顯示日期系列數(shù)（包括年、月、日），日期的顯示要依系統(tǒng)識(shí)別的長(zhǎng)日期格式而定。缺省的長(zhǎng)日期格式為 mmmm dd, yyyy。?

aaaa?:??與dddd 一樣，它只是該字符串的本地化版本。?

w?:??將一周中的日期以數(shù)值表示（1 表星期日~ 7表星期六）。?

ww?:??將一年中的星期以數(shù)值表示 (1 – 54)。?

m?:??以沒(méi)有前導(dǎo)零的數(shù)字來(lái)顯示月 (1 – 12)。如果 m 是直接跟在 h 或 hh 之后，那么顯示的將是分而不是月。?

mm?:??以有前導(dǎo)零的數(shù)字來(lái)顯示月 (01 – 12)。如果m是直接跟在h或hh之后，那么顯示的將是分而不是月。?

mmm?:??以簡(jiǎn)寫(xiě)來(lái)表示月 (Jan –Dec)。?

mmmm?:??以全稱(chēng)來(lái)表示月 (January –December)。?

oooo?:??與mmmm一樣，它只是該字符串的本地化版本。?

q?:??將一年中的季以數(shù)值表示 (1 – 4)。?

y?:??將一年中的日以數(shù)值表示 (1 – 366)。?

yy?:??以?xún)晌粩?shù)來(lái)表示年 (00 – 99)。?

yyyy?:??以四位數(shù)來(lái)表示年 (00 – 99)。?

h?:??以沒(méi)有前導(dǎo)零的數(shù)字來(lái)顯示小時(shí) (0 – 23)。?

Hh?:??以有前導(dǎo)零的數(shù)字來(lái)顯示小時(shí) (00– 23)。?

N?:??以沒(méi)有前導(dǎo)零的數(shù)字來(lái)顯示分 (0 – 59)。?

Nn?:??以有前導(dǎo)零的數(shù)字來(lái)顯示分 (00 – 59)。

S?:??以沒(méi)有前導(dǎo)零的數(shù)字來(lái)顯示秒 (0 – 59)。?

Ss?:??以有前導(dǎo)零的數(shù)字來(lái)顯示秒 (00 – 59)。?

t t t t t?:??以完整時(shí)間表示法顯示（包括時(shí)、分、秒），用系統(tǒng)識(shí)別的時(shí)間格式定義的時(shí)間分隔符進(jìn)行格式化。如果選擇有前導(dǎo)零并且時(shí)間是在 10:00 A.M. 或 P.M.之前，那么將顯示有前導(dǎo)零的時(shí)間。缺省的時(shí)間格式為 h:mm:ss。?

AM/PM?:??在中午前以 12 小時(shí)配合大寫(xiě) AM 符號(hào)來(lái)使用；在中午和 11:59 P.M.間以 12 小時(shí)配合大寫(xiě) PM 來(lái)使用。?

am/pm?:??在中午前以 12 小時(shí)配合小寫(xiě) am 符號(hào)來(lái)使用；在中午和 11:59 P.M.間以 12 小時(shí)配合小寫(xiě) pm 來(lái)使用。?

A/P?:??在中午前以 12 小時(shí)配合大寫(xiě)A符號(hào)來(lái)使用；在中午和 11:59 P.M.間以12 小時(shí)配合大寫(xiě)P來(lái)使用。?

a/p?:??在中午前以 12 小時(shí)配合小寫(xiě)a符號(hào)來(lái)使用；在中午和 11:59 P.M.間以 12 小時(shí)配合小寫(xiě)p來(lái)使用。?

AMPM?:??在中午前以 12 小時(shí)配合系統(tǒng)設(shè)置的 AM字符串文字來(lái)使用；在中午和 11:59 P.M. 間以 12 小時(shí)配合系統(tǒng)設(shè)置的 PM 字符串文字來(lái)使用。AMPM 可以是大寫(xiě)或小寫(xiě)，但必須和您的系統(tǒng)設(shè)置相配。其缺省格式為 AM/PM。?