主题：时间段如何计算

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:时间段计算.table

 

startdatetime日期时间型

enddatetime日期时间型

TimeSpan整数型

 

想计算两个时间之差，以分钟为单位。

在DataColChanged里放入代码：

 

Dim d1 As Date = "[startdatetime]"
Dim d2 As Date = "[enddatetime]"

Dim t As TimeSpan = d2 - d1
Select Case e.DataCol.Name
       Case "startdatetime"
       e.DataRow("TimeSpan")=t.TotalMinutes
End Select

 

 

重置列出现错误提示：

--------------------------
错误
---------------------------
错误代码位置：表，表A， DataColChanged

 

System.InvalidCastException: Conversion from string "[startdatetime]" to type 'Date' is not valid.

   at Microsoft.VisualBasic.CompilerServices.Conversions.ToDate(String Value)

   at UserCode.DataColChanged(DataColEventArgs e)
---------------------------
确定  
---------------------------

 

请问如何办？

Dim d1 As Date = e.DataRow("startdatetime")
Dim d2 As Date = e.DataRow("enddatetime")
Dim t As TimeSpan = d2 - d1
Select Case e.DataCol.Name
       Case "startdatetime"
       e.DataRow("TimeSpan")=t.TotalMinutes
End Select
 

 
 

恩，成功，有效