日期转化汉字最短版

原创 2004年10月03日 15:39:00
:-),9行代码,日期转化汉字最短版,好象不能再短了
<SCRIPT LANGUAGE=vbs>
Function D(x)
 if int(split(x,"-")(2)/10)=0 then D=D & F(split(x,"-")(2)) else _
 if split(x,"-")(2) mod 10 =0 then D=D & F(int(split(x,"-")(2)/10)) & "十" else _
 D=D & F(int(split(x,"-")(2)/10)) & "十" & F(split(x,"-")(2) mod 10) 
 D=F(split(x,"-")(0)) & "年" & MonthName(split(x,"-")(1),True) & replace(D,"一十","十") & "日"
end Function
Function F(x)
 for i=1 to len(x) 
  if mid(x,i,1)="0" then F=F & "零" else F=F & left(MonthName(mid(x,i,1),True),1)
 next
end Function
msgbox D(date)
</SCRIPT>

数字日期转化汉字日期

/*  功能:YYYY-MM-DD 数字日期转化为汉字  例:1984-3-7 -> 一九八四年三月七日  调用:baodate2chinese("1984-3-7")*/var chinese = ...
  • muniu
  • muniu
  • 2005年11月14日 13:42
  • 568

JAVA将输入的日期转换为中文日期

JAVA将输入的日期转换为中文日期(例如: 2007-10-05 --> 二○○七年十月五日)  package com.business.practitioner; import java.tex...
  • nandayangliu
  • nandayangliu
  • 2010年09月13日 08:40
  • 2832

把数字日期里的"月份"单独拿出来转换成对应的汉字月份

  • u014796999
  • u014796999
  • 2016年03月08日 21:23
  • 823

Java将中文日期转换为日期

public static void main(String[] args) throws IOException { testConvertZwrq(); } pr...
  • youthon
  • youthon
  • 2014年04月18日 14:41
  • 4745

数字日期转化为汉字日期格式

/*  功能:YYYY-MM-DD 数字日期转化为汉字  例:1984-3-7 -> 一九八四年三月七日  调用:baodate2chinese("1984-3-7")*/var chinese = ...
  • zhangronghai
  • zhangronghai
  • 2008年01月16日 18:09
  • 242

extjs日期的转换

js页面 /**  * 得到特定格式的日期形式  * @param {Object} d  */ function getCurrentDate(dd) {     if (dd == null ||...
  • wshrpn
  • wshrpn
  • 2017年08月23日 18:45
  • 120

计算日期到天数转换

import java.util.Scanner; public class CountDays { public static void main(String[] args) { Sc...
  • liaction
  • liaction
  • 2015年08月19日 17:34
  • 887

数字日期转化为汉字日期格式...

数字日期转化为汉字日期格式.../*  功能:YYYY-MM-DD 数字日期转化为汉字  例:1984-3-7 -> 一九八四年三月七日  调用:baodate2chinese("1984-3-7")...
  • alex197963
  • alex197963
  • 2007年05月06日 00:17
  • 598

日期转化

1.在js中将日期格式  转化为   2014-04-09T13
  • sikaiyuan2008
  • sikaiyuan2008
  • 2014年06月13日 15:35
  • 299

完整的将日期时间转换为汉字的代码

下面的代码可以将任意日期(1000-01-01 0:0:0------>9999-12-31 23:59:59)转换为汉字显示 Function datename(ByVal mydate As St...
  • northwolves
  • northwolves
  • 2004年07月21日 14:12
  • 2577
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:日期转化汉字最短版
举报原因:
原因补充:

(最多只允许输入30个字)