用 SQL挑战传统方式--用数据透视表做的日历

Scarlett_88 · 发表于 2009-6-6 05:01

今天看到yanjie 版主的 “[分享]用数据透视表做的日历(加入excel2007做的自动翻页)” 很火
http://club.excelhome.net/thread-262469-1-1.html

我用SQL用一列（字段名为DATE）数据源来达到同样效果。
其实yanjie版版的数据源说白了就一列，其他都是派生的，悄悄的告诉你，我都没找到他的数据源

SQL语句贴出来：
select year(DATE) as 年,month(DATE) as 月份,weekday(DATE) as 星期,day(DATE) as 天,int((DATE-cdate(YEAR(DATE)&",1,1")+1) / 7) as num,year(DATE) & '年-' & IIF((DATE-cdate(YEAR(DATE)&",1,1")+1) / 7-num>0,1,0)+num & '周' as 周数 from [Sheet1$]

透视表日历.jpg

工作表中左边是传统方式的结果，右边是用SQL做出来的结果

[ 本帖最后由 Scarlett_88 于 2009-6-6 05:22 编辑 ]

monvzhilei · 发表于 2009-6-6 06:44

真好。实在佩服。

dragonhunter · 发表于 2009-6-6 07:06

牛人~~~~崇拜下~~~~

小蚁雄兵 · 发表于 2009-6-6 08:02

原帖由 Scarlett_88 于 2009-6-6 05:01 发表
今天看到yanjie 版主的 “[分享]用数据透视表做的日历(加入excel2007做的自动翻页)” 很火
http://club.excelhome.net/thread-262469-1-1.html

我用SQL用一列（字段名为DATE）数据源来达到同样效果。
其实yanj ...

周数用DATEPART('WW',DATE) 代替

Scarlett_88 · 发表于 2009-6-6 08:18

原帖由 小蚁雄兵 于 2009-6-6 08:02 发表

周数用DATEPART('WW',DATE) 代替

今天找到这个函数，还没试，用这个函数就要改一下SQL语句：

select year(DATE) as 年,month(DATE) as 月份,weekday(DATE) as 星期,day(DATE) as 天,year(DATE) & '年-' & DATEPART('WW',DATE-1) & '周' as 周数 from [Sheet1$]

开心萝卜惠州 · 发表于 2009-6-6 08:27

Scarlett_88 是高手，一出就是精品，建议加分

Scarlett_88 · 发表于 2009-6-6 08:27

日期函数

VBA 函数                            Transact-SQL
                                    标量函数
------------------------------------------------
Date(x)                            CONVERT(DATETIME,CONVERT(varchar,GETDATE(x)))
Dateadd("<Access datepart>",x,y)    DATEADD(<SQL Server datepart>, x, y)
Datediff("<Access datepart>",x,y)    DATEDIFF(<SQL Server datepart>, x, y)
Datepart("<Access datepart>", x)    DATEPART(<SQL Server datepart>, x)
Day(x)                               DATEPART(dd,x)
Hour(x)                            DATEPART(hh,x)
Minute(x)                            DATEPART(mi,x)
Month(x)                            DATEPART(mm,x)
Now(x)                               GETDATE(x)
Second(x)                            DATEPART(ss,x)
Weekday(x)                         DATEPART(dw,x)
Year(x)                            DATEPART(yy,x)

Scarlett_88 · 发表于 2009-6-6 08:30

字符串函数

VBA 函数    Transact-SQL
            标量函数
------------------------------------------------
Asc(x)       ASCII(x)
Chr$(x)       CHAR(x)
Lcase$(x)    LCASE(x)
            LOWER(x)
Len(x)       DATALENGTH(x)
Ltrim$( x)    LTRIM(x)
Mid$(x,y,z) SUBSTRING(x,y,z)
Right$(x,y) RIGHT(x,y)
Rtrim$(x)    RTRIM(x)
Space$(x)    SPACE(x)
Str$(x)       STR(x)
Ucase$( x)    UCASE(x)
            UPPER(x)

转换函数

VBA 函数    Transact-SQL
            标量函数
------------------------------------------------
Ccur(x)       CONVERT(money,x)
Cdbl(x)       CONVERT(float,x)
Cint(x)       CONVERT(smallint,x)
Clng(x)       CONVERT(int,x)
Csng(x)       CONVERT(real,x)
Cstr(x)       CONVERT(varchar,x)
Cvdate(x)    CONVERT(datetime,x)

小蚁雄兵 · 发表于 2009-6-6 08:31

原帖由 Scarlett_88 于 2009-6-6 08:18 发表

今天找到这个函数，还没试，用这个函数就要改一下SQL语句：

select year(DATE) as 年,month(DATE) as 月份,weekday(DATE) as 星期,day(DATE) as 天,year(DATE) & '年-' & DATEPART('WW',DATE-1) & '周' as 周 ...

不明白，为何DATE要减1？

Scarlett_88 · 发表于 2009-6-6 08:37

返回一个包含已知日期的指定时间部分的 Variant (Integer)。

语法

DatePart(interval, date[,firstdayofweek[, firstweekofyear]])

DatePart 函数语法中有下列命名参数：

部分描述
interval 必要。字符串表达式，是要返回的时间间隔。
date 必要。要计算的 Variant (Date) 值。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
firstweekofyear 可选。指定一年第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。

设置

interval 参数的设定值如下：

设置描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒

firstdayofweek 参数的设定值如下：

常数值描述
vbUseSystem 0 使用 NLS API 设置。
vbSunday 1 星期日（缺省值）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六

firstweekofyear 参数的设定值如下：

常数值描述
vbUseSystem 0 使用 NLS API 设置。
vbFirstJan1 1 从包含 1 月 1 日的星期开始（缺省值）。
vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。
vbFirstFullWeek 3 从第一个无跨年度的星期开始。

说明

DatePart 函数可以用来计算日期并返回指定的时间间隔。例如，可以使用DatePart 计算某个日期是星期几或目前为几点钟。

firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。

如果 date 是日期文字，则指定的年份成为该日期的固定部分。但是，如果 date 用双引号 (" ") 括起来，且年份略而不提，则在每次计算 date 表达式时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。

DatePart 函数示例
本示例先取得一个日期，然后使用 DatePart 函数显示该日期是发生在该年的哪一季。

		自动登录	找回密码
密码			免费注册

[原创] 用 SQL挑战传统方式--用数据透视表做的日历

评分