Dear Experts

Following codes work fine without Exe and do not work in EXE.
What is wrong?
Please help

IF !empty(thisform.container3.text1.value)
	b_date=thisform.container3.text1.value
	thisform.container3.text3.value=cdow(thisform.container3.text1.value)

	y_ears=0
	IF !EMPTY(b_date)
		IF b_date>DATE()
			RETURN .f.
		ENDIF

		db=DAY(b_date)
		mb=MONTH(b_date)
		yb=YEAR(b_date)

		dd=DAY(DATE())
		MD=MONTH(DATE())
		yd=YEAR(DATE())

		y_ears=yd-yb
		y_ears=IIF(mb>md,y_ears-1,IIF((mb=md) .and. (db>dd),y_ears-1,y_ears))
		m_onths=md-mb

		IF db>dd
			m_onths=m_onths-1
		ENDIF
		IF m_onths<0
			m_onths=m_onths+12
		ENDIF

		d_ays=dd-db

		DO CASE
		CASE INLIST(mb,1,3,5,7,8,10,12)
			d_calc=31
		CASE INLIST(mb,4,6,9,11)
			d_calc=30

		CASE mb=2
			IF MOD(yb,400)=0
				d_calc=29

			ELSE
				IF MOD(yb,100)=0
					d_calc=28
				ELSE
					IF MOD(yb,4)=0
						d_calc=29
					ELSE
						d_calc=28
					ENDIF
				ENDIF
			ENDIF
		ENDCASE

		IF d_ays<0
			d_ays=d_ays+d_calc
		ENDIF
	ENDIF

	thisform.container3.text2.value=alltrim(str(d_ays))+;
		+alltrim("-")+alltrim(str(m_onths))+alltrim("-")+;
		alltrim(str(y_ears))
ENDIF

THISFORM.REFRESH