Function DoConfirmVB(strMsg)
	Dim rtnVal
	rtnVal = MsgBox (strMsg, 36, "GTTCMS MESSAGE")
	if rtnVal = 6 then
		DoConfirmVB = true
	else
		DoConfirmVB =  false
	end if
End Function

Function DoDateDiff(strDate1,strDate2)
	Dim date1
	Dim date2
	date1 = CDate(strDate1)
	date2 = CDate(strDate2)
	days = DateDiff("d", date1,date2)
	DoDateDiff = days
End Function