关于vb点虐 时间数据的信息

vb点虐 如何操作数据库提取一段时间内的数据

VB的数据库操作，我们都知道在Where子句中对于字符串类型，用单引号

在莫力达等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都网站制作、网站设计、外贸网站建设 网站设计制作按需网站设计,公司网站建设,企业网站建设,品牌网站制作,网络营销推广,外贸网站建设,莫力达网站建设费用合理。

注意：凡是日期、时间类型，用井号，也就是 #

所以，你的这个用

select * from 表名 where cdate(起始时间) between #" + CDate(txtStart.Text) + "# and #" + CDate(txtOver.Text) + “#“

vb点虐 如何将 textbox 中的 12:30 存入 access 时间数据如何相加

1、如何存入时间数据：

在窗体设计视图中，将textbox控件的“控件来源”属性设为数据表的相应字段。

以后在正常打开窗体时，在这个textbox控件里输入数据，数据就会存入到数据表中，时间数据也是如此。

2、时间如何相加：

时间值在ACCESS中可以用timevalue()函数可以求出，将17:30换算成17.5再除以24也可求出，1小时的时间值就是1/24,然后可以直接加减，最后用format()函数还原成时间格式。

vb点虐 时间统计问题

一楼风中的奶牛的做法很棒，建议楼主采纳他的回答。

只是其中有一个Bug，就是“倒数第二次累计分钟数为59，累计秒数达到60的时候，会出现**:60:**”。例如{"10:57:35", "2:02:51"}，我这里做了修改，供参考。

另外，AddByInts中不需要进行循环和Select判断，可以简化。

同时，为了说明类和结构的关系，这里改用类。

也请一楼风中的奶牛勿怪罪在下啊！

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Dim str As String() = {"10:30:35", "2:02:51", "17:00:35", "2:02:51"}

Dim str As String() = {"10:57:35", "2:02:51"}

Dim time As TimeSerial = New TimeSerial

For Each dt As String In str

time.Add(dt)

Next

MsgBox(time.ToString)

End Sub

End Class

Public Class TimeSerial

Public Hour As Integer ' 时间的小时部分

Public Minute As Integer ' 时间的分钟部分

Public Second As Integer ' 时间的秒钟部分

' 合并添加新的时间值

' param name="value"文本时间格式(00:00:00)/param

Public Sub Add(ByVal value As String)

Dim arr As String() = Split(value, ":")

Dim dts(arr.Length - 1) As Integer

For i As Integer = 0 To arr.Length - 1

dts(i) = CInt(Val(arr(i)))

Next

AddByInts(dts)

End Sub

' 合并添加新的时间值

' param name="value"时间值(仅计算:时、分、秒)/param

Public Sub Add(ByVal value As Date)

Dim dts(2) As Integer

dts(0) = value.Hour

dts(1) = value.Minute

dts(2) = value.Second

AddByInts(dts)

End Sub

Private Sub AddByInts(ByVal value As Integer())

Second += value(2)

If Second = 60 Then

Minute += Int(Second / 60)

Second = Second Mod 60

End If

Minute += value(1)

If Minute = 60 Then

Hour += Int(Minute / 60)

Minute = Minute Mod 60

End If

Hour += value(0)

End Sub

' 获取时间的文本格式(00:00:00)

Public Overrides Function ToString() As String

Return Hour ":" Minute ":" Second

End Function

End Class

vb点虐 如何获取时间？

两种方式自己选用

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