datetostring.prg

来自「人力资源Visual FoxPro 6.0」· PRG 代码 · 共 18 行

*——DateToString函数
*	 将日期型数据转换为字符串
FUNCTION DateToString(dDate)
	*——默认返回空字符串
	sDate = ""
	*——如果参数非空而且为日期型
	IF .NOT. EMPTY(dDate) .AND. VARTYPE(dDate) = "D"
		*——分别获取其年、月、日字段
		nYear = YEAR(dDate)
		nMonth = MONTH(dDate)
		nDay = DAY(dDate)
		*——组合数据
		sDate = ALLTRIM(STR(nYear))+"/"+ALLTRIM(STR(nMonth))+"/"+ALLTRIM(STR(nDay))
		sDate = "{^"+sDate +"}"
	ENDIF
	*——返回值
	RETURN sDate
ENDFUNC