下面的代码可以将任意日期(1000-01-01------>9999-12-31)转换为汉字显示:
Private Sub Command1_Click()
MsgBox datename(Date)
End Sub
Function datename(ByVal mydate As Date) As String
Dim i As Long, d(3) 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)' trans year to chinese character
Next
d(1) = "年" & MonthName(Month(mydate)) 'add month name in chinese as “十月”
d(2) = Choose(Day(mydate) \ 10 + 1, "", "十", "二十", "三十") & Mid(" 一二三四五六七八九", Day(mydate) Mod 10 + 1, 1) & "日"
d(3) = "," & WeekdayName(Weekday(mydate))'add weekday name in chinese as “星期三”
datename = Join(d, "") ' combine year,month and day,weekday
datename = Replace(datename, " ", "") ' avoid space in result
End Function
分享到:
相关推荐
将数字日期转换成中文日期的工具类。eg:2014-07-15会转换成二零一四年七月十五日。
将java的日期转换成中文的日期,可以直接使用的源文件。
实现中文日期转换为数字日期,例如二O一四年九月五日转换为2015年9月5日的JS实现。
示例中列出了三种实现在SQL中将日期转换为中文大写的方法,两种通过函数实现,一种通过存储过程实现。
js插件,实现中文日期的转换,日期转换为中文日期,属相等诸多功能。
利用Excel数组公式将中文大写日期转换成日期序列.rar,本例所示的表格中,假设B列区域为中文格式的日期文本,利用介绍的公式将它们转化为真正的日期值。
excel中文日期与英文日期的转换.docx
他有一个需求,就是对于日期的录入都是中文形式的,需要转换为数字形式的。由于python库中没有函数直接进行转换,因此我写了本篇文章。 2、测试源数据如下 3、代码如下 df = pd.read_excel(r"C:\Users\黄伟\...
将日期转换为中文字符串;将时间新增或减少对应月份;判断两个日期是否是同一个月;返回某月第一天/最后一天;按照给定格式返回某月第一天;智能格式化数据;获取两个时间之间的间隔;在某个时间基础上,往前推或者...
C#数字日期装换为中文日期,源码1037
某个作业,使用JavaScript将英文格式日期转为中文
周末在家,写了个小程序,用于将阿拉伯数字转换化大写中文。程序没经过任何优化,出没经过详细的测试,挂到网上,方便将来有需要的时候直接拿来用。 #!/usr/bin/python #-*- encoding: utf-8 -*- import types ...
mysql 函数,可以将数字转换为中文大写形式。大写数字是中国特有的数字书写方式,利用与数字同音的汉字取代数字,以防止数目被涂改。 据考证,大写数字最早是由武则天发明,后经朱元璋改进完善。
日期操作类 Long转日期 字符串毫秒转日期 格式化日期转换方法,年 月 日 时 分 秒 把格式化的日期补全 把格式化的日期转化为毫秒 获取当天凌晨,夜间整点时间毫秒 校验日期是否合法 得到n天之后的日期 得到n天之后是...
这个函数是用DELPHI编写的,其它语言的可以参照使用。
SpringBoot中自定义消息转换器示例源码
5 农历日期的中文字符串 6 返回某年的第n个节气为第几日 7 获取阳历某个月份有多少天 8 获取指定日期是阳历年中的第几天 9 计算指定日期是否属于24节气 10 阳历日期转农历日期 11 日期转化周几
比如日期格式转换成时间戳、得到格式化后的系统当前日期、转化日期格式"MM/dd/YY、MM.dd.YY、MM-dd-YY、MM/dd/YY",并输出为正常的格式yyyy-MM-dd、将字符串数组使用指定的分隔符合并成一个字符串、获取日期字符串中...
超爽的TXT转换工具 - Atrise.ToTXT.v1.2.2 系统之家汉化特别版 Atrise ToTXT 文档转换...中文化日期:2010.4.1 主文件(toexe.exe) * 注:此特别版汉化基于官方英文原版制作; 软件已进行特别处理,无任何功能限制;