下面的代码可以将任意日期(1000-01-01 0:0:0------>9999-12-31 23:59:59)转换为汉字显示
Function datename(ByVal mydate As String) As String
Dim i As Long, mystr(6) As String, temp As String
Const all As String = "○一二三四五六七八九十"
If Not IsDate(mydate) Then '错误处理
MsgBox "非正确日期格式!", vbInformation, "警告"
Exit Function
End If
mydate = CDate(mydate) '日期格式转换
For i = 0 To 6
mystr(i) = Choose(i + 1, Year(mydate), MonthName(Month(mydate)), Day(mydate), Hour(mydate), Minute(mydate), Second(mydate), WeekdayName(Weekday(mydate, vbSunday)))
Next
For i = 1 To 4 '生成年
temp = temp & Mid(all, CInt(Mid(mystr(0), i, 1)) + 1, 1) ' trans year to chinese character
Next
mystr(0) = temp & "年"
temp = Choose(Val(mystr(2)) \ 10 + 1, "", "十", "二十", "三十") & Trim(Mid(all, Val(mystr(2)) Mod 10 + 1, 1)) & "日" '生成日
mystr(2) = Replace(temp, "十○日", "十日") '避免出现 “三十○日”
temp = Choose(Val(mystr(3)) \ 10 + 1, "", "十", "二十") & Trim(Mid(all, Val(mystr(3)) Mod 10 + 1, 1)) & "时" '生成时
mystr(3) = Replace(temp, "十○时", "十时")
temp = Choose(Val(mystr(4)) \ 10 + 1, "", "十", "二十", "三十", "四十", "五十") & Trim(Mid(all, Val(mystr(4)) Mod 10 + 1, 1)) & "分" '生成分
mystr(4) = Replace(temp, "十○分", "十分")
temp = Choose(Val(mystr(5)) \ 10 + 1, "", "十", "二十", "三十", "四十", "五十") & Trim(Mid(all, Val(mystr(5)) Mod 10 + 1, 1)) & "秒" '生成秒
mystr(5) = Replace(temp, "十○秒", "十秒")
datename = Join(mystr, "")
End Function
Private Sub Command1_Click()
MsgBox datename(Now)
End Sub
分享到:
相关推荐
示例中列出了三种实现在SQL中将日期转换为中文大写的方法,两种通过函数实现,一种通过存储过程实现。
将日期转换为中文字符串;将时间新增或减少对应月份;判断两个日期是否是同一个月;返回某月第一天/最后一天;按照给定格式返回某月第一天;智能格式化数据;获取两个时间之间的间隔;在某个时间基础上,往前推或者...
比如日期格式转换成时间戳、得到格式化后的系统当前日期、转化日期格式"MM/dd/YY、MM.dd.YY、MM-dd-YY、MM/dd/YY",并输出为正常的格式yyyy-MM-dd、将字符串数组使用指定的分隔符合并成一个字符串、获取日期字符串中...
他有一个需求,就是对于日期的录入都是中文形式的,需要转换为数字形式的。由于python库中没有函数直接进行转换,因此我写了本篇文章。 2、测试源数据如下 3、代码如下 df = pd.read_excel(r"C:\Users\黄伟\...
日期转换;英文转阿斯玛值;英文字母大写转小写;在文本中查找指定的字符出现的次数;字符串+字符串=新的字符串;字符串的加密解密;字符串颠倒输出;字符串解码后长度;字符串转换;字符串转字节数组;字符串组合与...
将毫秒转化为日期 文本的倒序输出 判断一个数字是奇数还是偶数 用Hibernate 实现分页 35 选7 彩票程序 获取GMT8 时间 中文乱码转换 Big5 字与Unicode 的互换 取得服务器当前的各种具体时间 用半角的特殊符号代替全角...
一款简单实用的jQuery时间戳转换、倒计时、数字转汉字代码。
jQuery时间戳转换倒计时代码是一款可以数字时间转换,倒计时,数字转汉字等网站中常用到的代码。
有时候需要将当面的日期,转换成中文,这里是js的实现代码,需要的朋友可以参考下。
javascript中,new Date()得到的是一个国际化时间格式的时间值这在我们使用中文的时候,很不方便,也很难看所以就需要对javascript中的日期时间进行格式化.
不检测 非特殊字符 仅单词字符 仅单词字符空格 仅26个字母 仅中文字符 仅允许整数 仅允许小数 仅日期/时间 仅日期+时间 仅日期 仅时间 仅允许邮箱 仅允许网址 仅允许IP 仅身份证号 仅国内电话 仅国内手机 ...
这篇文章主要介绍的是利用ASP.NET将日期格式转为大写汉字,比如: “2013年12月3日” 转换成 “贰零壹叁年拾贰月叁日”,下面一起来看看怎么实现。 一样话不多说,直接上代码 //年份转换为大写汉字 public static ...
核心:解决了日期格式转化和导出XML中文乱码问题 介绍:有时候,我们需要把javabean的内容保存到文件,或者通过网络传递。这时候,把javabean转化为xml是一个常用的方式。但java本身提供的操作xml的方式有些麻烦,而...
不检测 非特殊字符 仅单词字符 仅单词字符空格 仅26个字母 仅中文字符 仅允许整数 仅允许小数 仅日期/时间 仅日期+时间 仅日期 仅时间 仅允许邮箱 仅允许网址 仅允许IP 仅身份证号 仅国内电话 仅国内手机 ...
1.5将代码放在一起 .......................................................................................... 64 第二章 数据模型 ...........................................................................
此工具是Excel97/2000中文版VBA程序。极力推荐给编程工作者。 它可以批量指定文件,并记录到当前工作表,可一次性修改这些文件的日期。...您也可以根据需要,转换为Excel97/2000加载宏程序。 -石化造价网-
不检测 非特殊字符 仅单词字符 仅单词字符空格 仅26个字母 仅中文字符 仅允许整数 仅允许小数 仅日期/时间 仅日期+时间 仅日期 仅时间 仅允许邮箱 仅允许网址 仅允许IP 仅身份证号 仅国内电话 仅国内手机 ...
3、金额阿拉伯数字转换为中文的自定义函数 4 4、日期格式校验与转化 6 5、PL/SQL中提交并发请求相关 8 6、查找运行请求时间,参数等(可以是某用户的,某个报表) 10 7、查找在标准请求组里提交的报表所在的职责 10 ...
* 从身份证号中得到生日和性别,返回的是一个json对象 * 验证身份证号码的正确性 * 判断一个字符串是否是有效的日期型字符串 * 将两位数的年份转变成4位数的年份 * 判断YYYYMMDD格式或者YYYY...* 将日期转换成中文日期
生成和验证token,生成ID,特殊字符,判断是否中文,获取当前时间,生成随机数,判断手机是否合法,生成带日期单号,将字符串转为浮点数,生成指定的到期时间或日期,华为短信验证码接口,数字金额转换成中文大写...