如何将日期的 rs('date') 转化成为 10-21 只要月和日 怎么转化？

[waterinmoon]

如何将日期的 rs('date') 转化成为 10-21 只要月和日 怎么转化？

[dh20156]

用split取-分割符，再组合。

[moodboy1982]

有两种方法。
一是用SQL函数读的时候，只读出月和日（不是很理想）
二是，你用right()函数取右边7位，不就是年和月了吗？如：right(rs("date"),7)

[zy51]

我的方法:
Function Format_date(str)
Dim y, m, d, h, mi, s
Format_date = ""
If IsDate(str) = False Then Exit Function
y=year(str)
m=right("0"&month(str),2)
d=right("0"&day(str),2)
Format_date = y & "-" & m & "-" & d
End Function

更多的日期格式转换,代码来自webedit:

Function Format_Time(s_Time, n_Flag)
Dim y, m, d, h, mi, s
Format_Time = ""
If IsDate(s_Time) = False Then Exit Function
y = cstr(year(s_Time))
m = cstr(month(s_Time))
If len(m) = 1 Then m = "0" & m
d = cstr(day(s_Time))
If len(d) = 1 Then d = "0" & d
h = cstr(hour(s_Time))
If len(h) = 1 Then h = "0" & h
mi = cstr(minute(s_Time))
If len(mi) = 1 Then mi = "0" & mi
s = cstr(second(s_Time))
If len(s) = 1 Then s = "0" & s
Select Case n_Flag
Case 1
' yyyy-mm-dd hh:mm:ss
Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
Case 2
' yyyy-mm-dd
Format_Time = y & "-" & m & "-" & d
Case 3
' hh:mm:ss
Format_Time = h & ":" & mi & ":" & s
Case 4
' yyyy年mm月dd日
Format_Time = y & "年" & m & "月" & d & "日"
Case 5
' yyyymmdd
Format_Time = y & m & d
End Select
End Function

[moodboy1982]

错了。应该是5位
如：right(rs("date"),5)

[moodboy1982]

如果你在取年和月。那就用left（）函数
left(rs("date"),7)

[wshlxvb]

数据字段已经是日期型了，怎么还用Left()函数？
我用的方法:
strmonth=month(rst("date")) '从数据字段中取月
strdata=day(rst("date")) '从数据字段中取日
应该没什么问题。

[nonamexz]

rs("data")是字符型了，可以用left来处理。

[beiouwolf]

有这么复杂吗。。。
就算是字符型的
NowDate = cdate(rs("data"))
NowDate = cstr(month(NowDate)) & "-" & cstr(day(NowDate))

[babo021]

呵呵，有时候想想，为什么取这么个简单的东西都要绕这个大一个弯

[hellojaby]

呵呵

[waterinmoon]

我要是vbscrip 的脚本 怎么写的？

[javaCoffee33]

自己写一个函数

[竹林听雨2005]

尽量不要用LEFT或RIGHT，这样判断并不是很准确，因为日期格式可能会不一样，比如2005-07-01和2005-7-1，这样来判断就明显不对了。

可取的方法有：
1、用SPLIT，但比较的麻烦。
2、zy51(Final) 的方法比较好，未经测试。

（如果象VB就好了，可直接用formatdatetime()来弄了）