daysfromjulian.sml

# get the number of days since the new year
numeric day = 20;
numeric mon = 4;
numeric year = 1996;
numeric formatted = year*10000 + mon*100 + day;

numeric jan1 = DateToJulian(year*10000 + 0101);
numeric sample = DateToJulian(formatted);
numeric days = sample - jan1 + 1;
print (days);