Vb.net 如何将日期转换为十进制？

如何转换十进制的日期时间

这是我的代码不起作用

    Dim c = New DateTime(Now.Year, Now.Month, Now.Day, 9, 16, 0, 0)

    Dim d As Integer = (c.ToString("%h"))
    Dim duration As Decimal = 0



    Dim date1 As DateTime
    Dim date2 As DateTime

                   If read1("clog") Is (DBNull.Value) Then

                    Else

                        date1 = CDate(read1("clog")).ToString("%h")
                        date2 = CDate(read1("cDlog")).ToString("%h")



                     Dim duration As Decimal = CDec(date2) - CDec(date1)

---

提前感谢您。

DateTime有您可以使用的方法

Subtract

Dim duration As System.TimeSpan
duration = date2.Subtract(date1)

---

您的代码正在尝试将十进制转换为DateTime，您想要什么？请更具体一点。我有一个两个日期，我需要减去两个日期。你可以使用

date2-date1

，这将给出一个时间跨度。我将使用时间跨度计算它不准确…这似乎是一个错误。请编辑您的问题并澄清您真正想要实现的目标。是的，我将使用此选项：我的错误是从字符串“9”转换而来键入日期的持续时间无效，因为TimeSpan duration=date1-date2