Function gOpt
		Dim dt1, dt2, dy, strdt1, strdt2
		Dim aDt1, aDt2
		dt1 = CDate(frm.ex2.value)
		dt2 = CDate(frm.ex3.value)
		strDt1 = Split(CStr(dt1),"/")
		aDt1 = strDt1(1) &"/" &strDt1(0) &"/" &strDt1(2)
		aDt1 = CDate(aDt1)
		strDt2 = Split(CStr(dt2),"/")
		aDt2 =strDt2(1) &"/" &strDt2(0) &"/" &strDt2(2)
		aDt2 = CDate(aDt2)
		frm.txtNights.value = CInt(DateDiff("d",aDt1, aDt2))
	End Function