请教，如何把aa表分解成aa1表？

自由的风范 2013-11-05 12:35:24
各位老师，俺想把以下aa表以整年日期期限表示的表格，分解成aa1按月份表示的表格，请各位老师指导、赐教，感谢。

CLOSE ALL

clear

Create Table aa (cname c (12),date1 D,date2 D,rate n(8,2))
INSERT INTO aa VALUES ("dd1",{^2013-06-15},{^2014-06-14},1500 )
INSERT INTO aa VALUES ("dd2",{^2013-08-25},{^2014-08-24},1600 )
INSERT INTO aa VALUES ("dd3",{^2013-09-01},{^2014-08-31},1700 )

use aa
brow


Create Table aa1 (cname c (12),date1 D,date2 D,rate n(8,2))
INSERT INTO aa1 VALUES ("dd1",{^2013-06-15},{^2013-07-14},1500 )
INSERT INTO aa1 VALUES ("dd1",{^2013-08-15},{^2013-09-14},1500 )
INSERT INTO aa1 VALUES ("dd1",{^2013-09-15},{^2013-10-14},1500 )
INSERT INTO aa1 VALUES ("dd1",{^2013-10-15},{^2013-11-14},1500 )
INSERT INTO aa1 VALUES ("dd1",{^2013-11-15},{^2013-12-14},1500 )
INSERT INTO aa1 VALUES ("dd1",{^2013-12-15},{^2014-01-14},1500 )
INSERT INTO aa1 VALUES ("dd1",{^2014-01-15},{^2014-02-14},1500 )
INSERT INTO aa1 VALUES ("dd1",{^2014-02-15},{^2014-03-14},1500 )
INSERT INTO aa1 VALUES ("dd1",{^2014-03-15},{^2014-04-14},1500 )
INSERT INTO aa1 VALUES ("dd1",{^2014-04-15},{^2014-05-14},1500 )
INSERT INTO aa1 VALUES ("dd1",{^2014-05-15},{^2014-06-14},1500 )

INSERT INTO aa1 VALUES ("dd2",{^2013-08-25},{^2013-09-24},1600 )
INSERT INTO aa1 VALUES ("dd2",{^2013-09-25},{^2013-10-24},1600 )
INSERT INTO aa1 VALUES ("dd2",{^2013-10-25},{^2013-11-24},1600 )
INSERT INTO aa1 VALUES ("dd2",{^2013-11-25},{^2013-12-24},1600 )
INSERT INTO aa1 VALUES ("dd2",{^2013-12-25},{^2014-01-24},1600 )
INSERT INTO aa1 VALUES ("dd2",{^2014-01-25},{^2014-02-24},1600 )
INSERT INTO aa1 VALUES ("dd2",{^2014-02-25},{^2014-03-24},1600 )
INSERT INTO aa1 VALUES ("dd2",{^2014-03-25},{^2014-04-24},1600 )
INSERT INTO aa1 VALUES ("dd2",{^2014-04-25},{^2014-05-24},1600 )
INSERT INTO aa1 VALUES ("dd2",{^2014-05-25},{^2014-06-24},1600 )
INSERT INTO aa1 VALUES ("dd2",{^2014-06-25},{^2014-07-24},1600 )
INSERT INTO aa1 VALUES ("dd2",{^2014-07-25},{^2014-08-24},1600 )

INSERT INTO aa1 VALUES ("dd3",{^2013-09-01},{^2013-09-30},1700 )
INSERT INTO aa1 VALUES ("dd3",{^2013-10-01},{^2013-10-31},1700 )
INSERT INTO aa1 VALUES ("dd3",{^2013-11-01},{^2013-11-30},1700 )
INSERT INTO aa1 VALUES ("dd3",{^2013-12-01},{^2013-12-31},1700 )
INSERT INTO aa1 VALUES ("dd3",{^2014-01-01},{^2014-01-31},1700 )
INSERT INTO aa1 VALUES ("dd3",{^2014-02-01},{^2014-02-28},1700 )
INSERT INTO aa1 VALUES ("dd3",{^2014-03-01},{^2014-03-31},1700 )
INSERT INTO aa1 VALUES ("dd3",{^2014-04-01},{^2014-04-30},1700 )
INSERT INTO aa1 VALUES ("dd3",{^2014-05-01},{^2014-05-31},1700 )
INSERT INTO aa1 VALUES ("dd3",{^2014-06-01},{^2014-06-30},1700 )
INSERT INTO aa1 VALUES ("dd3",{^2014-07-01},{^2014-07-31},1700 )
INSERT INTO aa1 VALUES ("dd3",{^2014-08-01},{^2014-08-31},1700 )

use aa1
brow


CLOSE ALL
CLEAR

...全文
335 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
自由的风范 2013-11-07
  • 打赏
  • 举报
 回复
结贴了，再次感谢WWWWA老师和lc_apple老师的悉心指导和帮助。
自由的风范 2013-11-06
  • 打赏
  • 举报
 回复
