以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]日期转换  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55142)
--  作者：syzsyk
--  发布时间：2014/8/11 17:15:00
--  [求助]日期转换
票据打印如何把2014-08-11分别转换为二〇一四，八，十一？
--  作者：Bin
--  发布时间：2014/8/11 17:17:00
--  

CUDate(Date)
将日期Date转换为大写中文格式
例如：CUDate(#12/31/2008#)
等于：贰零零捌年拾贰月叁拾壹日

CLDate(Date)
将日期Date转换为小写中文格式
例如：CLDate(#12/31/2008#)
等于：二○○八年十二月三十一日

CCDate(Date)
将日期Date转换为大写中文格式，符合支票格式
例如：CUDate(#2/10/2008#)
等于：贰零零捌年零贰月壹拾日


http://www.foxtable.com/help/topics/1415.htm
--  作者：syzsyk
--  发布时间：2014/8/11 17:55:00
--  
2014-08-11由e.value = CLDate(e.value)变为二○一四年八月十一日，如何转为二○一四？
--  作者：Bin
--  发布时间：2014/8/11 17:58:00
--  
http://www.foxtable.com/help/topics/1415.htm
--  作者：有点甜
--  发布时间：2014/8/11 18:10:00
--  
Dim d As Date = "2014-08-11"
Dim str() As String = CLDate(d).Replace("年", ",").Replace("月",",").Replace("日", "").Split(",")
msgbox(str(0))
msgbox(str(1))
msgbox(str(2))
--  作者：syzsyk
--  发布时间：2014/8/11 19:17:00
--  
年的DataFormat：
e.Value = CLDate(e.Value).Replace("年", "").Replace("月","").Replace("日", "")
结果是二○一四八十一，如何做可把八和十一去掉？
--  作者：有点甜
--  发布时间：2014/8/11 19:54:00
--  

Dim str() As String = CLDate(e.Value).Replace("年", ",").Replace("月",",").Replace("日", "").Split(",")

 

e.Value = str(0)
--  作者：syzsyk
--  发布时间：2014/8/12 0:02:00
--  
ok,谢谢甜老师。