如何判断日期是今年的第几周?

star_zheng

回复 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