Re: Julian date calculations across years

[Booth Martin <booth@xxxxxxxxxxxx>]

Consider a callable RPG program with this line:

  newdate = %date() - %days(7);

Define newDate as a true date field.  newDate will come back to you as a 
date field and you can then use that date in whatever format you need.


On 1/6/2020 11:16 AM, Howie, Bill wrote:
> Jon,
>
> The logic does the following, all in CL:
>
>
>    *   Retrieves the system date into a character field, 6 long.
>    *   Uses CVTDAT to convert the date into a Long Julian format, field is character, length 7
>    *   Then it puts the Long Julian value into a decimal field, length 7 and subtracts 7 from that
>    *   It then moves that result back to the character field, length 7, used in step 2
>    *   Then tries a CVTDAT to convert that to an ISO date and blows up
>
> Bill Howie | Senior ERP Programmer/Analyst Consultant
> The HC Companies | 2450 Edison Blvd, Suite 3, Twinsburg OH 44087
> Direct: 330.487.3739 | Cell: 330.495.5627 | Toll Free: 800.225.7712
>
> The HC Companies, Inc.<http://www.hc-companies.com/> - North America's Leading Provider of Containers for Horticulture
> Dillen | ITML | ProCal | Kord | Amerikan | Planters' Pride
> >From Grower to Gardener, Improving Our World
> [Related image]<https://www.linkedin.com/company/the-hc-companies>  [Related image] <https://www.facebook.com/HCCompanies/>
>
> Disclaimer
>
> The information contained in this communication from the sender is confidential. It is intended solely for use by the recipient and others authorized to receive it. If you are not the recipient, you are hereby notified that any disclosure, copying, distribution or taking action in relation of the contents of this information is strictly prohibited and may be unlawful.
>
> This email has been scanned for viruses and malware, and may have been automatically archived by Mimecast Ltd, an innovator in Software as a Service (SaaS) for business. Providing a safer and more useful place for your human generated data. Specializing in; Security, archiving and compliance. To find out more visit the Mimecast website.