请问如何把如“2004-11-23”转化成2004年11月23日的函数

nbcandy 2004-11-23 12:48:37
同上
...全文
124 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
cailover 2004-11-23
formatdatetime(2004-11-23,1)
回复
heyixiang 2004-11-23
formatdatetime("2004-11-23",1)


或者

year("2004-11-23")&"年"&month("2004-11-23")&"月"&day("2004-11-23")&"日"
回复
weiqunchen 2004-11-23
定义一个通用函数,实现你所有的格式.调用:date_get(now(),4)

function date_get(Str1,this_type)
this_type=strtonum(this_type)
if not (isnull(str1)) and trim(str1)<>"" then
if len(year(str1))<=2 then
yearT="20" & year(str1)
else
yearT=year(str1)
end if
if len(month(str1))<=1 then
monthT="0" & month(str1)
else
monthT=month(str1)
end if
if len(day(str1))<=1 then
dayT="0" & day(str1)
else
dayT=day(str1)
end if
if len(hour(str1))<=1 then
hourT="0" & hour(str1)
else
hourT=hour(str1)
end if
if len(minute(str1))<=1 then
minuteT="0" & minute(str1)
else
minuteT=minute(str1)
end if
if this_type=1 then
if datediff("d",str1,now())=0 then
date_get="今日 " & hourT & ":" & minuteT
else
date_get=yearT & "-" & monthT & "-" & dayT
end if
elseif this_type=2 then
date_get=monthT & "-" & dayT
elseif this_type=3 then
date_get=yearT & "-" & monthT & "-" & dayT

elseif this_type=4 then
date_get=yearT & "年" & monthT & "月" & dayT & "日"
else
date_get=yearT & "-" & monthT & "-" & dayT & " " & hourT & ":" & minuteT
end if
end if
end function
回复
xx123731 2004-11-23
mydate=formatdatetime(mydate,1)
回复
flying310 2004-11-23
自己写,分别取年月日后面加汉字然后连成字符串输出。
回复
angelyujun 2004-11-23
mydate=formatdatetime(mydate,1)
回复
newskyline 2004-11-23
dim FixedDate
FixedDate = FormatDateTime("2004-11-23",vbLongDate)
回复
wangshidu 2004-11-23
<script language="JavaScript">
<!---
today=new Date();

document.write(today.getYear(),"年",today.getMonth()+1,"月",today.getDate(),"日");

//-->
</script>
回复
是是非非 2004-11-23
FormatDateTime 函数 语言参考
版本 2


请参阅


--------------------------------------------------------------------------------

描述
返回表达式,此表达式已被格式化为日期或时间。
语法
FormatDateTime(Date[, NamedFormat])
FormatDateTime 函数的语法有以下参数:

参数 描述
Date 必选项。要被格式化的日期表达式。
NamedFormat 可选项。指示所使用的日期/时间格式的数值,如果省略,则使用 vbGeneralDate。


设置
NamedFormat 参数可以有以下值:
常数 值 描述
vbGeneralDate 0 显示日期和/或时间。如果有日期部分,则将该部分显示为短日期格式。如果有时间部分,则将该部分显示为长时间格式。如果都存在,则显示所有部分。
vbLongDate 1 使用计算机区域设置中指定的长日期格式显示日期。
vbShortDate 2 使用计算机区域设置中指定的短日期格式显示日期。
vbLongTime 3 使用计算机区域设置中指定的时间格式显示时间。
vbShortTime 4 使用 24 小时格式 (hh:mm) 显示时间。



说明
下面例子利用 FormatDateTime 函数把表达式格式化为长日期型并且把它赋给 MyDateTime:
Function GetCurrentDate
'FormatDateTime 把日期型格式化为长日期型。
GetCurrentDate = FormatDateTime(Date, 1)
End Function
回复
是是非非 2004-11-23
CDate 函数 语言参考
版本 1


请参阅


--------------------------------------------------------------------------------

描述
返回表达式,此表达式已被转换为 Date 子类型的 Variant。
语法
CDate(date)
date 参数是任意有效的日期表达式。

说明
IsDate 函数用于判断 date 是否可以被转换为日期或时间。CDate 识别日期文字和时间文字,以及一些在可接受的日期范围内的数字。在将数字转换为日期时,数字的整数部分被转换为日期,分数部分被转换为从午夜开始计算的时间。
CDate 根据系统的区域设置识别日期格式。如果数据的格式不能被日期设置识别,则不能判断年、月、日的正确顺序。另外,如果长日期格式包含表示星期几的字符串,则不能被识别。

下面的示例使用 CDate 函数将字符串转换成日期类型。一般不推荐使用硬件译码日期和时间作为字符串(下面的例子已体现)。而使用时间和日期文字 (如 #10/19/1962#, #4:45:23 PM#)。

MyDate = "October 19, 1962" ' 定义日期。
MyShortDate = CDate(MyDate) ' 转换为日期数据类型。
MyTime = "4:35:47 PM" ' 定义时间。
MyShortTime = CDate(MyTime) ' 转换为日期数据类型。

回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-23 12:48
社区公告
暂无公告