ASP中格式化时间短日期补0变两位长日期的方法
来源:互联网 发布:毛巾推荐 知乎 编辑:程序博客网 时间:2024/04/29 23:23
因为短日期不足2位,所以在网页排版的时候,影响美观,下面两个函数可以解决这个问题。
2010-2-7短日期 变 2010-02-07长日期
Function FStime(times)
Dim years,months,days
if len(times)=0 then exit function
years=year(times)
months=right("0"&month(times),2)
days=right("0"&day(times),2)
times=years&"-"&months&"-"&days
FStime=times
End Function
2010-2-7 23:37:5短日期 变 2010-02-07 23:37:05长日期
Function FLtime(times)
Dim years,months,days,hours,minutes,seconds
if len(times)=0 then exit function
years=year(times):months=right("0"&month(times),2)
days=right("0"&day(times),2):hours=right("0"&hour(times),2)
minutes=right("0"&minute(times),2):seconds=right("0"&second(times),2)
FLtime=years&"-"&months&"-"&days&" "&hours&":"&minutes&":"&seconds
End Function
<%
Rem Pw_Sys 日期格式转换函数
function DateTimeFormat(DateTime,Format)
select case Format
case "1"
DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"&Right("0" & Day(DateTime),2)&"日"
case "2"
DateTimeFormat=""&month(DateTime)&"月"&Right("0" & Day(DateTime),2)&"日"
case "3"
DateTimeFormat=""&year(DateTime)&"-"&month(DateTime)&"-"&Right("0" & Day(DateTime),2)&""
case "4"
DateTimeFormat=""&year(DateTime)&"/"&month(DateTime)&"/"&Right("0" & Day(DateTime),2)&""
case "5"
DateTimeFormat=""&month(DateTime)&"/"&Right("0" & Day(DateTime),2)&""
case "6"
DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"&Right("0" & Day(DateTime),2)&"日<font color=red> "&FormatDateTime(DateTime,4)&"</font>"
case "7"
temp="星期日,星期一,星期二,星期三,星期四,星期五,星期六"
temp=split(temp,",")
DateTimeFormat=temp(WeekRight("0" & Day(DateTime),2)-1)
case "8"
DateTimeFormat=""&month(DateTime)&"-"&Right("0" & Day(DateTime),2)&""
case "9"
if len(hour(DateTime)) = 1 then
str="0"&hour(DateTime)
else
str=hour(DateTime)
end if
DateTimeFormat=DateTimeFormat(DateTime,1)&" "&str&":"&Minute(DateTime)
case "10"
DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"
case else
DateTimeFormat=DateTime
end select
end function
%>
程序代码(把yyyy-mm-dd格式的日期中的月份和日期转换成两位数字的方法)
dim today
today=Date '避免重复调用Date,所以赋值给一个变量
today=Year(today) & "-" & Right("0" & Month(today),2) & "-" & Right("0" & Day(today),2)
- ASP中格式化时间短日期补0变两位长日期的方法
- Mysql语句中格式化日期时间的方法
- 字符串格式化--补位--日期时间
- asp.net 格式化时间日期
- asp.net 格式化时间日期
- asp.net 格式化时间日期
- asp.net 格式化时间日期
- js格式化日期时间的工具方法
- JS时间格式化(短日期)
- asp.net中GridView日期时间列格式化
- mysql中时间日期格式化
- mysql中时间日期格式化
- js中格式化日期时间
- mysql中时间日期格式化
- 日期格式化的方法
- GridView格式化短日期
- VBScript中格式化输出日期的方法
- asp下格式化时间和日期的函数
- 第三章 dubbo的框架设计
- C++程序员必经之路——函数调用过程【转载】
- position:relative 详解
- MySQl存储过程翻页查询
- 删除了你是否能删除过去的回忆
- ASP中格式化时间短日期补0变两位长日期的方法
- protoc-gen-as3 的as3 序列化和反序列化例子
- hdu 1250 Hat's Fibonacci
- Java test
- 二级联动菜单,简单实现
- DataTable 改表数据
- CSS table 表格边框粗细控制详细代码
- poj2488
- 未处理的异常: 0xC0000005: 读取位置 0x00000000 时发生访问冲突