【PB】有关日期函数

青旅半醒 2022-06-09 06:30 253阅读 0赞

//1.生肖(年份参数：int ls\_year  返回参数：string):  
mid(fill('鼠牛虎兔龙蛇马羊猴鸡狗猪',48),(mod(ls\_year -1900,12)+13)\*2 -1,2)

//2.天干地支(年份参数：int ls\_year  返回参数：string):  
mid(fill('甲乙丙丁戊己庚辛壬癸',40),(mod(ls\_year -1924,10)+11)\*2 -1,2)+mid(fill('子丑寅卯辰巳午未申酉戌亥',48),(mod(ls\_year -1924,12)+13)\*2 -1,2)

//3.星座(日期参数：date ls\_date  返回参数：string):  
mid("摩羯水瓶双鱼白羊金牛双子巨蟹狮子处女天秤天蝎射手摩羯",(month(ls\_date)+sign(sign(day(ls\_date) -(19+integer(mid('102123444423',month(ls\_date),1))))+1))\*4 -3,4)+'座'  
//4.判断闰年(年份参数：int ls\_year  返回参数：int 0=平年，1=闰年):  
abs(sign(mod(sign(mod(abs(ls\_year),4))+sign(mod(abs(ls\_year),100))+sign(mod(abs(ls\_year),400)),2)) -1)

//5.某月天数(日期参数：date ls\_date  返回参数：int):  
integer(28+integer(mid('3'+string(abs(sign(mod(sign(mod(abs(year(ls\_date)),4))+sign(mod(abs(year(ls\_date)),100))+sign(mod(abs(year(ls\_date)),400)),2)) -1))+'3232332323',month(ls\_date),1)))

//6.某月最后一天日期(日期参数：date ls\_date  返回参数：date):  
date(year(ls\_date),month(ls\_date),integer(28+integer(mid('3'+string(abs(sign(mod(sign(mod(abs(year(ls\_date)),4))+sign(mod(abs(year(ls\_date)),100))+sign(mod(abs(year(ls\_date)),400)),2)) -1))+'3232332323',month(ls\_date),1))))

//7.另一个求某月最后一天日期(日期参数：date ls\_date  返回参数：date):  
a.  
RelativeDate (date(year(ls\_date)+sign(month(ls\_date) -12)+1,mod(month(ls\_date)+1,13)+abs(sign(mod(month(ls\_date)+1,13)) -1),1),-1)  
b.  
RelativeDate(date(year(ls\_date)+integer(month(ls\_date)/12),mod(month(ls\_date),12)+1,1),-1)  
//8.另一个求某月天数(日期参数：date ls\_date  返回参数：int):  
a.  
day(RelativeDate (date(year(ls\_date)+sign(month(ls\_date) -12)+1,mod(month(ls\_date)+1,13)+abs(sign(mod(month(ls\_date)+1,13)) -1),1),-1))  
b.  
day(RelativeDate(date(year(ls\_date)+integer(month(ls\_date)/12),mod(month(ls\_date),12)+1,1),-1))

//9.某月某日星期几--同ＰＢ系统函数DayName(日期参数：date ls\_date  返回参数：string):  
'星期'+mid('日一二三四五六',(mod(year(ls\_date) -1 + int((year(ls\_date) -1)/4) - int((year(ls\_date) -1)/100) + int((year(ls\_date) -1)/400) + daysafter(date(year(ls\_date),1,1),ls\_date)+1,7)+1)\*2 -1,2)

//10.求相隔若干月份后的相对日期(日期参数：date ls\_date 相隔月份(可取负数)：int ls\_add\_month 返回参数：date):  
date(year(ls\_date)+int((month(ls\_date)+ls\_add\_month)/13),long(mid(fill('010203040506070809101112',48),(mod(month(ls\_date)+ls\_add\_month -1,12)+13)\*2 -1,2)),day(ls\_date) -integer(right(left(string(day(RelativeDate (date(year(ls\_date)+int((month(ls\_date)+ls\_add\_month)/13)+sign(long(mid(fill('010203040506070809101112',48),(mod(month(ls\_date)+ls\_add\_month -1,12)+13)\*2 -1,2)) -12)+1,mod(long(mid(fill('010203040506070809101112',48),(mod(month(ls\_date)+ls\_add\_month -1,12)+13)\*2 -1,2))+1,13)+abs(sign(mod(long(mid(fill('010203040506070809101112',48),(mod(month(ls\_date)+ls\_add\_month -1,12)+13)\*2 -1,2))+1,13)) -1),1),-1)) -day(ls\_date),'00')+'00000',5),3))/100)

//11.求某日在当年所处的周数(日期参数：date ls\_date  返回参数：int):  
//a.周始日为星期天  
//a1  
abs(int(-((daysafter( RelativeDate(date(year(ls\_date),1,1), -mod(year(ls\_date) -1 + int((year(ls\_date) -1)/4) - int((year(ls\_date) -1)/100) + int((year(ls\_date) -1)/400) + 1,7) +1),ls\_date)+1)/7)))  
//a2(使用DayNumber函数)  
abs(int(-((daysafter( RelativeDate(date(year(ls\_date),1,1), -DayNumber(date(year(ls\_date),1,1))+1),ls\_date)+1)/7)))  
  
//b.周始日为星期一  
//b1  
abs(int(-((daysafter( RelativeDate(date(year(ls\_date),1,1), -integer(mid('6012345',mod(year(ls\_date) -1 + int((year(ls\_date) -1)/4) - int((year(ls\_date) -1)/100) + int((year(ls\_date) -1)/400) + 1,7),1))),ls\_date)+1)/7)))  
//b2(使用DayNumber函数)  
abs(int(-((daysafter( RelativeDate(date(year(ls\_date),1,1), -integer(mid('6012345',DayNumber(date(year(ls\_date),1,1)),1))),ls\_date)+1)/7)))  
//12.求某日相对于过去某一日期所处的周数(日期参数：date ls\_date\_1(要求的某日),ls\_date\_2(过去的某日)  返回参数：int):  
//注：ls\_date\_1>ls\_date\_2  
//a.周始日为星期天  
//a1  
abs(int(-((daysafter( RelativeDate(ls\_date\_2, -mod(year(ls\_date\_2) -1 + int((year(ls\_date\_2) -1)/4) - int((year(ls\_date\_2) -1)/100) + int((year(ls\_date\_2) -1)/400) + daysafter(date(year(ls\_date\_2),1,1),ls\_date\_2)+ 1,7) +1),ls\_date\_1)+1)/7)))  
//a2(使用DayNumber函数)  
abs(int(-((daysafter( RelativeDate(ls\_date\_2, -DayNumber(ls\_date\_2)+1),ls\_date\_1)+1)/7)))  
  
//b.周始日为星期一  
//b1  
abs(int(-((daysafter( RelativeDate(ls\_date\_2, -integer(mid('6012345',mod(year(ls\_date\_2) -1 + int((year(ls\_date\_2) -1)/4) - int((year(ls\_date\_2) -1)/100) + int((year(ls\_date\_2) -1)/400) + daysafter(date(year(ls\_date\_2),1,1),ls\_date\_2)+ 1,7) ,1))),ls\_date\_1)+1)/7)))  
//b2(使用DayNumber函数)  
abs(int(-((daysafter( RelativeDate(ls\_date\_2, -integer(mid('6012345',DayNumber(ls\_date\_2),1))),ls\_date\_1)+1)/7)))

某月最后一天日期  
RelativeDate(date(year(ld\_1)+integer(month(ld\_1)/12),mod(month(ld\_1),12)+1,1),-1)  
取得最后一天  
day(上面语句)  
闰年(1为闰年, 0为平年)  
integer(day(RelativeDate(date(year(ld\_1), 3, 1), -1))/29)  
当前日期所在星期数  
integer(daysafter(date(year(ad\_date), 1, 1), ad\_date)/7) + 1 + integer((daynumber(date(year(ad\_date), 1, 1)) + mod(daysafter(date(year(ad\_date), 1, 1), ad\_date), 7) -1)/7)