If dr("VipLog_DateTime") < Date.Today.AddMinutes(6*60+35) Then dr("取整时段") = Date.Today.AddMinutes(6*60+30)End If