Question

vb.net时间间隔的计算

在过去的某个时刻用户点击按钮，程序自动记录点击按钮的时间，并储存到一个文本文件中。
现在用户点击另一个按钮，程序先读取过去的那个时间，并记录现在的时间，计算这个时间间隔（例如：2014年1月2日 x时x分 到2014年1月3日x时x分经过了x分钟的时间），用msgbox输出
给出代码。
谢谢！！！！
在线等

Answer 1

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

Answer 2

你知道 TimeSpan 么？
假设你现在有两个按钮，ann1 和 ann2
dim RQ as DateTime
dim JG as TimeSpan
dim RQ点击时间 as datetime
当你点击 ann1：
RQ点击时间 = Now
dim lxr as New StreamWriter(保存文件的路径）
with lxr
.WriteLine(RQ.ToString)
end with
JG = RQ点击时间.SubStract(RQ)
msgbox($"距离你上次点击按钮 1 已经过了：{JG.Hour} 小时 {JG.Minute} 分钟 {JG.Second} 秒")
RQ = RQ点击时间

按钮 2 的处理过程相同。这样你的文件存放每次点击某个按钮的时间，每个对话框显示你距离上一次点击某个按钮过了多久

Answer 3

　　DateDiff()
　　函数返回两个日期之间的差值 。
　　表达式 DateDiff(timeinterval,date1,date2 [, firstdayofweek [, firstweekofyear]])
　　允许数据类型: timeinterval 表示相隔时间的类型，代码为：
　　“y“表示“年”
　　“m“表示“月”
　　“d“表示“日”
　　“h“表示“时”
　　“n“表示“分”
　　“s“表示“秒”。
　　实例： <%
　　fromDate = #9/9/00#
　　toDate = #1/1/2000#
　　response.write "There are " & _
　　DateDiff("d",fromDate,toDate) & _
　　" days to millenium from 9/9/00."
　　%>
　　返回结果: 从9/9/00 到2000年还有 150 天.
　　该函数在mssql中可用，在oracle中不可用。