软盟收藏
 用户中心
 加盟指南
 网上订购
软件联盟 商业源码 名企管理 策划方案 募捐会馆 会员服务 源码下载 开发文档 SAP教程 房地产策划 商业图库
软件联盟现时:2011年3月25日 星期五 位于: 源码文档- 开发文档 → 开发技术(其它开发)
一个完美的中文大写日期转换函数
2008年8月1日  作者:网络  商业源码:策划管理,名企内参,咨询顾问  浏览选项:    本文已被浏览 2175 次
Function CNDate;(ByVal MyDate; As; Date;) As; String; '中文日期生成
  Dim; i; As; Long;, D;(2) As; String;, MyYear; As; String;
  MyYear; = Format;(MyDate, "yyyy")
  For; i; = 1; To; 4;
    D;(0) = D;(0) & Mid;("○一二三四五六七八九", CInt;(Mid(MyYear, i;, 1;)) + 1;, 1;)
  Next;
  D;(1) = "年" & MonthName;(Month(MyDate))
  D;(2) = Choose;(Day(MyDate) \ 10; + 1;, "", "十", "二十", "三十") & Mid;(" 一二三四五六七八九", Day;(MyDate) Mod; 10; + 1;, 1;) & "日"
  CNDate; = join;(D, "")
  CNDate; = Replace;(CNDate, " ", "")
End Function;

使用方法:
   如:需要在界面中的Text1控件中显示当前的中文大写日期,则代码为 Text1;=CNDate(date)
 发布人:lala
 [ → 我要发表文章 ]
上篇文章:海量数据库的查询优化及分页算法方案
下篇文章:SQL Server 2008企业视频讲座
→ 主题所属分类:  开发技术 → 其它开发 → 『关闭窗口』
 热门文章
 中国程序员不成熟的若干个特征 (5417)
 穿透防火墙的数据传输源码 (4994)
 Delphi中如何调用VC++创建的动态链接库? (4836)
 把.NET部署到没有安装Fram的机器上 (4618)
 使用Delphi和WebServices技术开发短信应用 (4610)
 ASP.NET添加客户端代码的几种方法 (4423)
 最短路径算法源码(VB源码教程) (4394)
 用DELPHI实现的黑客程序技巧集锦 (4387)
 提高ASP.NET性能的若干方法 (4372)
 利用随机数加密字串的算法(vb) (4262)
 最近更新
 数据挖掘领域十大经典算法初探 (1月20日)
 中国程序员不成熟的若干个特征 (11月24日)
 Android超iOS四个关键:游戏中心是重点 (9月10日)
 Google店大欺客:伪开源Android危机四伏 (2月3日)
 从各大软件公司笔试压轴题学习SQL语句 (12月31日)
 Oracle并行查询发挥多CPU的威力 (7月8日)
 SQL Server 2008企业视频讲座 (12月5日)
 一个完美的中文大写日期转换函数 (8月1日)
 海量数据库的查询优化及分页算法方案 (8月1日)
 用友ERP-NC精华实用SQL脚本之:快速复制公司的... (2月21日)
 文章搜索
搜索选项:            
  → 评论内容 (点击查看)
(没有相关评论)
  → 发表我的评论
您的姓名:  您的E-mail:

评论内容:
发表评论:  
关于我们咨询反馈合作媒体免费金币行业管理名企内参矢量图库素材模板客户名录快乐淘宝广告合作网站地图
本站总访问量: 19981970 人次 ┋ 围观高峰 948 人在线 ┋ 现时围观 41 人
商业源码:策划管理,名企内参,咨询顾问 [节能型] ┋联系邮件 服务QQ:308071592
软件创业联盟 ©2002-2018 版权所有 浙ICP备09028508号 电话:0571-8590-3599