lc_apple老师：您好，六楼的代码运行很好，达到目的，感谢您的指导。日期的问题，确实不好弄，请您多多赐教。
自由的风范 2013-11-06
  • 打赏
  • 举报
 回复
WWWWA老师：您好，5楼的代码运行正常，达到效果，感谢您的指导，也请您以后继续多指教。
WWWWA 2013-11-05
  • 打赏
  • 举报
 回复
自己修改一下不就行了 SELECT A.CNAME,; IIF(b.id=1,a.date1,GOMONTH(A.DATE1,B.ID-1)) as newdate1,; IIF(A.PM=B.ID,A.DATE2,GOMONTH(A.DATE1,B.ID)-1) AS ADATE2; ,rate FROM SS A INNER JOIN LSB B ON A.PM>=B.ID
自由的风范 2013-11-05
  • 打赏
  • 举报
 回复
WWWWA老师：您好，感谢您的指导。运行三楼代码，结果是如下，有些问题。俺希望的结果是：第一行的date2应该是2013-7-14，第二行date1应该是2013-7-15、date2应该是2013-8-14，第三行date1应该是2013-8-15、date2应该是2013-9-14，如此类推，请您再指导调整，感谢。 cname date1 adate2 rate dd1 2013-6-15 2013-7-15 1500 dd1 2013-6-15 2013-8-15 1500 dd1 2013-6-15 2013-9-15 1500 dd1 2013-6-15 2013-10-15 1500 dd1 2013-6-15 2013-11-15 1500 dd1 2013-6-15 2013-12-15 1500 dd1 2013-6-15 2014-1-15 1500 dd1 2013-6-15 2014-2-15 1500 dd1 2013-6-15 2014-3-15 1500 dd1 2013-6-15 2014-4-15 1500 dd1 2013-6-15 2014-5-15 1500 dd1 2013-6-15 2014-6-14 1500 dd2 2013-8-25 2013-9-25 1600 dd2 2013-8-25 2013-10-25 1600 dd2 2013-8-25 2013-11-25 1600 dd2 2013-8-25 2013-12-25 1600 dd2 2013-8-25 2014-1-25 1600 dd2 2013-8-25 2014-2-25 1600 dd2 2013-8-25 2014-3-25 1600 dd2 2013-8-25 2014-4-25 1600 dd2 2013-8-25 2014-5-25 1600 dd2 2013-8-25 2014-6-25 1600 dd2 2013-8-25 2014-7-25 1600 dd2 2013-8-25 2014-8-24 1600 dd3 2013-9-1 2013-10-1 1700 dd3 2013-9-1 2013-11-1 1700 dd3 2013-9-1 2013-12-1 1700 dd3 2013-9-1 2014-1-1 1700 dd3 2013-9-1 2014-2-1 1700 dd3 2013-9-1 2014-3-1 1700 dd3 2013-9-1 2014-4-1 1700 dd3 2013-9-1 2014-5-1 1700 dd3 2013-9-1 2014-6-1 1700 dd3 2013-9-1 2014-7-1 1700 dd3 2013-9-1 2014-8-1 1700 dd3 2013-9-1 2014-8-31 1700 dd1 2013-6-15 2013-7-14 1500 dd1 2013-8-15 2013-9-14 1500 dd1 2013-9-15 2013-10-14 1500 dd1 2013-10-15 2013-11-14 1500 dd1 2013-11-15 2013-12-14 1500 dd1 2013-12-15 2014-1-14 1500 dd1 2014-1-15 2014-2-14 1500 dd1 2014-2-15 2014-3-14 1500 dd1 2014-3-15 2014-4-14 1500 dd1 2014-4-15 2014-5-14 1500 dd1 2014-5-15 2014-6-14 1500 dd2 2013-8-25 2013-9-24 1600 dd2 2013-9-25 2013-10-24 1600 dd2 2013-10-25 2013-11-24 1600 dd2 2013-11-25 2013-12-24 1600 dd2 2013-12-25 2014-1-24 1600 dd2 2014-1-25 2014-2-24 1600 dd2 2014-2-25 2014-3-24 1600 dd2 2014-3-25 2014-4-24 1600 dd2 2014-4-25 2014-5-24 1600 dd2 2014-5-25 2014-6-24 1600 dd2 2014-6-25 2014-7-24 1600 dd2 2014-7-25 2014-8-24 1600 dd3 2013-9-1 2013-9-30 1700 dd3 2013-10-1 2013-10-31 1700 dd3 2013-11-1 2013-11-30 1700 dd3 2013-12-1 2013-12-31 1700 dd3 2014-1-1 2014-1-31 1700 dd3 2014-2-1 2014-2-28 1700 dd3 2014-3-1 2014-3-31 1700 dd3 2014-4-1 2014-4-30 1700 dd3 2014-5-1 2014-5-31 1700 dd3 2014-6-1 2014-6-30 1700 dd3 2014-7-1 2014-7-31 1700 dd3 2014-8-1 2014-8-31 1700
WWWWA 2013-11-05
  • 打赏
  • 举报
 回复
