vb.net时间间隔的计算

Posted 2023-04-26

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

参考技术A 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本回答被提问者采纳 参考技术B 你知道 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 的处理过程相同。这样你的文件存放每次点击某个按钮的时间，每个对话框显示你距离上一次点击某个按钮过了多久 参考技术C 　　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中不可用。

VB.NET 中的图表轴

【中文标题】VB.NET 中的图表轴

【英文标题】：Chart Axes in VB.NET

【发布时间】：2011-03-07 18:31:50

【问题描述】：

我的要求是从 2 个数组中绘制（散点图）数据。我现在可以连接数组中的数据并在图表上使用它。我的问题是，如何设置图表的 X 轴和 Y 轴以显示其区间的一致性？

例如，我有来自 X = 1, 3, 4, 6, 8, 9 和 Y = 7, 10, 11, 15, 18, 19 的点。我想看到的是这些点以分散的方式绘制，但是，x 轴的间隔应该是（间隔）2 到 10（这样它将显示 0、2、4、6、8 , 10 在 x 轴上）和 5 的间隔用于 y 轴（这样它将在 y 轴上显示 5、10、15、20）。我应该使用/操作什么代码/属性？

添加部分：

我目前有以下数据： x_column = 12, 24, 1, 7, 29, 28, 25, 24, 15, 19 y_column = 3, 5, 8, 3, 3, 3, 3, 3, 19, 15

每个 y_column 元素是一对各自的 x_column 元素

现在，我希望 MyChart 显示 x_column 和 y_column 数据的散点图，使 x 轴显示 5、10、15、20、25、30，y 轴显示 2， 4、6、8、10、12、14、16、18、20。

我当前的代码是：

' add points
    MyChart.Series("Scatter Plot").Points.DataBindXY(x_Column, y_Column)

上面的代码只是加分。

【参考方案1】：

试试：

Chart1.ChartAreas("Default").AxisX.Interval = 2
Chart1.ChartAreas("Default").AxisY.Interval = 5

【讨论】：

感谢迈克尔先生。稍后会尝试。忙于其他一些事情。如果那是我寻求的答案，我会通知你的。再次感谢。

x 轴似乎没有排序.. 这是为什么？

未排序是什么意思？

@Michael 同时在两个轴上设置Minimum 和Maximum 属性