|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
开发语言
→
『 VB6论坛 』
→ [求助]汉字日期日期
我的收件箱(0)
欢迎加入我们,一同切磋技术
用户名:
密 码:
共有
679
人关注过本帖
标题:
[求助]汉字日期日期
只看楼主
加入收藏
skyhe
等 级:
新手上路
帖 子:4
专家分:0
注 册:2006-4-7
楼主
收藏
问题点数:0 回复次数:8
[求助]汉字日期日期
我是VB初学者,请教高手如何把系统的年月日转换成汉字显示在text 或label控件上?
搜索更多相关主题的帖子:
汉字
2006-04-07 07:03
举报帖子
使用道具
赠送鲜花
大话西游
等 级:
新手上路
帖 子:13
专家分:0
注 册:2006-4-5
第
2
楼
收藏
得分:0
text1.text=format(date,"yyyy年mm月dd日")
2006-04-07 08:26
举报帖子
使用道具
赠送鲜花
skyhe
等 级:
新手上路
帖 子:4
专家分:0
注 册:2006-4-7
第
3
楼
收藏
得分:0
不行啊 还是显示“2006”
2006-04-07 11:09
举报帖子
使用道具
赠送鲜花
leon2
等 级:
新手上路
威 望:
7
帖 子:731
专家分:0
注 册:2005-3-18
第
4
楼
收藏
得分:0
Text1.Text = Format(Date,"0000年#0月#0日")
2006-04-07 13:06
举报帖子
使用道具
赠送鲜花
lnhsgj
等 级:
新手上路
帖 子:30
专家分:0
注 册:2006-4-8
第
5
楼
收藏
得分:0
text1.text=format(date,"yyyy年mm月dd日")
2006-04-08 10:30
举报帖子
使用道具
赠送鲜花
skyhe
等 级:
新手上路
帖 子:4
专家分:0
注 册:2006-4-7
第
6
楼
收藏
得分:0
谢谢大家 可是我的意思是 “2006年4月10日” 变成 “贰零零陆年肆月十日”
2006-04-10 06:35
举报帖子
使用道具
赠送鲜花
lnhsgj
等 级:
新手上路
帖 子:30
专家分:0
注 册:2006-4-8
第
7
楼
收藏
得分:0
http://www.bc-cn.net/bbs/dispbbs.asp?boardID=6&ID=55403&page=1
2006-04-10 09:49
举报帖子
使用道具
赠送鲜花
lnhsgj
等 级:
新手上路
帖 子:30
专家分:0
注 册:2006-4-8
第
8
楼
收藏
得分:0
For a = 0 To 3
Text1 = Text1 + Left(Right("零壹贰叁肆伍陆柒捌玖", 10 - Left(Right(Format(Date, "yyyy"), 4 - a), 1)), 1)
Next a
此方法为对年的处理,可参考此方法做对月和日的处理
只是要多考虑关于月日的位数问题.
如:23日 不能是"贰叁日" 而是"贰拾叁日"
8月 是"捌月" 不能是"零捌月"
如上的,要对位数进行判断,去"零"或是中间插入"拾",你自已研究吧.
2006-04-10 10:47
举报帖子
使用道具
赠送鲜花
skyhe
等 级:
新手上路
帖 子:4
专家分:0
注 册:2006-4-7
第
9
楼
收藏
得分:0
谢谢大家
2006-04-10 18:30
举报帖子
使用道具
赠送鲜花
9
1/1页
1
快速回复:
[求助]汉字日期日期
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.023088 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved