如何避免vb.net中日期的更改

我想问一下如何在控制台vb.net中编写datetime。我已经得到了格式，但我的问题是今天我在数据库中输入了另一个数据

在此图像中，我的数据检索出错。ID（1,2,3,4,5,6）应为1月2日。不幸的是，在我将新数据输入数据库后，今天才输出数据。我对如何编写代码以避免更改日期感到困惑

这是我的代码：

   Dim datetoday As DateTime = DateTime.Now
   Dim dateyesterday As DateTime = DateTime.Today
   Dim format As String = "yyyy d MMM"
   Sub Main()
    s = New Sessions
    ds = s.GetSession("select CLIENTID, SESSIONCOST from SESSIONS ORDER BY CLIENTID ASC")
    Dim startVal = 0
    Dim endVal = ds.Tables(0).Rows.Count

    For var = startVal To endVal - 1
        Console.WriteLine(ds.Tables(0).Rows(var)("CLIENTID").ToString() + " " + ds.Tables(0).Rows(var)("SESSIONCOST").ToString() + " " + datetoday.ToString(format))  'code for display id and name
    Next

---

我希望得到你的反馈。一个示例代码就足够理解了。谢谢

尝试在应用程序和数据存储中使用UTC日期（DateTime.UtcNow）。在向用户显示时，仅使用时区调整日期格式化。将代码放在原始帖子中要好得多，但您是否真正阅读了您所写的内容

Dim datetoday As DateTime = DateTime.Now
Dim dateyesterday As DateTime = DateTime.Today

这两个将是几乎相同的东西。如果你想要昨天，你需要从现在减去一天

Console.WriteLine(ds.Tables(0).Rows(var)("CLIENTID").ToString() + " " + ds.Tables(0).Rows(var)("SESSIONCOST").ToString() + " " + datetoday.ToString(format))  'code for display id and name

---

此外，您似乎没有在数据库中检索（甚至存储？）日期。如果您只是打印DateTime的结果。现在，打印在每行旁边的日期将始终是当前日期，而不一定是对象创建时的日期。

您应该发布代码，向我们展示您正在执行的操作，并指出您遇到的问题所在。您需要返回常见问题解答，学习如何使用堆栈溢出。我不会将您的代码粘贴到编辑器中，这样我就可以阅读它，并尝试找出您的问题所在。修改一下你原来的帖子，用代码中的行问一个直截了当的问题。我查看了你的个人资料，发现你粘贴在这里的SQL语句是你从其他线程得到的答案的产物。我们不是来为你工作的。从基础开始。这里是指向MSDN的VB.net区域的链接：@Origin:对不起。我只是想得到一些指导，这样我就可以继续我的课程了。我只是想要一个示例代码，这样我就可以分析代码，然后把它放到我的程序中。这不仅仅是打印结果，我接下来要做的是将它插入mysql。这就是我应该更新数据的原因。昨天只是一个声明。它还没有被使用。