- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这种时间计算办法 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52301)
-- 发布时间：2014/6/12 21:25:00
-- 这种时间计算办法
v1 = 20:30:00
v2 = 1900-01-01 20:00
这两种款式的时间，怎么进行大小比较呢？
-- 发布时间：2014/6/12 21:33:00
--
如下比较
Dim v1 As Date
Dim v2 As Date
Dim nv1 As Date = new (1900, 1, 1, v1.Hour, v1.Minute, v1.Second)
Dim nv2 As Date = new (1900, 1, 1, v2.Hour, v2.Minute, v2.Second)
msgbox(nv1 > nv2)
-- 发布时间：2014/6/13 0:17:00
--
太专业，看不懂！我要努力呀
-- 发布时间：2014/6/13 8:45:00
--
Dim v1 As Date = e.DataRow(Col_name)
Dim v2 As Date = f_r(Col_name)
Dim nv1 As Date = new (1900, 1, 1, v1.Hour, v1.Minute, v1.Second)
Dim nv2 As Date = new (1900, 1, 1, v2.Hour, v2.Minute, v2.Second)
If nv1 < nv2 Then
MessageBox.show( nv1 < nv2 )
End If
测试报，是个什么意思
---------------------------
编译错误:应为类型。
错误代码：Dim nv1 As Date = new (1900, 1, 1, v1.Hour, v1.Minute, v1.Second)
---------------------------
-- 发布时间：2014/6/13 8:48:00
--
动作比我还快。
-- 发布时间：2014/6/13 8:54:00
--
是不得行，
老师再看看
-- 发布时间：2014/6/13 8:55:00
--
Dim nv1 As Date = new date (1900, 1, 1, v1.Hour, v1.Minute, v1.Second)
-- 发布时间：2014/6/13 9:03:00
--
记得给v1、v2赋值
Dim v1 As Date
Dim v2 As Date
Dim nv1 As Date = new Date (1900, 1, 1, v1.Hour, v1.Minute, v1.Second)
Dim nv2 As Date = new Date (1900, 1, 1, v2.Hour, v2.Minute, v2.Second)
msgbox(nv1 > nv2)