strtoint() is used, code is attached.
%DOB
define(&dobYYYY,integer,0)
set(&dobYYYY,strtoint(@(6,7,10)))
define(&dobDD,integer,0)
set(&dobDD,strtoint(@(6,1,2)))
define(&dobMM,integer,0)
set(&dobMM,strtoint(@(6,4,5)))
%Effective DD,MM date
define(&EfectiveDD,integer,0)
set(&EfectiveDD,strtoint(@(7,1,2)))
define(&EfectiveMM,integer,0)
set(&EfectiveMM,strtoint(@(7,4,5)))
define(&ExpirYear,integer,0)
define(&ExpirYear1,integer,0)
%Find the expiration Year
define(&ExpirationYear,integer,0)
&ExpirationYear := &dobYYYY + 65 % this works fine
%find if DOB DD&MM is bigger then Effective DD&MM
if((&dobMM >= &EfectiveMM)and(&dobDD >= &EfectiveDD))
&ExpirationPlusOne := inttostr(&ExpirationYear + 1)
else
&ExpirationPlusOne := inttostr(&ExpirationYear)
endif()
&Expiration := inttostr(&ExpirationYear)
variable type is string for:
&Expiration
&ExpirationPlusOne
Edited by Sami786 (05/22/19 01:10 PM)
_________________________
Peace