asp中怎么把YYYY-M-D转换成YYYY-MM-DD 用的Access？
我以前写的一个函数，里面有很多格式：
<%
'**************************************************
'函数名：GetFormatDate
'作 者：李茹星
'作 用：日期格式化
'**************************************************
Public Function GetFormatDate(DateAndTime, para)
On Error Resume Next
Dim y, m, d, h, mi, s, strDateTime
GetFormatDate = DateAndTime
If Not IsNumeric(para) Then Exit Function
If Not IsDate(DateAndTime) Then Exit Function
y = CStr(Year(DateAndTime))
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 para
Case "1"
'显示格式：09年07月06日 13:44
strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
Case "2"
'显示格式：2009-07-06
strDateTime = y & "-" & m & "-" & d
Case "3"
'显示格式：2009/07/06
strDateTime = y & "/" & m & "/" & d
Case "4"
'显示格式：2009年07月06日
strDateTime = y & "年" & m & "月" & d & "日"
Case "5"
'显示格式：07-06 13:45
strDateTime = m & "-" & d & " " & h & ":" & mi
Case "6"
'显示格式：07/06
strDateTime = m & "/" & d
Case "7"
'显示格式：07月06日
strDateTime = m & "月" & d & "日"
Case "8"
'显示格式：2009年07月
strDateTime = y & "年" & m & "月"
Case "9"
'显示格式：2009-07
strDateTime = y & "-" & m
Case "10"
'显示格式：2009/07
strDateTime = y & "/" & m
Case "11"
'显示格式：09年07月06日 13:45
strDateTime = right(y,2) & "年" &m & "月" & d & "日 " & h & ":" & mi
Case "12"
'显示格式：09-07-06
strDateTime = right(y,2) & "-" &m & "-" & d
Case "13"
'显示格式：07-06
strDateTime = m & "-" & d
Case "14"
'显示格式：13:45
strDateTime = h & ":" & mi
Case Else
strDateTime = DateAndTime
End Select
GetFormatDate = strDateTime
End Function
%>
把上面函数包含在你的文件当中，调用如下：GetFormatDate(rs("dateandtime"),2)
里面还有很多格式的日期显示哦，希望对你有帮助！^_^
delphi中如何给FormatdateTime赋初值,让后显示在label。caption中？
var Year, Month, Day: Word; days: array[1..7] of string ;begin days[1] := '日 '; days[2] := '一 '; days[3] := '二 '; days[4] := '三 '; days[5] := '四 '; days[6] := '五 '; days[7] := '六 '; DecodeDate(Now, Year, Month, Day); label1.Caption:= IntToStr(Year) + '年' + IntToStr(Month)+ '月' + IntToStr(Day) + '日' + ' 星期 ' + days[DayOfWeek(now)];end;
asp时间语句
1.显示本月第一天
SELECT DATEADD(mm,DATEDIFF(mm,0,getdate()),0)
select convert(datetime,convert(varchar(8),getdate(),120)+'01',120)
2.显示本月最后一天
select dateadd(day,-1,convert(datetime,convert(varchar(8),dateadd(month,1,getdate()),120)+'01',120))
SELECT dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,getdate())+1,0))
3.上个月的最后一天
SELECT dateadd(ms,-3,DATEADD(mm,DATEDIFF(mm,0,getdate()),0))
4.本月的第一个星期一
select DATEADD(wk,DATEDIFF(wk,0, dateadd(dd,6-datepart(day,getdate()),getdate())),0)
5.本年的第一天
SELECT DATEADD(yy,DATEDIFF(yy,0,getdate()),0)
6.本年的最后一天
SELECT dateadd(ms,-3,DATEADD(yy,DATEDIFF(yy,0,getdate())+1,0))
7.去年的最后一天
SELECT dateadd(ms,-3,DATEADD(yy,DATEDIFF(yy,0,getdate()),0))
8.本季度的第一天
SELECT DATEADD(qq,DATEDIFF(qq,0,getdate()),0)
9.本周的星期一
SELECT DATEADD(wk,DATEDIFF(wk,0,getdate()),0)
10.查询本月的记录
select * from tableName where DATEPART(mm, theDate) = DATEPART(mm, GETDATE()) and DATEPART(yy, theDate) = DATEPART(yy, GETDATE())
11.查询本周的记录
select * from tableName where DATEPART(wk, theDate) = DATEPART(wk, GETDATE()) and DATEPART(yy, theDate) = DATEPART(yy, GETDATE())
12.查询本季的记录
select * from tableName where DATEPART(qq, theDate) = DATEPART(qq, GETDATE()) and DATEPART(yy, theDate) = DATEPART(yy, GETDATE())
其中:GETDATE()是获得系统时间的函数。
13.获取当月总天数:
select DATEDIFF(dd,getdate(),DATEADD(mm, 1, getdate()))
select datediff(day,
dateadd(mm, datediff(mm,'',getdate()), ''),
dateadd(mm, datediff(mm,'',getdate()), '1900-02-01'))
14.获取当前为星期几
DATENAME(weekday, getdate())
15. 当前系统日期、时间
select getdate()
16. dateadd 在向指定日期加上一段时间的基础上，返回新的 datetime 值
例如：向日期加上2天
select dateadd(day,2,'2004-10-15') --返回：2004-10-17 00:00:00.000
17. datediff 返回跨两个指定日期的日期和时间边界数。
select datediff(day,'2004-09-01','2004-09-18') --返回：17
18. datepart 返回代表指定日期的指定日期部分的整数。
SELECT DATEPART(month, '2004-10-15') --返回 10
年为year,月为month，日为day,小时hour,分为minute，秒为second
19. datename 返回代表指定日期的指定日期部分的字符串
SELECT datename(weekday, '2004-10-15') --返回：星期五
ASP如何格式化日期的显示模式?
ASP使用的是VBA，其中的使用的函数是VB中的子集，不能使用format函数进行快速格式化日期的显示模式。如果想要的格式是YYYY-MM-DD, 获取今天的日期可以用以下代码实现：
fulldate=cstr(year(date))
fulldate=fulldate & "-" & right("0" & cstr(month(date)),2)
fulldate=fulldate & "-" right("0" & cstr(day(date)),2)
fulldate就是所需要的格式字串。
ASP中，如何在完整日期时间中取得年月日？
asp取得完整时间的年月日 可以使用FormatDateTime具体示例 比如现在有一个时间为 now()可以写成这样就是当前的年月日了。如果是数据库里的时间 比如数据库时间字段为date 可以写成这里延伸一下：0 根据系统设置显示日期或时间1 以长日期格式显示日期2 以短日期格式显示日期3 以长时间格式显示时间4 以短时间格式显示时间
