berua.bega
New Member
FUNCTION sinhmamoi12
PARAMETERS m_chuoi
mso=RIGHT(ALLTRIM(m_chuoi),1)
myear=year(_CurrentDate)-1
mbir=29101985
mmybir=25102910
IF MOD(myear,2)=0
mtemp=mbir+mmybir+myear
ELSE
mtemp=mbir-mmybir+myear
ENDIF
mtemp=VAL(m_chuoi)+mtemp
IF VAL(mso)=0
mtemp=mtemp*11
ELSE
mtemp=mtemp*VAL(mso)
endif
mkq=STR(mtemp)
RETURN mkq
*****************
các bro ơi giúp em với! Ai giúp em giải thích đoạn này với ! với lại nếu thời (gian) gian hiện tại là 31/12/2009 thì đoạn này sinh ra chuôi j vậy các anh!
giúp em nhanh nhá em cần gấp gấp lắm lắm ý
PARAMETERS m_chuoi
mso=RIGHT(ALLTRIM(m_chuoi),1)
myear=year(_CurrentDate)-1
mbir=29101985
mmybir=25102910
IF MOD(myear,2)=0
mtemp=mbir+mmybir+myear
ELSE
mtemp=mbir-mmybir+myear
ENDIF
mtemp=VAL(m_chuoi)+mtemp
IF VAL(mso)=0
mtemp=mtemp*11
ELSE
mtemp=mtemp*VAL(mso)
endif
mkq=STR(mtemp)
RETURN mkq
*****************
các bro ơi giúp em với! Ai giúp em giải thích đoạn này với ! với lại nếu thời (gian) gian hiện tại là 31/12/2009 thì đoạn này sinh ra chuôi j vậy các anh!
giúp em nhanh nhá em cần gấp gấp lắm lắm ý