大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Public Class Form1
成都创新互联-专业网站定制、快速模板网站建设、高性价比安陆网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式安陆网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖安陆地区。费用合理售后完善,十载实体公司更值得信赖。
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
Date.Now() As Date ’日期时间
这可以在对象浏览器中查一查吗。
Date.Date() As Date '日期
Date.Time() As Date ‘时间
1、时间可以直接比较大小,定义两个时间的变量,直接使用或者即可判断,跟数据大小判断是一样的
2、时间差值,可以使用DateDiff函数进行
3、比如取一个现在的时间now,使用Year、month、day、hour、min、sec函数可以取到now的年份、月、日、小时、分钟和秒