示例：
Create CURS aa (cname c (12),date1 D,date2 D,rate n(8,2))
INSERT INTO aa VALUES ("dd1",{^2013-06-15},{^2014-06-14},1500 )
INSERT INTO aa VALUES ("dd2",{^2013-08-25},{^2014-08-24},1600 )
INSERT INTO aa VALUES ("dd3",{^2013-09-01},{^2014-08-31},1700 )
SELECT *,INT((DATE2-DATE1)/30) AS PM FROM AA INTO CURSOR SS
Create CURS LSB (ID N (3))
FOR I=1 TO 100
INSERT INTO LSB VALUE(I)
ENDF
SELECT A.CNAME,A.DATE1,IIF(A.PM=B.ID,A.DATE2,GOMONTH(A.DATE1,B.ID)) AS ADATE2,rate FROM SS A INNER JOIN LSB B ON A.PM>=B.ID
自由的风范 2013-11-05
  • 打赏
  • 举报
 回复
lc_apple老师：您好，俺又遇上日期的问题了，请您指教，感谢。
lc_apple 2013-11-05
  • 打赏
  • 举报
 回复
你咋又和日期型数据抗上了
lc_apple 2013-11-05
  • 打赏
  • 举报
 回复
Close Data Create Table aa (cname c (12),date1 D,date2 D,rate N(8,2)) Insert Into aa Values ("dd1",{^2013-06-15},{^2014-06-14},1500 ) Insert Into aa Values ("dd2",{^2013-08-25},{^2014-08-24},1600 ) Insert Into aa Values ("dd3",{^2013-09-01},{^2014-08-31},1700 ) Create Table aa1 (cname c (12),date1 D,date2 D,rate N(8,2)) Select aa Scan Scatter Memv Do While m.date1<m.date2 If Gomonth(m.date1,1)<m.date2 Insert Into aa1 Values (m.cname,m.date1,Gomonth(m.date1,1)-1,m.rate ) Else Insert Into aa1 Values (m.cname,m.date1,m.date2,m.rate ) Endif m.date1=Gomonth(m.date1,1) Enddo Endscan
ACDSee 12 注册机
ACDSee 12 的注册机，顺便附加一个软件的下载地址 http://download.softpedia.com/dl/5b9b632bc0e22bb8dd5b1fa06aa1faf7/4bd45106/100005266/software/multimedia/graphic/acdsee-12-0-342-win-en.exe 我自己已经用了，没有报毒（卡巴斯基2010），而且可以使用，如果谁下了不幸好使，可以批评，但是别说脏话，因为确实没骗你
E+H浊度传感器CUS52D-AA1BA3
E+H浊度传感器CUS52D-AA1BA3 浊度传感器 Turbimax CUS52D 卫生型Memosens传感器，用于饮用水、过程水和公用工程中的浊度测量 产品规格参数 测量范围 0.000 … 4000FNU/NTU 过程温度 -20 … 85°C 过程压力 0.5 … 10 bar 应用领域 Turbimax CUS52D 是一款智能传感器，具有实验室级的测量精度，可以在水生产和许多其他应用中（淡水、过程水或盐水）的所有测量点进行无人值守的操作。可以直接安装在管道中，从而节约高昂的旁路安装成本，同时
算法： 数组元素重新赋值 要求有规律
$array = array('aa','aa1','aa0','aa0','aa1','aa1','aa1','aa1','aa1','aa1','aa2','aa4','aa3','aa4'); $arrayNew = array_count_values($array); $a = A; $b = 0; foreach ($arrayNew as $key => $value) {
Al:从零开始的汇编语言1
任务：把0000:3000H开始的连续16字节空间分别赋值为00H到0FH CODE SEGMENT;定义代码段 ASSUME CS:CODE START: SUB AX,AX;将AX中数据清零 MOV DS,AX;将AX中数据传给DS，即DS清零 MOV SI,3000H;将SI赋值为3000H，此时地址即为0000:3000H MOV CX,16;将16赋值给CX AA1: MO
绝密爆点选股公式
A:=100*(C-REF(C,1))/REF(C,1);AA:=IF(C<REF(O,1) AND A<0,1,0); A1:=AA;AA1:=IF(C<REF(O,2) AND A<0,1,0);A2:=AA1;B1:=C/REF(C,1)>1.035; XG:=H>=HHV(H,5);TF:=BARSLAST(XG);L1:=IF(L<(0.989REF(L,TF)),1,0); LL:=L1 AND COUNT(L1,TF)<2 AND TF<3
VFP

2,748

社区成员

29,138

社区内容

发帖
与我相关
我的任务
社区描述
VFP，是Microsoft公司推出的数据库开发软件，用它来开发数据库，既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章