vb.net相隔时间年的简单介绍

vb.net时间间隔的计算

Public Class Form1

专注于为中小企业提供成都网站设计、网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业平塘免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了1000+企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

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

如果DateDiff(月，开始日期，结束日期)=6

在检查开始日期的月份是不是1或者7，如果是在检查结束日期的月份是不是6或者12，如果都满足就是半年

如果DateDiff(月，开始日期，结束日期)=2并且开始日期的月份不能被2整除就是双月

使用datediff函数

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

说明一下：

“d”表示“天”

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

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

分享名称：vb.net相隔时间年的简单介绍
分享路径：http://myzitong.com/article/hsgiho.html