INTEGER-OF-DATE

Für die Umsetzung wird die migrationsunterstützende Erweiterungsmethode IntegerOfDate verwendet.

Beispiele

  1. COMPUTE N-ZAPF-D0 = FUNCTION DATE-OF-INTEGER
  2.                     (FUNCTION INTEGER-OF-DATE
  3.             ((SNLPRIS-RIS-RI-ZA-PFL-BEG-XJ * 10000) +
  4.              (SNLPRIS-RIS-RI-ZA-PFL-BEG-MM * 100) +
  5.              (SNLPRIS-RIS-RI-ZA-PFL-BEG-TT)))
  6. END-COMPUTE
NZapfD0 = (((Snlpris.RisRiZaPflBegD0.Year * 10000) + (Snlpris.RisRiZaPflBegD0.Month * 100) + (Snlpris.RisRiZaPflBegD0.Day)).IntegerOfDate()).DateOfInteger();