DGDAYSINMONTH (133) FUNCTION (.5)
Name
Value
NAME
DGDAYSINMONTH
MUMPS CODE
S X1=X,X=+$E(X,4,5),X=$S("^1^3^5^7^8^10^12^"[(U_X_U):31,X'=2:30,$E(X1,1,3)#4:28,1:29)
EXPLANATION
DAYS IN MONTH
DATE-VALUED
NO
