datetostring.prg

这是我用vfp6开发的企业工资管理系统,对vfp初级编程者有很好的学习和参考价值

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