หาวันสิ้นเดือน
posted on 24 Mar 2008 17:04 by theera in Visual-Basic
iDaysInMonth = CHOOSE(iMonth,31,28,31,30,31,30,31,31,30,31,30,31)
IF iMonth = 2 AND ((iYear MOD 4) = 0) THEN
IF ((iYear MOD 100) > 0) OR ((iYear MOD 400) = 0) THEN
iDaysInMonth = 29
END IF
END IF
IF iMonth = 2 AND ((iYear MOD 4) = 0) THEN
IF ((iYear MOD 100) > 0) OR ((iYear MOD 400) = 0) THEN
iDaysInMonth = 29
END IF
END IF
Tags: vb6, วัน, สิ้นเดือน0 Comments