我想把日期中的月和日显示时，都显示成两位的
我这里有一个现成的数据表，日期中的月和日都保存成了单数，
我想把日期中的月和日显示时，都显示成两位的，
如果是单数，前面加0，例如：2004-9-6，显示成2004-09-06
ksrq_y_date=<%=rs("ksrq_y_date")%>
这里面的rs("ksrq_y_date")为从数据表中取出来的值，我想把月和日显示为两位的。
问题点数：50、回复次数：17Top
1 楼cjol（我是谁）回复于 2005-01-17 08:59:25 得分 0
关注
Top
2 楼yjb136（菜鸟一只）回复于 2005-01-17 08:59:45 得分 5
month1=month("date")
if len(month1)<2 then
month2="0"+"month"
else
end if
response.write("&month2&")Top
3 楼fangq（jack）回复于 2005-01-17 09:03:54 得分 20
ksrq_y_date=split(<%=rs("ksrq_y_date")%>,-)
if len(ksrq_y_date(1))=1 then ksrq_y_date(1)="0"&ksrq_y_date(1)
if len(ksrq_y_date(2))=1 then ksrq_y_date(2)="0"&ksrq_y_date(2)
Top
4 楼fangq（jack）回复于 2005-01-17 09:04:46 得分 0
楼上的，他是从数据库取记录，并不是取系统时间！Top
5 楼yyq136（生活的理想，就是为了理想的生活）回复于 2005-01-17 09:11:18 得分 5
年:REPLACE(RIGHT(STR(YEAR(GETDATE ( ) )),2),' ','0')
月:REPLACE(STR(MONTH(GETDATE ( ) ),2),' ','0')
Top
6 楼yyq136（生活的理想，就是为了理想的生活）回复于 2005-01-17 09:12:46 得分 0
哦,没写参数,呵呵
年:REPLACE(RIGHT(STR(YEAR(ksrq_y_date)),2),' ','0')
月:REPLACE(STR(MONTH(ksrq_y_date),2),' ','0')Top
7 楼wwwdbs（涓涓溪流）回复于 2005-01-17 09:15:49 得分 10
days=split(rs("ksrq_y_date"),"-")
if len(days(1))<2 then days(1)="0"&days(1)
if len(days(2))>2 then days(2)="0"&days(2)
ksrq_y_date=cdate(days(0)&"-"&days(1)&"-"&days(2))
Top
8 楼hgllucky（知道我是谁吗？）回复于 2005-01-17 09:16:16 得分 0
to fangq(俺是干革命！！) ，我这样写怎么不行了，提示语法错误ksrq_y_date=split(request("ksrq_y_date"), -)
<input name="ksrq_y_date" type="text" id="ksrq_y_date"
value="<% ksrq_y_date=split(request("ksrq_y_date"),-)
if len(ksrq_y_date(1))=1 then ksrq_y_date(1)="0"&ksrq_y_date(1)
if len(ksrq_y_date(2))=1 then ksrq_y_date(2)="0"&ksrq_y_date(2)
response.write ksrq_y_date
%>Top
9 楼yjb136（菜鸟一只）回复于 2005-01-17 09:18:44 得分 0
直接定义时间的格式：formatTop
10 楼hgllucky（知道我是谁吗？）回复于 2005-01-17 09:22:52 得分 0
to wwwdbs(涓涓溪流)
days=split(request("ksrq_y_date"),"-")
if len(days(1))<2 then days(1)="0"&days(1)
if len(days(2))>2 then days(2)="0"&days(2)
ksrq_y_date=cdate(days(0)&"-"&days(1)&"-"&days(2))
response.write ksrq_y_date
我这样写了，还是显示原来的样式，并不是两位呀Top
11 楼AppleBBS（Dicky）回复于 2005-01-17 09:23:04 得分 3
当初存进去的时间格式是跟系统 控制面板里 区域选项--》时间--》时间格式有关的Top
12 楼zlj113（·米老鼠· 学习）回复于 2005-01-17 09:24:06 得分 3
可以在从数据库里取数据的时候就进行转换:
select 日期=convert(varchar(10),日期,121) from U_table
当然,数据库应为sqlTop
13 楼fantasywinter（幻想冬天）回复于 2005-01-17 09:24:39 得分 4
Function DateToStr(DateTime,ShowType)
Dim DateMonth,DateDay,DateHour,DateMinute
DateMonth=Month(DateTime)
DateDay=Day(DateTime)
DateHour=Hour(DateTime)
DateMinute=Minute(DateTime)
If Len(DateMonth)<2 Then DateMonth="0"&DateMonth
If Len(DateDay)<2 Then DateDay="0"&DateDay
If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
Select Case ShowType
Case "Y-m-d"
DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay
Case "Y-m-d H:I A"
Dim DateAMPM
If DateHour>12 Then
DateHour=DateHour-12
DateAMPM="PM"
Else
DateHour=DateHour
DateAMPM="AM"
End If
If Len(DateHour)<2 Then DateHour="0"&DateHour
DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&" "&DateAMPM
Case "Y-m-d H:I:S"
Dim DateSecond
DateSecond=Second(DateTime)
If Len(DateHour)<2 Then DateHour="0"&DateHour
If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&":"&DateSecond
Case "YmdHIS"
DateSecond=Second(DateTime)
If Len(DateHour)<2 Then DateHour="0"&DateHour
If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
DateToStr=Year(DateTime)&DateMonth&DateDay&DateHour&DateMinute&DateSecond
Case "ym"
DateToStr=Right(Year(DateTime),2)&DateMonth
Case "d"
DateToStr=DateDay
Case Else
If Len(DateHour)<2 Then DateHour="0"&DateHour
DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute
End Select
End Function
Top
14 楼fangq（jack）回复于 2005-01-17 09:25:29 得分 0
你这样！
ksrq_y_date=split(rs("ksrq_y_date"),-)
if len(ksrq_y_date(1))=1 then ksrq_y_date(1)="0"&ksrq_y_date(1)
if len(ksrq_y_date(2))=1 then ksrq_y_date(2)="0"&ksrq_y_date(2)
datim=ksrq_y_date(0)&ksrq_y_date(1)&ksrq_y_date(2)
%>
<input name="ksrq_y_date" type="text" id="ksrq_y_date"
value="<%=text%>">
你在试试看Top
15 楼fangq（jack）回复于 2005-01-17 09:27:24 得分 0
<input name="ksrq_y_date" type="text" id="ksrq_y_date"
value="<%=datime%>">Top
16 楼hgllucky（知道我是谁吗？）回复于 2005-01-17 09:31:42 得分 0
to fangq(俺是干革命！！)
split(rs("ksrq_y_date"),-)应该这样就好了split(rs("ksrq_y_date","-")Top
17 楼yyq136（生活的理想，就是为了理想的生活）回复于 2005-01-17 09:34:30 得分 0
这么麻烦!
还不如在填写时间的时候给规定一个时间的填写格式,不就行了吗Top
