把另兩個函數也貼上:
#---------------------------------------------#
# -- 西元天數相加 yyyymmdd + day = yyyymmdd #
#---------------------------------------------#
FUNCTION chaddc(cdate,days)
DEFINE
cdate CHAR(8 ),
days SMALLINT,
adate DATE,
tdate CHAR(10)
LET tdate= cdate,"/",cdate,"/",cdate
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,"/",cdate1,"/",cdate1
LET tdate2 = cdate2,"/",cdate2,"/",cdate2
LET adate1 = tdate1
LET adate2 = tdate2
LET days = adate1 - adate2
RETURN days
END FUNCTION
页:
1
[2]