A.Echo B.MsgBox C.Beep D.SetValue
A.25 B.36 C.20 D.24
A.Day(DD) B.Day(DateSerial(Year(DD),Month(DD),Day(DD)) C.Day(DateSerial(Year(DD),Month(DD),0)) D.Day(DateSerial(Year(DD),Month(DD)+1,0))