主题：时间变量与if语句

看9楼

设置后以后，用下面的代码

 

static flag As Boolean = True
e.Form.Controls("现在时间").Text = Date.Now

If flag Then
    Dim dt As DataTable = DataTables("表A")
    Dim d As Date = new Date(1900, 1, 1, Date.now.hour, Date.now.Minute, Date.now.Second)
    Dim fdr As DataRow = dt.find("时间表 >= #" & d.AddSeconds(-2) & "# And 时间表 <= #" & d & "#")
    If fdr IsNot Nothing Then
        flag = False
        msgbox("时间到了")
        'Audio.play(ProjectPath & "Attachments/" & fdr("执行音乐"), AudioPlayMode.WaitToComplete)
        flag = True
    End If
End If

问题依旧。问得我都不好意思了，再麻烦麻烦您把。

 看9楼啊。

这里面没有我要的东西呀

 设置你的日期格式啊

此主题相关图片如下：111.png

短日期、长日期，都设置成 yyyy-MM-dd

此主题相关图片如下：111.png

 短时间也调整一下