1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
' JD EDWARDS (средство программирования AS/400) использует вызванные даты ЮЛИАНСКИМИ. 'ЮЛИАНСКАЯ дата определяет год во-первых, после этого число дней в год то 'его дата появляется. Так, 15-ое января 1999 99015. 15-ое марта 99074. 15-ое марта 2001 '101074 даты в Y2K начинают с 100 (2000), 101 (2001) etc. StartDate = форма («01/15/2000») TempFromDate = DateValue (StartDate) TempYr = 100 + Val (форма (TempFromDate, «yyyy»)) - Val (форма (DateValue («01/01/2000»), «yyyy»)) TempYr = TempYr * 1000 TempString = «01/01/» + форма (TempFromDate, «yyyy») fromdate = TempYr + TempFromDate - DateValue (TempString) + 1