以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期转换年出现了错误  (http://foxtable.net/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就是专为处理支票大写年月日而存在的.