Mathematica 中的 DateString 有问题

Question

如果我输入

DateString[{2011, 2, 29, 0, 0, 0}, {"DayName"}]

它会给出 "Tuesday"。

另外，

DateString[{2011, 2, 29, 0, 0, 0}, {"DayName"}]

DateString[{2011, 3, 1, 0, 0, 0} , {"DayName"}]

Answer 1

Needs["Calendar`"];
myDay[x_List] := DateString[x, {"DayName"}] /; DateQ[x]  

myDay[{2000, 1, 1}]
->"Saturday"

myDay[{2000, 13, 13}]
->myDay[{2000, 13, 13}]  

当然，如果您愿意，您可以抛出一条消息（或 Abort[] 或其他任何内容）：

Needs["Calendar`"];
Clear@myDay;
myDay[x_] /; If[DateQ[x], True, Message[myDay::nodate, x]; False] := 
                                                       DateString[x, {"DayName"}]
myDay::nodate = "The argument `1` is not a valid date.";

Answer 2

在我看来，这像是正确的行为。 DateString 的文档说：“超出正常范围的 m、d、h、m、s 的值会适当减少。”这就是所发生的事情：今年并没有真正的 2 月 29 日，但如果有的话，那也是实际上的 3 月 1 日，这确实是星期二。