|
midrange.com
I think this should work but can't test it right now. It is certainly going
to be faster than any of the alternatives offered to date.
d IsoEuro pr 8s 0
d DateNum 8s 0 value
p IsoEuro b export
d IsoEuro pi 8s 0
d DateNum 8s 0 value
d DS
d InpDate 8s 0
d IYear 4s 0 overlay(InpDate)
d IMonth 2s 0 overlay(InpDate: *Next)
d IDay 2s 0 overlay(InpDate: *Next)
d OutDate 8s 0
d ODay 2s 0 overlay(OutDate)
d OMonth 2s 0 overlay(OutDate: *Next)
d OYear 4s 0 overlay(OutDate: *Next)
/FREE
OYear = IYear;
OMonth = IMonth;
ODay = IDay;
return OutDate;
/END-FREE
p IsoEuro e
Jon Paris
Partner400
www.Partner400.com
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
