以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表单日期区间计算  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171335)
--  作者：blsu33
--  发布时间：2021/8/26 17:46:00
--  [求助]表单日期区间计算
老师，
有个疑问，表单上的日期能否，在录入日期后自动计算时间，怎么写？

With wb.AddInputGroup("form1","ipg2","上午出勤")
            .AddInput("rqswks","上午开始时间","time")
            .AddInput("rqswks","上午结束时间","time")
            With .AddInput("swsj","下午时长","number")
                .Value=rqswks-rqswks
                .Readonly=True
            End With
        End With
        With wb.AddInputGroup("form1","ipg3","下午出勤")
            .AddInput("rqxwks","下午开始时间","time")
            .AddInput("rqxwjs","下午结束时间","time")
            With .AddInput("xwsc","下午时长","number")
                .Value=rqxwks-rqxwjs
                .Readonly=True
            End With
--  作者：有点蓝
--  发布时间：2021/8/26 20:04:00
--  
要绑定js事件，类似：http://www.foxtable.com/mobilehelp/topics/0061.htm
--  作者：blsu33
--  发布时间：2021/8/26 20:07:00
--  
老师，
能教我一下吗，这个刚学习了一部分。  下载了 sublime_text.exe ，怎么做
--  作者：blsu33
--  发布时间：2021/8/26 20:15:00
--  
function markCalc(kssj,jssj){
    swsj.value=kssj.value -jssj.value;
    if(swsj.value >= 0){
        if(!swsj.classList.contains(\'mark\')){
                    swsj.classList.add(\'mark\');
        }
    }
    else{
        if(swsj.classList.contains(\'mark\')){
            swsj.classList.remove(\'mark\');
        }
    }
}
[此贴子已经被作者于2021/8/26 20:17:21编辑过]
--  作者：blsu33
--  发布时间：2021/8/26 20:25:00
--  
Case "sjlr.htm"
        Dim wb As New WeUI
        wb.AddForm("","form1","sjlr.htm")
        wb.AppendHTML("<link rel=\'stylesheet\' href=\'./lib/textjs.css\'/>",True)  \'引入样式文件,参数True表示添加到head区
        With wb.AddInputGroup("form1","ipg1","新增出勤数据")
            .AddInput("rq","日期","date")
            .AddSelect("cp","车牌号","PD01|PD02|PD03|PD04|PD05")
            .AddInput("gy","雇员","text")
        End With
        With wb.AddInputGroup("form1","ipg2","上午出勤")
            .AddInput("rqswks","上午开始时间","time")
            .AddInput("rqswjs","上午结束时间","time")
              .AddInput("swsj"," 上午时长","number").Attribute="on change=\'markCalc(rqswks,rqswjs)\'"
        End With

[此贴子已经被作者于2021/8/26 20:26:20编辑过]
--  作者：blsu33
--  发布时间：2021/8/26 20:25:00
--  
运行没有反应，劳烦您给改改
--  作者：有点蓝
--  发布时间：2021/8/26 20:49:00
--  
            .AddInput("rqswks","上午开始时间","time").Attribute="on change=\'markCalc()\'"
            .AddInput("rqswjs","上午结束时间","time").Attribute="on change=\'markCalc()\'"
--------------------
function markCalc(){
    var kssj = document.getElementById("rqswks").value;
    var jssj = document.getElementById("rqswjs").value;
var tt=(jssj - kssj )/ 1000;
alert("秒数" + tt);
document.getElementById("swsj").value = tt
}
--  作者：blsu33
--  发布时间：2021/8/26 21:06:00
--  
没有弹窗，没有反应

 Case "sjlr.htm"
        Dim wb As New WeUI
        wb.AddForm("","form1","sjlr.htm")
        wb.AppendHTML("<link rel=\'stylesheet\' href=\'./lib/textjs.css\'/>",True)  \'引入样式文件,参数True表示添加到head区
        With wb.AddInputGroup("form1","ipg1","新增出勤数据")
            .AddInput("rq","日期","date")
            .AddSelect("cp","车牌号","PD01|PD02|PD03|PD04|PD05")
            .AddInput("gy","雇员","text")
        End With
        With wb.AddInputGroup("form1","ipg2","上午出勤")
            .AddInput("rqswks","上午开始时间","time").Attribute="on change=\'markCalc1()\'"
            .AddInput("rqswjs","上午结束时间","time").Attribute="on change=\'markCalc1()\'"
            .AddInput("swsj"," 上午时长","number")
        End With
        With wb.AddInputGroup("form1","ipg3","下午出勤")
            .AddInput("rqxwks","下午开始时间","time").Attribute="on change=\'markCalc2()\'"
            .AddInput("rqxwjs","下午结束时间","time").Attribute="on change=\'markCalc2()\'"
            .AddInput("xwsj","下午时长","number")
        End With
        
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btnok","确定")
        End With
        e.WriteString(wb.Build) \'生成网页

==================================
css文件

function markCalc1(){
    var swkssj = document.getElementById("rqswks").value;
    var swjssj = document.getElementById("rqswjs").value;
var tt1=(swjssj - swkssj )/ 1000;
alert("秒数" + tt1);
document.getElementById("swsj").value = tt1
}
function markCalc2(){
    var xwkssj = document.getElementById("rqxwks").value;
    var xwjssj = document.getElementById("rqxwjs").value;
var tt2=(xwjssj - xwkssj )/ 1000;
alert("秒数" + tt1);
document.getElementById("xwsj").value = tt2
}
[此贴子已经被作者于2021/8/26 21:08:00编辑过]
--  作者：blsu33
--  发布时间：2021/8/26 21:07:00
--  
分上下午两部分
--  作者：有点蓝
--  发布时间：2021/8/26 21:43:00
--  
js文件，不是css文件