Office中国论坛/Access中国论坛

标题: 将日期变为中文显示的简便办法 [打印本页]

作者: 付谦 时间: 2006-6-4 20:55
标题: 将日期变为中文显示的简便办法
   在窗体和报表中有时用到中文显示日期的问题，用模块编写代码比较复杂，不易看懂。.对我们初学者不如：

先建一个表，如表名为“日期变中文” 设“日期”、“中文”二字段：

      日期       中文

      2006       二00六

      。。。。。。。。。

      2010          二0一0

      0                   0

         1                一

      2                二

      。。。。。。。。。。

      31             三十一

表很小，然后在需要的地方建一文本框，输入以下代码：

=DLookUp("中文","日期变中文","[日期变中文].日期=YEAR(DATE())") & "年" & DLookUp("中文","日期变中文","[日期变中文].日期=MONTH(DATE())") & "月" & DLookUp("中文","日期变中文","[日期变中文].日期=DAY(DATE())") & "日"

   在表日期中可以只输0-31数字，在代码中将年按4位琢一提取。参照以上语句改写，这样适用更广。

虽然是笨办法，但管用。

作者: fan0217 时间: 2006-6-4 23:48
这种用法，在一定范围内是可以使用的，但对于银行系统的要求可能就不行了，有现成的日期转大写的函数可以一用。

作者: tianya0073 时间: 2009-12-3 15:44
这种用法，在一定范围内是可以使用的，但对于银行系统的要求可能就不行了，有现成的日期转大写的函数可以一用。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)