VB中怎么将字符转换成时间

VB使用 CDate 函数将字符串转换成 Date。

十多年的麻江网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整麻江建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联公司从事“麻江网站设计”,“麻江网站推广”以来，每个客户项目都认真落实执行。

CDate 函数示例

本示例使用 CDate 函数将字符串转换成

Date。一般说来，字符串格式的日期与时间硬编码（如示例中所示）并不好。较好的做法是使用日期原义表达式和时间的原义表达式（如

#2/12/1969#，#4:45:23 PM#）。

Dim MyDate, MyShortDate, MyTime, MyShortTime

MyDate = "February 12, 1969" ' 定义日期。

MyShortDate = CDate(MyDate) ' 转换为 Date 数据类型。

MyTime = "4:35:47 PM" ' 定义时间。

MyShortTime = CDate(MyTime) ' 转换为 Date 数据类型。

vb如何把数值转化为时间格式

vb把数值转化为时间格式:

VB.net 中 取系统时间

Dim datestr As String = ""

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

用户定义的日期/时间格式（Format 函数）

转化代码：

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("分钟数：", "输入", 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中日期类型怎么从字符串转换

Dim a As String

Dim b As Date

a = "2016-11-18"

b = CDate(a)

本例中最主要的就是CDate()函数，这个函数是用于把字符型变量转换成日期型变量，

字符型变量（本例中的a）如果不是标准的日期格式，请先用字符串函数处理成标准日期格式再用CDate函数进行转换，否则会报错

网页名称：vb.net字串转日期,c# 字符串转化为日期
分享链接：http://chengdu.cdxwcx.cn/article/hescco.html