VB.NET如何制作自定义系统时间（实时）

Question

所以我坚持在VB.Net的项目中。我想创建一个用户定义的日期时间函数，它不依赖于我试图在网上搜索的系统时间，但它们只给了我如何打印当前系统时间。任何想法的人如何实现定制日期时间每秒更新换句话说实时。

提前感谢任何答案。

Answer 1

您可以在应用程序的开头将Date.Now的值保存在全局变量中：

Public StartDate As Date = Date.Now

然后，您可以使用从此开始日期和当前日期计算的TimeSpan计算代码中任意时间点的当前日期：

Dim Elapsed As TimeSpan = Date.Now - StartDate
Dim NewDate As Date = ArbitraryStartDate + Elapsed

使用ArbitraryStartDate构造函数（例如

）选择Date为您喜欢的任何日期

Dim ArbitraryStartDate As Date = New Date(1983, 05, 03)