datetostring.prg

来自「课程设计时做的一个工资管理系统。数据库编程的典型例子。值得收藏。」· PRG 代码 · 共 19 行

*——“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