# which should correspond to the end of the period.
# The result is DAT2.
# LIBCLE corresponds to the label for the period in alphanumeric format.
Subprog BORNES(DAT1,DAT2,LIBCLE)
Value Date DAT1
Variable Date DAT2
Variable Char LIBCLE
# This sub-program is used to identify a date (defined par DA1) that will correspond to the start of the period.
Subprog CADRE(DAT1)
Variable Date DAT1# This sub-program returns in DAT2 the end of the period defined by DAT1
Subprog DATFIN(DAT1,DAT2)
Value Date DAT1
Variable Date DAT2# This sub-program returns the number of periods (signed) separating the two dates
Subprog DECAL(DAT1,DAT2,DECAL)
Value Date DAT1
Value Date DAT2
Variable Integer DECAL# This sub-program adds a number of periods (signed) to an end date
Subprog RECAL(DAT1,DAT2,DECAL)
Value Date DAT1
Variable Date DAT2
Value Integer DECALAn example of such sub-program can be consulted by looking at the SUBSTADEC process, which defines the sub-program corresponding to management by decade.