*! ftoidate -- convert formatted date (yymmdd) int'l format string (dd/mm/yy)
*! version 1.0.0     Nov 14, 1993       STB19: dm17
program define ftoidate
	version 3.1
	local varlist "req ex max(1)"
	local if "opt"
	local in "opt"
	local options "Generate(string)"
	parse "`*'"
	if "`generat'"=="" { error 198 }
	conf new var `generat'
	tempvar yr mo da syr smo sda touse
	quietly { 
		_crcymd `varlist' `yr' `mo' `da' /* define `yr', `mo', `da' */
		_crc2s2 `smo' `mo'
		_crc2s2 `sda' `da'
		_crc2s2 `syr' `yr'
		gen byte `touse' = 1 `if' `in'
	}
	#delimit ; 
        gen str8 `generat'=`sda'+"/"+`smo'+"/"+`syr' if `touse'==1 &
			`mo'>=1 & `mo'<=12 & `da'>=1 & `da'<=31 &
			`yr'>=1 & `yr'<=99 ;
	#delimit cr
end