Question

我想用VB把access中的日期如：2011-12-6（不是当天，也不是新闻录入时间）输出为12月日，但是不知道怎么写

希望哪位好心人给我写一下，谢谢

Answer 1

你的表述有点问题，你是在Access中修改呢，还是借助ASP或者其他语言通过执行网页函数来修改？

追问

在asp网页中用VB怎么写

追答

送你个ASP自定义函数，可以输出14种不同的格式。
Function FormatDate(DateAndTime, Format)
On Error Resume Next
Dim yy, y, m, d, h, mi, s, strDateTime
FormatDate = DateAndTime
If Not IsNumeric(Format) Then Exit Function
If Not IsDate(DateAndTime) Then Exit Function
yy = CStr(Year(DateAndTime))
y = Mid(CStr(Year(DateAndTime)), 3)
m = CStr(Month(DateAndTime))
If Len(m) = 1 Then m = "0" & m
d = CStr(Day(DateAndTime))
If Len(d) = 1 Then d = "0" & d
h = CStr(Hour(DateAndTime))
If Len(h) = 1 Then h = "0" & h
mi = CStr(Minute(DateAndTime))
If Len(mi) = 1 Then mi = "0" & mi
s = CStr(Second(DateAndTime))
If Len(s) = 1 Then s = "0" & s
Select Case Format
Case "1"
strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
Case "2"
strDateTime = yy & m & d & h & mi & s
Case "3"
strDateTime = yy & m & d & h & mi
Case "4"
strDateTime = yy & "年" & m & "月" & d & "日"
Case "5"
strDateTime = m & "-" & d
Case "6"
strDateTime = m & "/" & d
Case "7"
strDateTime = m & "月" & d & "日"
Case "8"
strDateTime = y & "年" & m & "月"
Case "9"
strDateTime = y & "-" & m
Case "10"
strDateTime = y & "/" & m
Case "11"
strDateTime = y & "-" & m & "-" & d
Case "12"
strDateTime = y & "/" & m & "/" & d
Case "13"
strDateTime = yy & "." & m & "." & d
Case "14"
strDateTime = yy & "-" & m & "-" & d
Case Else
strDateTime = DateAndTime
End Select
FormatDate = strDateTime
End Function

追问

你这个函数的DateAndTime是系统自动添加的时间，而我的时间是自己录入新闻时手动写的
，字段名字叫T_typebisaishijian，都是2011-12-1、2011-12-2、2011-12-6之类的，怎么使用这个函数呢，我使用Month(T_typebisaishijian)也取不出月份

追答

哦，你是想读取时间啊，呵呵。很简单啊。

追问

我这么写的，没有任何显示

追答

你写在哪里了？rs("T_typebisaishijian")是你读取数据库里的值，这之前得打开数据库，执行sql语句，这不是凭空出现的。你把你读取数据库这段代码贴出来。

追问

前面这个是打开数据库

追答

你这写法还真够另类的。
这样吧，你先把你这段代码换成这样

执行一下测试一下
对了，把conn替换成你链接数据库的变量。

追问

数据错误！未读取到……

追答

把conn替换成你链接数据库的变量。如果替换了没读取到，那说明你这个sql语句有错误，读取不到数据库里的数据。

追问

这个是我链接数据库的变量啊

追答

算了，看来跟你说不明白，等晚上回去你发个远程协助我帮你看一下吧。

追问

你有qq吗
我加你qq，我是109720816，晚上我要坐火车出门

追答

汗……坐火车？出差啊？