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的年份、月、日、小时、分钟和秒
分享名称:vb.net时间计算函数的简单介绍
本文路径:https://www.cdcxhl.com/article8/hhghip.html
成都网站建设公司_创新互联,为您提供定制开发、品牌网站建设、动态网站、定制网站、电子商务、微信公众号
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联