vb.net时间计算的简单介绍

我想知道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 日的星期为第一周。

VB.NET 如何计算时间差

使用datediff函数

textbox3.text=datediff("d","textbox1.text","textbox2.text")

说明一下：

“d”表示“天”

还可以用“y”,"m","d","h","n","s"

分别表示“年”“月”“日”“时”“分”“秒”

问一个VB.NET中关于时间操作的问题。

1、时间可以直接比较大小，定义两个时间的变量，直接使用或者即可判断，跟数据大小判断是一样的

2、时间差值，可以使用DateDiff函数进行

3、比如取一个现在的时间now，使用Year、month、day、hour、min、sec函数可以取到now的年份、月、日、小时、分钟和秒

vb.net计算两个日期之间相差多少天

function getTime2Time($time1, $time2)

{

var time1 = arguments[0], time2 = arguments[1];

time1 = Date.parse(time1)/1000;

time2 = Date.parse(time2)/1000;

var time_ = time1 - time2;

return (time_/(3600*24));

}

document.write(getTime2Time('2016-08-02', '2016-07-02'));

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

vb.net时间间隔的计算

Public Class Form1

Private Past As Date

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Past = Now

IO.File.AppendAllText("test.txt", Past.ToString, System.Text.Encoding.Default)

End Sub

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

Dim Now1 As Date = CDate(IO.File.ReadAllText("test.txt", System.Text.Encoding.Default))

Dim Now2 As Date = Now

MsgBox("从" Now1.ToString "到" Now2.ToString "经过了" CStr(CDate((Now2 - Now1).ToString)))

End Sub

实际情况修改下。

End Class