Foxtable(狐表)用户栏目专家坐堂 → 如何将日期转化为大写


  共有22195人关注过本帖树形打印复制链接

主题:如何将日期转化为大写

帅哥哟,离线,有人找我吗?
mr725
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/5/15 8:52:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-5-15 7:54:00的发言:

楼主可以参考帮助文件:开发篇 - 编程基础 - 函数参考 - 字符串换函数。

Foxtable提供了很多这样的函数。

CUDate(Value)

上述代码的输出为:二○○八年十二月三十一日


这个好象解决不了楼主的问题,他要的是 贰零零捌 零拾贰 叁拾壹

[此贴子已经被作者于2009-5-15 8:52:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/5/15 9:06:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-5-15 9:00:00的发言:
再来一个大写的算了
[此贴子已经被作者于2009-5-15 9:00:05编辑过]

必须要有啊 ,  要不支piao就没法填大写了啊~~ 另外:
中国人民银行规定的:piao据的出piao日期必须使用中文大写。为防止变造piao据的出piao日期,在填写月、日时,月为壹、贰和壹拾的,日为壹至玖和壹拾、贰拾和叁拾的,应在其前加"零";日为拾壹至拾玖的,应在其前加"壹"。如1月15日,应写成零壹月壹拾伍日。再如10月20日,应写成零壹拾月零贰拾日


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/5/15 20:04:00 [显示全部帖子]

15楼的:强 ! 真强~

另外
,还有两个条件要判断:
1、月份 1=< 月份 <=12
2、日: 当月份为 1、3、5、7、8、10、12 时1=< 日 <=31,否则:1=< 日 <=30

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/5/15 20:28:00 [显示全部帖子]

以下是引用yangming在2009-5-15 20:09:00的发言:
Dim d1 as date = #1/30/2009#可以改为

Dim d1 as date = Date.Today

只是如何和日期列挂勾呢?

可以直接替换成Dim d1 as date = Date.Today

[此贴子已经被作者于2009-5-20 22:18:08编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/5/15 21:16:00 [显示全部帖子]

以下是引用mr725在2009-5-15 20:04:00的发言:
15楼的:强 ! 真强~

另外
,还有两个条件要判断:
1、月份 1=< 月份 <=12
2、日: 当月份为 1、3、5、7、8、10、12 时1=< 日 <=31,否则:1=< 日 <=30

试了一下: foxtable对超出月、日范围的输入会自动清空!~上面判断也就多余了。

这要赞一个!!!


 回到顶部