<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Word 15 (filtered medium)">
<!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Consolas;
panose-1:2 11 6 9 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:#0563C1;
text-decoration:underline;}
pre
{mso-style-priority:99;
mso-style-link:"HTML Preformatted Char";
margin:0in;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New",serif;}
span.HTMLPreformattedChar
{mso-style-name:"HTML Preformatted Char";
mso-style-priority:99;
mso-style-link:"HTML Preformatted";
font-family:Consolas;}
p.src, li.src, div.src
{mso-style-name:src;
mso-margin-top-alt:auto;
margin-right:0in;
mso-margin-bottom-alt:auto;
margin-left:0in;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
span.EmailStyle22
{mso-style-type:personal-compose;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="EN-US" link="#0563C1" vlink="purple">
<div class="WordSection1">
<p class="MsoNormal">AH, yes – thanks, that is the missing 13-days mystery?<o:p></o:p></p>
<p class="MsoNormal">And yes – in us MM/dd/yy is most common.<o:p></o:p></p>
<p class="MsoNormal">Thanks.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<div>
<div style="border:none;border-bottom:solid windowtext 1.0pt;padding:0in 0in 1.0pt 0in">
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<p class="MsoNormal">Dr. Gregory Guthrie<o:p></o:p></p>
<p class="MsoNormal">Maharishi International University<o:p></o:p></p>
<p class="MsoNormal">----------------------------------------------------------------<o:p></o:p></p>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<div>
<div style="border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0in 0in 0in">
<p class="MsoNormal"><b>Subject:</b> Re: [Haskell-cafe] dates...<o:p></o:p></p>
</div>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt">Dear Gregory,<br>
<br>
According to [1]:<br>
> For any given event during the years from 1901 to 2099 inclusive, its date according to the Julian calendar is 13 days behind its corresponding Gregorian date.<br>
<br>
<br>
Regards,<br>
Jeroen Bransen<br>
<br>
<br>
[1] <a href="https://en.wikipedia.org/wiki/Julian_calendar">https://en.wikipedia.org/wiki/Julian_calendar</a><o:p></o:p></p>
<div>
<p class="MsoNormal">Op 6-8-2020 om 05:23 schreef Gregory Guthrie:<o:p></o:p></p>
</div>
<blockquote style="margin-top:5.0pt;margin-bottom:5.0pt">
<p class="MsoNormal">I don’t understand why the Julian conversion are given relative to 2019, instead of 2020, and don’t seem to actually show the date index.<o:p></o:p></p>
<p class="MsoNormal">Must be misreading the library specs?<o:p></o:p></p>
<p class="src"><a name="v:toJulianYearAndDay">toJulianYearAndDay</a> :: <a href="https://hackage.haskell.org/package/time-1.6/docs/Data-Time-Calendar.html#t:Day">
Day</a> -> (<a href="https://hackage.haskell.org/package/base-4.8.1.0/docs/Prelude.html#t:Integer">Integer</a>,
<a href="https://hackage.haskell.org/package/base-4.8.1.0/docs/Data-Int.html#t:Int">
Int</a>)<o:p></o:p></p>
<p> convert to proleptic Julian year and day format. First element of result is year (proleptic Julian calendar), second is the day of the year, with 1 for Jan 1, and 365
<o:p></o:p></p>
<p class="src"><a name="v:toJulian">toJulian</a> :: <a href="https://hackage.haskell.org/package/time-1.6/docs/Data-Time-Calendar.html#t:Day">
Day</a> -> (<a href="https://hackage.haskell.org/package/base-4.8.1.0/docs/Prelude.html#t:Integer">Integer</a>,
<a href="https://hackage.haskell.org/package/base-4.8.1.0/docs/Data-Int.html#t:Int">
Int</a>, <a href="https://hackage.haskell.org/package/base-4.8.1.0/docs/Data-Int.html#t:Int">
Int</a>) <a href="https://hackage.haskell.org/package/time-1.6/docs/src/Data-Time-Calendar-Julian.html#toJulian">
Source</a><o:p></o:p></p>
<p> convert to proleptic Julian calendar. First element of result is year, second month number (1-12), third day (1-31).<o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">----------------------------------------------------------------------------------</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif"> </span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">ds = "1/8/2020"</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">day = parseTimeOrError True defaultTimeLocale "%-m/%-d/%Y" ds :: UTCTime</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif"> </span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">getDay = toGregorian . utctDay</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">getDayOfYear = toJulian . utctDay</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">getDayYear = toJulianYearAndDay. utctDay</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif"> </span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">main = do</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif"> print day</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif"> print $ getDay day</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif"> print $ getDayYear day</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif"> print $ getDayOfYear day</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif"> </span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">2020-01-08 00:00:00 UTC</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">(2020,1,8)</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">(2019,360)</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">(2019,12,26)</span><o:p></o:p></p>
<p class="MsoNormal">And;<o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">2020-02-08 00:00:00 UTC</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">(2020,2,8)</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">(2020,26)</span><o:p></o:p></p>
<p class="MsoNormal"><span style="font-family:"Courier New",serif">(2020,1,26)</span><o:p></o:p></p>
<div style="border:none;border-bottom:solid windowtext 1.0pt;padding:0in 0in 1.0pt 0in">
<p class="MsoNormal"> <o:p></o:p></p>
</div>
<p class="MsoNormal">Dr. Gregory Guthrie<o:p></o:p></p>
<p class="MsoNormal">Maharishi International University<o:p></o:p></p>
<p class="MsoNormal">----------------------------------------------------------------<o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:12.0pt"><o:p> </o:p></p>
<pre>_______________________________________________<o:p></o:p></pre>
<pre>Haskell-Cafe mailing list<o:p></o:p></pre>
<pre>To (un)subscribe, modify options or view archives go to:<o:p></o:p></pre>
<pre><a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe">http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe</a><o:p></o:p></pre>
<pre>Only members subscribed via the mailman list are allowed to post.<o:p></o:p></pre>
</blockquote>
<p class="MsoNormal" style="margin-bottom:12.0pt"><o:p> </o:p></p>
<pre>-- <o:p></o:p></pre>
<pre>Jeroen Bransen<o:p></o:p></pre>
<pre>Lead Back-end Developer at Chordify<o:p></o:p></pre>
<p class="MsoNormal"><br>
<a href="https://chordify.net/" target="_blank"><span style="text-decoration:none"><img border="0" width="265" height="75" style="width:2.7604in;height:.7812in" id="_x0000_i1025" src="https://chordify.net/img/email-signature.png"></span></a><o:p></o:p></p>
</div>
</body>
</html>