将日期变为中文显示的简便办法

付谦

      在窗体和报表中有时用到中文显示日期的问题，用模块编写代码比较复杂，不易看懂。.对我们初学者不如：

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

          日期          中文                 

         2006          二00六

        。。。。。。。。。

        2010            二0一0

          0                     0

           1                   一

          2                 二

         。。。。。。。。。。

         31              三十一

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

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

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

虽然是笨办法，但管用。

fan0217

这种用法，在一定范围内是可以使用的，但对于银行系统的要求可能就不行了，有现成的日期转大写的函数可以一用。

tianya0073

这种用法，在一定范围内是可以使用的，但对于银行系统的要求可能就不行了，有现成的日期转大写的函数可以一用。