Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:时间段如何计算

1楼
shofihsu 发表于:2010/12/31 14:28:00

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:时间段计算.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)
---------------------------
确定  
---------------------------

 

请问如何办?


2楼
狐狸爸爸 发表于:2010/12/31 14:39:00

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
 

图片点击可在新窗口打开查看
 
 

3楼
shofihsu 发表于:2010/12/31 15:00:00
恩,成功,有效
共3 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 3 queries.