vb日期值转换为中文字符串日期格式 代码

0上流少爷0 2023-03-17 05:05

• 

  ___丶自甴

  2023-03-17 05:57

  VB日期值转换为中文字符串日期格式可编写自定义函数来实现。

  Function 语句，声明 Function 过程的名称，参数以及构成其主体的代码。

  实现代码如下：

  OptionExplicitDimMyDateAsDateDimy,m,dDimiAsLongPublicFunctionCCDate(ByValMyDateAsDate)y=CStr(Year(MyDate)):m=Month(MyDate):d=Day(MyDate)Fori=1To4CCDate=CCDate&Mid("〇一二三四五六七*",Val(Mid(y,i,1))+1,1)NextCCDate=CCDate&"年"CCDate=CCDate&Trim(Mid("一二三四五六七***十　十一十二",m*2-1,2))&"月"CCDate=CCDate&Trim(Mid("十二十三十",(d10)*2+1,2))&Trim(Mid("一二三四五六七*",(dMod10)+1,1))&"日"EndFunctionPrivateSubCommand1_Click()MyDate=#8/31/2015#Debug.PrintCCDate(MyDate)EndSub

  上述代码参考： http://zhidao.baidu.com/question/435772887.html芝麻lnzzxzy的回复。

  Public Function CCDate$(ByVal MyDate As Date) y = CStr(Year(MyDate)): m = Month(MyDate): d = Day(MyDate) For i = 1 To 4 CCDate = CCDate & Mid("Ο一二三四五六七*", Val(Mid(y, i, 1)) + 1, 1) Next CCDate = CCDate & "年" CCDate = CCDate & Trim(Mid("一 二 三 四 五 六 七 八 九 十　十一十二", m * 2 - 1, 2)) & "月" CCDate = CCDate & Trim(Mid(" 十二十三十", (d \ 10) * 2 + 1, 2)) & Trim(Mid(" 一二三四五六七*", (d Mod 10) + 1, 1)) & "日"End Function'请注意　字符串中　看不到的空格　别少了

  参考资料：http://zhidao.baidu.com/question/435772887.html
  0 讨论(0)
  发布评论:

  提交评论

  ---

  •  加载中...