Function DateOperator(sDate1 ,sDate2)
	sDate1 = CDate(sDate1)
	sDate2 = CDate(sDate2)
	DateOperator = Abs(sDate1 - sDate2)
End Function

Function ShowPoint(sId , sDate)
	If DateOperator(sDate ,Now()) < 14 Then
		ShowPoint = Eval("Cls_" & sId & "_NewPoint")
	Else
		ShowPoint = Eval("Cls_" & sId & "_Point")
	End If
End Function