主题：[求助]表单日期区间计算

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');

        }

    }

}

 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) '生成网页

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

}