Foxtable(狐表)用户栏目专家坐堂 → 移动日期输入框不能显示短时间格式


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

主题:移动日期输入框不能显示短时间格式

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


加好友 发短信
等级:二尾狐 帖子:526 积分:5101 威望:0 精华:0 注册:2015/4/15 15:25:00
移动日期输入框不能显示短时间格式  发帖心情 Post By:2019/11/5 10:40:00 [只看该作者]

如果时间 < 10:00:00
 .value = Format(dt, "t")       '显示为空值...如果时间 >= 10:00:00,能正常显示
 .value = Format(dt, "HH:mm")   '显示正常


代码如下:

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")

        Dim dt As Date = "2019-11-05 08:08:08"

        With wb.AddInputGroup("form1","ipg1","时间输入")
            .AddInput("xm","日期","date").Value = Format(dt,"yyyy-MM-dd")
            With .AddInput("xm","时间","time")
                .value = Format(dt, "t")
                .Min = "08:00" '输入的事件必须在8:00到12:00之间
                .Max = "12:00"
            End With
            With .AddInput("xm","日期时间","datetime-local")
                .Value = Format(dt,"yyyy-MM-ddTHH:mm") '留意一下这个格式,日期和时间之间用字母T隔开
                .Readonly = True
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
End Select
[此贴子已经被作者于2019/11/5 10:40:31编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/5 10:51:00 [只看该作者]

用这种方式吧.value = Format(dt, "HH:mm")

 回到顶部