这种时间计算办法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这种时间计算办法

共有3890人关注过本帖树形打印复制链接主题：这种时间计算办法

老头

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：61 积分：508 威望：0 精华：0 注册：2014/5/30 11:39:00

这种时间计算办法 发帖心情

Post By：2014/6/12 21:25:00 [只看该作者]

v1 = 20:30:00

v2 = 1900-01-01 20:00

这两种款式的时间，怎么进行大小比较呢？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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)

看雪的人

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00

Post By：2014/6/13 0:17:00 [只看该作者]

太专业，看不懂！我要努力呀

ndxfke

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00

Post By：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)
---------------------------