Foxtable(狐表)用户栏目专家坐堂 → 求列中最大的日期(有简便写法吗)


  共有3079人关注过本帖树形打印复制链接

主题:求列中最大的日期(有简便写法吗)

帅哥哟,离线,有人找我吗?
puma
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:3005 威望:0 精华:0 注册:2023/6/7 16:07:00
求列中最大的日期(有简便写法吗)  发帖心情 Post By:2023/8/17 13:15:00 [显示全部帖子]

    Dim d2 As Date = Date.Today
 
    For Each dr1 As DataRow In drs
        d1 = dr1("日期")
        If DateDiff("d", CDate(d1), CDate(d2)) < 0 Then
            d2 = d1
            '            MessageBox.show( d1 & "大")
        Else
            '            MessageBox.show( d2 & "大")
        End If
    Next
    Output.Show("最大日期是:" & d2 )

 回到顶部