| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
nmellb
註冊時間: 2014-06-07
文章: 5
第 1 樓
|
 發表於: 星期一 六月 09, 2014 9:31 am 文章主題: 自動寫入日期問題 |
 |
|
請教個問題:
給一個日期區間,
ex.2014/05/01~2014/05/10
區間中的日期如何寫入DBF中的日期欄位tDate,
tDate
2014/05/01
2014/05/02
2014/05/03
2014/05/04
2014/05/05
2014/05/06
2014/05/07
2014/05/08
2014/05/09
2014/05/10 |
|
| 回頂端 |
|
 |
lygcw9603
註冊時間: 2011-12-25
文章: 130
第 2 樓
|
| 發表於: 星期一 六月 09, 2014 11:29 am 文章主題: |
|
|
见楼下
lygcw9603 在 星期一 六月 09, 2014 11:35 am 作了第 1 次修改 |
|
| 回頂端 |
|
|
lygcw9603
註冊時間: 2011-12-25
文章: 130
第 3 樓
|
| 發表於: 星期一 六月 09, 2014 11:30 am 文章主題: |
|
|
| 代碼: | * 生成指定期间的日历
Date1={^2013.02.02}
Date2={^2014.06.29}
Create Cursor Tdate (日期 D)
For lnI=Year(Date1) To Year(Date2) && 年
For lnJ=1 To 12 && 月
For lnK=1 To 31 && 日
lcStr=Transform(lnI)+"."+Transform(lnJ)+"."+Transform(lnK)
If Between(Ctod(lcStr),Date1,Date2)
Insert Into Tdate Values (Ctod(lcStr))
EndIf
EndFor
EndFor
EndFor
Browse
|
|
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 4 樓
|
| 發表於: 星期一 六月 09, 2014 11:47 am 文章主題: |
|
|
或者，抄襲樓上
| 代碼: |
Date1={^2013.02.02}
Date2={^2014.06.29}
Create Cursor Tdate (日期 D)
Do While Date1<=Date2
Insert Into Tdate Values (Date1)
Date1=Date1+1
Enddo
Browse
|
|
|
| 回頂端 |
|
|
lygcw9603
註冊時間: 2011-12-25
文章: 130
第 5 樓
|
| 發表於: 星期一 六月 09, 2014 12:00 pm 文章主題: |
|
|
Replace 命令
Update 命令 |
|
| 回頂端 |
|
|
lygcw9603
註冊時間: 2011-12-25
文章: 130
第 6 樓
|
| 發表於: 星期一 六月 09, 2014 12:02 pm 文章主題: |
|
|
| ckp6250 寫到: | 或者，抄襲樓上
| 代碼: |
Date1={^2013.02.02}
Date2={^2014.06.29}
Create Cursor Tdate (日期 D)
Do While Date1<=Date2
Insert Into Tdate Values (Date1)
Date1=Date1+1
Enddo
Browse
|
|
精简，学习了 |
|
| 回頂端 |
|
|
nmellb
註冊時間: 2014-06-07
文章: 5
第 7 樓
|
| 發表於: 星期二 六月 10, 2014 3:47 pm 文章主題: |
|
|
| 謝謝先進的回覆,受用了~ |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
