【vfp开源代码栏目提醒】:网学会员--在 vfp开源代码编辑为广大网友搜集整理了:datetostring.prg绩等信息,祝愿广大网友取得需要的信息,参考学习。
*——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