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