This is the formula I use to convert JDE Julian dates:-
NumberVar Year1;
StringVar Date1;
NumberVar Cent1;
Date1 :=ToText({AS400.FIELDNAME}, "000000");
Cent1 :=ToNumber(Date1[1]);
Year1 :=If Cent1 = 0 then
(ToNumber(Date1[2 to 3]) + 1900)
Else if Cent1 = 1 then...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.