[gradsusr] Date Issue for the DAY 2021

L.B. bcbass2989 at gmail.com
Tue Dec 22 12:41:20 EST 2020


Stuart,

After breaking down the month into a numerical value as you did, use that
along with the day and current year into a function as such:

if (month < 3)
  month = month + 12
  year = year -1
endif

dow = math_mod(day + math_int((13*(month+1))/5) + year + math_int(year/4) -
math_int(year/100) + math_int(year/400),7)

from here, the value 0 is Saturday, 1 is Sunday...6 is Friday

*-------*
William (L.B.) LaForce IV
Meteorologist


On Tue, Dec 22, 2020 at 11:28 AM CW Weather <weatherstu at chorleyweather.com>
wrote:

> Hi Miquel,
>
>
> Using similar with substring but how would I integrate that
> with this code. I've tried Ryan's function but it is throwing an error up
> somewhere and i've yet to find it. Thanks in advance. And thanks to Ryan as
> well.
>
> regards,
>
> Stuart.
>
>
> 'query time'
> time = subwrd(result,3)
> day = subwrd(result,6)
> datestr = subwrd (result, 3)
> if (substr (datestr, 3, 1) = 'Z') ; zptr = 3 ; ;else ; zptr = 6 ; endif ;
> timestr = substr (datestr, 1, 2)
> date = substr (datestr, zptr+1, 99)
> dd = substr (date, 1, 2)
> mmm = substr (date, 3, 3)
> yyyy = substr (date, 6, 4)
>
> if (mmm = 'JAN') ; mm = 01 ; endif
> if (mmm = 'FEB') ; mm = 02 ; endif
> if (mmm = 'MAR') ; mm = 03 ; endif
> if (mmm = 'APR') ; mm = 04 ; endif
> if (mmm = 'MAY') ; mm = 05 ; endif
> if (mmm = 'JUN') ; mm = 06 ; endif
> if (mmm = 'JUL') ; mm = 07 ; endif
> if (mmm = 'AUG') ; mm = 08 ; endif
> if (mmm = 'SEP') ; mm = 09 ; endif
> if (mmm = 'OCT') ; mm = 10 ; endif
> if (mmm = 'NOV') ; mm = 11 ; endif
> if (mmm = 'DEC') ; mm = 12 ; endif
>
> date = day' 'dd'/'mm' 'timestr':00'
>
>
>
>
>
> On 22-12-2020 16:01, Miquel Bernis wrote:
>
> I'm dealing with the same problem. Using substr() you can split day (d),
> month (m), and year (y), and after that this algorithm looks like works for
> me. Returns 0 for a Sunday and up to 6 for a Saturday.
>
> arrayDOW.0=0
> arrayDOW.1=3
> arrayDOW.2=2
> arrayDOW.3=5
> arrayDOW.4=0
> arrayDOW.5=3
> arrayDOW.6=5
> arrayDOW.7=1
> arrayDOW.8=4
> arrayDOW.9=6
> arrayDOW.10=2
> arrayDOW.11=4
>
> if (m<3)
> y=y-1
> endif
>
> parm=m-1
> dofweek = math_mod((y + math_int(y/4) - math_int(y/100) + math_int(y/400)
> + arrayDOW.parm + d),7)
>
> Missatge de CW Weather <weatherstu at chorleyweather.com> del dia dt., 22 de
> des. 2020 a les 8:07:
>
>> Hello Users,
>>
>>
>> I know this subject has been covered recently with an issue with the date
>> for 2021, with the DAY returning '???'. Is there a suitable work around on
>> this for both grads and opengrads users? I know there is a work around with
>> some of you implementing Zeller's congruence but alas I have no idea how
>> to code or where to code it to.
>>
>>
>> Any help on the matter would be greatly apricated.
>> --
>>
>> Kind regards,
>>
>> *Stuart Markham*
>>
>> *Founder of CW Weather*
>>
>> *Website: chorleyweather.com <https://www.chorleyweather.com/>*
>> _______________________________________________
>> gradsusr mailing list
>> gradsusr at gradsusr.org
>> http://gradsusr.org/mailman/listinfo/gradsusr
>
>
> _______________________________________________
> gradsusr mailing list
> gradsusr at gradsusr.org
> http://gradsusr.org/mailman/listinfo/gradsusr
>
>
> --
>
> Kind regards,
>
> *Stuart Markham*
>
> *Founder of CW Weather*
>
> *Website: chorleyweather.com <https://www.chorleyweather.com/>*
> _______________________________________________
> gradsusr mailing list
> gradsusr at gradsusr.org
> http://gradsusr.org/mailman/listinfo/gradsusr
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://gradsusr.org/pipermail/gradsusr/attachments/20201222/547a9dc2/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 6b66f0ed.png
Type: image/png
Size: 11158 bytes
Desc: not available
URL: <http://gradsusr.org/pipermail/gradsusr/attachments/20201222/547a9dc2/attachment-0002.png>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 6b66f0ed.png
Type: image/png
Size: 11158 bytes
Desc: not available
URL: <http://gradsusr.org/pipermail/gradsusr/attachments/20201222/547a9dc2/attachment-0003.png>


More information about the gradsusr mailing list