IsEquinox : -a ->                                IsVernalEquinox : -a ->
Arg D : DateTime                                 Arg D : DateTime

If IsVernalEquinox D |                           [ D.Day = 20 && D.Month = 3 ]
   IsAutumnalEquinox D then
 1, 0                                            /
/
                                                 IsAutumnalEquinox : -a ->
                                                 Arg D : DateTime

                                                 [ D.Day = 22 && D.Month = 9 ]

                                                 /
