如何从datetimepicker.value中追溯label.text中的日期？

Question

Dim x = dtpextend.Value - lblcheckoutdate.Text
Dim day = x.TotalDays
Dim y As Integer = Day + Val(1)
formPaymentforextend.lbldayextend.Text = y

第一行引发错误：

  

运营商＆＃39; - ＆＃39;未定义类型＆＃39;日期＆＃39;和＆＃39;字符串＆＃39;

Answer 1

您需要将字符串解析为DateTime。例如：

Dim x = dtpextend.Value - DateTime.Parse(lblcheckoutdate.Text)

您还可以使用其他方式进行转换，例如DateTime.ParseExact()，DateTime.TryParse()，Convert.ToDateTime()等。

Answer 2

尝试在计算差异之前将两个日期转换为相同的格式。我建议您使用以下函数将它们转换为纪元时间，然后计算差异。

function date2epoch(myDate)
date2epoch = DateDiff("s", "01/01/1970 00:00:00", myDate)
end function

或尝试将它们转换为DateTime对象，如：     CDATE（lblcheckoutdate.Text）