关于vb.net时间加减的信息

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

1、如何存入时间数据：

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

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

2、时间如何相加：

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

相关问答

Q1: vb.net 时间相加

Module Module1

    Sub Main()

        Console.WriteLine(DateTimeAdd("01:23:45"))

        Console.ReadLine()

    End Sub

    ''' summary

    ''' 获取时间的累加值

    ''' /summary

    ''' param name="sDatetime"/param

    ''' returns/returns

    ''' remarks/remarks

    Private Function DateTimeAdd(ByVal sDatetime As String) As DateTime

        Dim sysTime As DateTime = DateTime.Now

        Return sysTime.Add(TimeSpan.Parse(sDatetime))

    End Function

End Module

Q2: VB.net如何时间相减，我正在做一个提示还书的窗口，怎么让现在日期减去当时借书的日期，然后显示出小于5天

给你个例子：

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

Dim MyEndDate As New DateTime(2012, 8, 8)

Dim MyStartDate As DateTime = DateTime.Now

Dim MySpan As TimeSpan = MyEndDate.Subtract(MyStartDate)

Dim MyInfo As String = "离2012年8月8日还有" + _

Math.Round(MySpan.TotalDays, 0).ToString() + "天"

MessageBox.Show(MyInfo, "信息", _

MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Q3: vb.net 中 日期怎样实现减法

新建一个LABEL控件

然后在FORM_LOAD 事件中输入

Label1.caption=year(now()) 'year可以换成month,day,hour,minute,second

label1.caption=label1.caption-1 '减号后面可以输入你想要的数字

就OK了

Q4: 我想知道vb.net中的时间怎么做相加和相减，谢谢

DateAdd函数 返回

返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。

语法

DateAdd(interval, number, date)

DateAdd 函数语法中有下列命名参数：

部分 描述

interval 必要。字符串表达式，是所要加上去的时间间隔。

number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。

date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。

DateDiff函数 返回

返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。

语法

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

DateDiff 函数语法中有下列命名参数：

部分 描述

interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔

Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。

Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。

firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。

Q5: VB.net 做一个时间减法可以返回相差天数，为毛这样写不行？求教....坐等答案

.Net中是不能使用控件的默认属性的，所有属性都要显式地写出来。

应该这样：

Dim resulttime As Integer = DateDiff(DateInterval.Day, DateTimePicker1.Value, DateTimePicker2.Value)

MessageBox.Show(resulttime)

另外，resulttime也最好写成：resulttime.ToString ，这样显式地转换成字符串类型。