######################################yX5Linux联盟
#Purpose     :  日期计算函数         #yX5Linux联盟
#Date        :  2007-11-13 15:43     #yX5Linux联盟
######################################

# !/bin/ksh

# 获取月份最大日期yX5Linux联盟
get_mon_days()yX5Linux联盟
{yX5Linux联盟
 Y=`expr substr $1 1 4`yX5Linux联盟
 M=`expr substr $1 5 2`

 r1=`expr $Y \% 4`yX5Linux联盟
 r2=`expr $Y \% 100`yX5Linux联盟
 r3=`expr $Y \% 400`

 case $M inyX5Linux联盟
 01|03|05|07|08|10|12) days=31;;yX5Linux联盟
 04|06|09|11) days=30;;yX5Linux联盟
 02)yX5Linux联盟
  r1=`expr $Y \% 4`yX5Linux联盟
  r2=`expr $Y \% 100`yX5Linux联盟
  r3=`expr $Y \% 400`yX5Linux联盟
  # 闰年yX5Linux联盟
  if [ r1 -eq 0 -a r2 -ne 0 -o r3 -eq 0  ] ; thenyX5Linux联盟
   days=29yX5Linux联盟
  elseyX5Linux联盟
   days=28yX5Linux联盟
  fiyX5Linux联盟
  ;;yX5Linux联盟
 *)yX5Linux联盟
  days=0yX5Linux联盟
  ;;yX5Linux联盟
 esacyX5Linux联盟
 echo $daysyX5Linux联盟
}

check_date()yX5Linux联盟
{yX5Linux联盟
 # 0 合法 1 非法yX5Linux联盟
 FLAG=0yX5Linux联盟
 Y=`expr substr $1 1 4`yX5Linux联盟
 M=`expr substr $1 5 2`yX5Linux联盟
 D=`expr substr $1 7 2`

 days=`get_mon_days $Y$M`

 if ! [ $D -ge 1 -a $D -le $days ] ; thenyX5Linux联盟
  FLAG=1yX5Linux联盟
 fi

 echo $FLAGyX5Linux联盟
}yX5Linux联盟
#返回昨天日期yX5Linux联盟
get_before_date()yX5Linux联盟
{yX5Linux联盟
 Y=`expr substr $1 1 4`yX5Linux联盟
 M=`expr substr $1 5 2`yX5Linux联盟
 D=`expr substr $1 7 2`yX5Linux联盟
 YY=`expr $Y - 1`yX5Linux联盟
 MM=`expr $M - 1`yX5Linux联盟
 DD=`expr $D - 1`yX5Linux联盟
 MM=`printf "%02d" $MM`yX5Linux联盟
 DD=`printf "%02d" $DD`yX5Linux联盟
 dd=$Y$MMyX5Linux联盟
 dad=`get_mon_days $dd`yX5Linux联盟
 be_date=$Y$M$DDyX5Linux联盟
 if [ $D -eq 01 ]yX5Linux联盟
 thenyX5Linux联盟
  if [ $M -ne 01 ]yX5Linux联盟
  thenyX5Linux联盟
   be_date=$Y$MM$dadyX5Linux联盟
  fiyX5Linux联盟
  if [ $M -eq 01 ]yX5Linux联盟
  thenyX5Linux联盟
   be_date=$YY"1231"yX5Linux联盟
  fiyX5Linux联盟
 fiyX5Linux联盟
 echo $be_dateyX5Linux联盟
}

#返回明天日期yX5Linux联盟
get_next_date()yX5Linux联盟
{yX5Linux联盟
 Y=`expr substr $1 1 4`yX5Linux联盟
 M=`expr substr $1 5 2`yX5Linux联盟
 D=`expr substr $1 7 2`yX5Linux联盟
 YY=`expr $Y + 1`yX5Linux联盟
 MM=`expr $M + 1`yX5Linux联盟
 DD=`expr $D + 1`yX5Linux联盟
 MM=`printf "%02d" $MM`yX5Linux联盟
 DD=`printf "%02d" $DD`yX5Linux联盟
 r1=`expr $Y \% 4`yX5Linux联盟
 r2=`expr $Y \% 100`yX5Linux联盟
 r3=`expr $Y \% 400`

 # 通常情况yX5Linux联盟
 next_date=$Y$M$DD

 # 特殊情况1，小月月末yX5Linux联盟
 if [ $D -eq 30 ]yX5Linux联盟
 thenyX5Linux联盟
  case $M inyX5Linux联盟
  04|06|09|11) next_date=$Y$MM"01";;yX5Linux联盟
  esacyX5Linux联盟
 fiyX5Linux联盟
 # 特殊情况2，大月月末yX5Linux联盟
 if [ $D -eq 31 ]yX5Linux联盟
 thenyX5Linux联盟
  next_date=$Y$MM"01"yX5Linux联盟
  case $M inyX5Linux联盟
   12) next_date=$YY"0101";;yX5Linux联盟
  esacyX5Linux联盟
 fiyX5Linux联盟
 # 特殊情况3，2月月末yX5Linux联盟
 if [ $M -eq 02 ]yX5Linux联盟
 thenyX5Linux联盟
  # 闰年yX5Linux联盟
  if [ r1 -eq 0 -a r2 -ne 0 -o r3 -eq 0 ]yX5Linux联盟
  thenyX5Linux联盟
   if [ $D -eq 29 ]yX5Linux联盟
   thenyX5Linux联盟
    next_date=$Y$MM"01"yX5Linux联盟
   fiyX5Linux联盟
  elseyX5Linux联盟
   if [ $D -eq 28 ]yX5Linux联盟
   thenyX5Linux联盟
    next_date=$Y$MM"01"yX5Linux联盟
   fiyX5Linux联盟
  fiyX5Linux联盟
 fiyX5Linux联盟
 echo $next_dateyX5Linux联盟
}

# 开始调用yX5Linux联盟
get_before_date $1yX5Linux联盟
get_next_date $1yX5Linux联盟
check_date $1