_confirm_number_or_date.ado

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· ADO 代码 · 共 48 行

*! version 1.0.3  25sep2003
program _confirm_number_or_date
	version 8.1

	if (`"`0'"' == "") exit 9

	local dfuncs d w m q h // -y()- is redundant

	while `"`0'"' != "" {
		gettoken tok 0 : 0 , parse(" ()") match(par)

		if "`par'" == "" {
			// allow numbers
			capture confirm number `tok'
			if (!_rc) continue

			// allow missing values
			if ("`tok'" == ".") continue
			if substr("`tok'",1,1) == "." {
				if length("`tok'") == 2 {
					local letter = substr("`tok'",2,1)
					local l = lower("`letter'")
					local u = upper("`letter'")
					if ("`l'" != "`u'"		///
					&   "`letter'" != "`u'")	///
						continue
				}
			}
		}

		// allow certain date strings
		local isdate 0
		foreach func of local dfuncs {
			capture {
				local x = `func'(`tok')
				confirm integer number `x'
			}
			if (!_rc) {
				local isdate 1
				continue, break
			}
		}
		if (!`isdate') exit 9
	}
end

exit