- 论坛徽章:
- 0
|
回复 10# star_zheng
把另兩個函數也貼上:
#---------------------------------------------#
# -- 西元天數相加 yyyymmdd + day = yyyymmdd #
#---------------------------------------------#
FUNCTION chaddc(cdate,days)
DEFINE
cdate CHAR(8 ),
days SMALLINT,
adate DATE,
tdate CHAR(10)
LET tdate= cdate[5,6],"/",cdate[7,8],"/",cdate[1,4]
LET adate= tdate
LET adate= adate+days
LET cdate = adate USING "yyyymmdd"
RETURN cdate
END FUNCTION
#---------------------------------------------#
# 西元日期相減得天數 -- #
#---------------------------------------------#
FUNCTION chaddd(cdate1,cdate2)
DEFINE
cdate1 CHAR(8 ),
cdate2 CHAR(8 ),
days SMALLINT,
adate1 DATE,
adate2 DATE,
tdate1 CHAR(10),
tdate2 CHAR(10)
LET tdate1 = cdate1[5,6],"/",cdate1[7,8],"/",cdate1[1,4]
LET tdate2 = cdate2[5,6],"/",cdate2[7,8],"/",cdate2[1,4]
LET adate1 = tdate1
LET adate2 = tdate2
LET days = adate1 - adate2
RETURN days
END FUNCTION |
|