lol
You get my words :-)


>What exactly doesnt work?
>
>>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
>>