 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
polygon0
註冊時間: 2007-05-07
文章: 1
第 1 樓
|
 發表於: 星期一 五月 07, 2007 9:17 am 文章主題: [求助]如何计算离生日还有几天？期盼中..... |
 |
|
字段一：dm（代码，整型）
字段二：xm（姓名，字符型长度１０位）
字段三：xb（性别，逻辑型）
字段四：gongli（公历，逻辑型，公历生日时为真，农历生日时为假）
字段五：monthno（出生月，字符型长度２位，如"０６"即是６月出生）
字段五：dayno（出生日，字符型长度２位，如"０６"即是６号出生）
字段六：birthday（离生日的天数，整型）
问：如何通过前面的几个字段，计算最后一个字段的值？
请各位大虾不吝赐教！ |
|
| 回頂端 |
|
 |
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 2 樓
|
| 發表於: 星期一 五月 07, 2007 9:58 am 文章主題: |
|
|
不就是兩個日期格式相減而已.
只用date( )這個函數就行了.
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
wuno2001
註冊時間: 2007-02-09
文章: 56
第 3 樓
|
| 發表於: 星期二 五月 08, 2007 3:34 pm 文章主題: |
|
|
一般問離生日還有几天,應該是指下一次生日吧.
if gongli = .T.
xbirthday=ctod(str(year(date()))+'/'+monthno+'/'+dayno)
if xbirthday<date()
xbirthday=ctod(str(year(date())+1)+'/'+monthno+'/'+dayno)
endif
birthday=xbirthday-date()
else
陰曆不會(先換成公曆吧,再同上)
endif |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
