以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  日期转换年出现了错误  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=33442)
--  作者：yun9126
--  发布时间：2013/5/18 10:28:00
--  日期转换年出现了错误

大家好我是笨笨，有问题请教大家

支票的日期年转换大写日期的出现错误，比如，2013，转成了贰仟零壹拾叁。是哪里出现了问题，我看了案例，把公式复制粘贴也是一样。请大家帮帮
--  作者：Bin
--  发布时间：2013/5/18 10:31:00
--  
你用错了函数吧,

messagebox.show(CUDate(#04/05/2013#))
--  作者：don
--  发布时间：2013/5/18 10:49:00
--  
確實有問題,請老大修正:
Dim DateStr As String
DateStr = CCNumber(#2/18/2000#.year)  
Output.Show(DateStr)  \'結果為[贰仟],應為[贰零零零]吧
--  作者：Bin
--  发布时间：2013/5/18 10:51:00
--  
你们都用错了 函数- - 这个本来就是这么设计的.
--  作者：XYT
--  发布时间：2013/5/18 10:53:00
--  
以下是引用don在2013-5-18 10:49:00的发言：
確實有問題,請老大修正:
Dim DateStr As String
DateStr = CCNumber(#2/18/2000#.year)  
Output.Show(DateStr)  \'結果為[贰仟],應為[贰零零零]吧

用CUNum才是贰零零零吧
--  作者：don
--  发布时间：2013/5/18 11:08:00
--  

票据设计 ====> 实战演练二


5、大写日期的解决办法类似，同样将年、月、日三个控件绑定到日期列，然后分别设置其DataFormat事件代码：

年：

If e.Value IsNot Nothing Then
    e.Value = CCNumber(e.Value.Year) 
End If

月：

If e.Value IsNot Nothing Then
    e.Value = CCNumber(e.Value.Month)
End If

日：

If e.Value IsNot Nothing Then
    e.Value = CCNumber(e.Value.Day)
End If
--  作者：yun9126
--  发布时间：2013/5/18 11:19:00
--  
以下是引用don在2013-5-18 11:08:00的发言：

票据设计 ====> 实战演练二


5、大写日期的解决办法类似，同样将年、月、日三个控件绑定到日期列，然后分别设置其DataFormat事件代码：

年：

If e.Value IsNot Nothing Then
    e.Value = CCNumber(e.Value.Year) 
End If

月：

If e.Value IsNot Nothing Then
    e.Value = CCNumber(e.Value.Month)
End If

日：

If e.Value IsNot Nothing Then
    e.Value = CCNumber(e.Value.Day)
End If

案例中也是这些公式，在案例中转换都可以，可是粘贴到我设计的票据模板就出错了，我用的是试用版

[此贴子已经被作者于2013-5-18 11:28:45编辑过]
--  作者：don
--  发布时间：2013/5/18 11:29:00
--  
以下是引用yun9126在2013-5-18 11:19:00的发言：

案例中也是这些公式，在案例中转换都可以，可是粘贴到我设计的票据模板就出错了



我6楼引用帮助不是对你,而是对BIn和XXT说的:CCNumber,将阿拉伯数字转换为中文格式，符合支票格式。


且6楼的方法在案例也是[贰仟],而不是[贰零零零]
--  作者：Bin
--  发布时间：2013/5/18 11:30:00
--  
先使用没问题的函数呗, 帮助确实有问题. 再让老大修改吧
--  作者：don
--  发布时间：2013/5/18 11:37:00
--  
以下是引用Bin在2013-5-18 11:30:00的发言：
先使用没问题的函数呗, 帮助确实有问题. 再让老大修改吧
不是帮助的问题,而是CCNUMBER的问题!因CCNUMBER就是专为处理支票大写年月日而存在的.