| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 629 人关注过本帖
标题:日期问题
只看楼主 加入收藏
红楼孟_hlm
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2007-3-21
收藏
 问题点数:0 回复次数:4 
日期问题

请问如何将2007年5月15日转换为

二〇〇七年五月十五日

2007-05-15 12:49
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
收藏
得分:0 

如何将数字日期转换成文字日期

** 函数名 big_date
** 功能:将一个日期型数据转换成一个大写中文日期形式如将 2000.06.01 转成 二零零零年六月一日
** 用法:?big_date(你要转换的日期) 如 ?big_date(date())
** 作者:黄虎锋 于 2000.6.3
FUNC big_date
para _date
priv c1,c2,c3,cyear,_month,_day
c1=" 一二三四五六七八九" && 个位数
c2=" 十二十三十" && 十位数
c3="零"+allt(c1) && 用于年份
** 计算年份
_year=str(year(_date),4)
cYear=""
for n=1 to 4
cYear=cYear+subst(c3,val(subst(_year,n,1))*2+1,2)
endfor
** 计算月份
_month=month(_date)
** 计算日期
_day=day(_date)
** 返回文字日期
retu cyear+"年"+sz2hz(_month)+"月"+sz2hz(_day)+"日"
** 两位数数字转大写的函数
func sz2hz
para sz
sz2=int(sz/10)
csz2=subst(c2,sz2*4+1,4)
sz1=mod(sz,10)
csz1=subst(c1,sz1*2+1,2)
hz=allt(csz2)+allt(csz1)
retu hz
不是自己写的,根据这个试试


我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-05-15 13:06
红楼孟_hlm
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2007-3-21
收藏
得分:0 
谢谢了!
试过了,还是有些问题,转换后为:"二零零七年十跺猎漫十儒寥?"


2007-05-15 13:22
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
收藏
得分:0 
** 函数名 big_date
** 功能:将一个日期型数据转换成一个大写中文日期形式如将 2000.06.01 转成 二零零零年六月一日
** 用法:?big_date(你要转换的日期) 如 ?big_date(date())
FUNC big_date
para _date
priv c1,c2,c3,cyear,_month,_day
c1=" 一二三四五六七八九" && 个位数
c2=" 十 二十三十" && 十位数
c3="零"+allt(c1) && 用于年份
** 计算年份
_year=str(year(_date),4)
cYear=""
for n=1 to 4
cYear=cYear+subst(c3,val(subst(_year,n,1))*2+1,2)
endfor
** 计算月份
_month=month(_date)
** 计算日期
_day=day(_date)
** 返回文字日期
retu cyear+"年"+sz2hz(_month)+"月"+sz2hz(_day)+"日"
** 两位数数字转大写的函数
func sz2hz
para sz
sz2=int(sz/10)
IF INT(sz/10)=0
csz2=""
ELSE
IF INT(sz/10)=1
csz2="十"
ELSE
csz2="二十"
ENDIF
endif
*csz2=subst(c2,sz2*4,4)
sz1=mod(sz,10)
csz1=subst(c1,sz1*2,2)
hz=allt(csz2)+allt(csz1)
retu hz


我自己改了点,应该可的了

[此贴子已经被作者于2007-5-15 14:46:47编辑过]


我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-05-15 14:20
红楼孟_hlm
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2007-3-21
收藏
得分:0 
已经成功转换出我想要的结果:二○○七年五月十五日
再次感谢!
2007-05-15 19:54
快速回复:日期问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028149 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved