vbscript 获取当前损失描述的日期数据，并测试日期是否已填写

Posted 2021-05-21

	Dim DateDeConsolidation as Date
	Dim objLossDescription As clsLossDescription
	objLossDescription = GetObjectToBeUsedForThisClass(GetType(clsLossDescription).Name, ListOfObjectsToBeUsedInFormula)
	If Not objLossDescription Is Nothing Then
		Trace("objLossDescription  found " & objLossDescription.AsString(""),7)
		DateDeConsolidation = clsDynamicMethodOrPropertyCall.Manager.ValueForAPropertyName(objLossDescription, "DateDeConsolidation",Nothing,True)
		Trace("DateDeConsolidation="& DateDeConsolidation ,7)
		if DateTime.MinValue<>DateDeConsolidation then
			result(0)=true
		end if
	End If