fnIntegerOfDate function

dynamic fnIntegerOfDate(
  1. dynamic value
)

IntegerOfDate(yyyymmdd): converts YYYYMMDD to a COBOL internal date integer

Implementation

dynamic fnIntegerOfDate(dynamic value) {
  final n = varToInt(value);
  final y = n ~/ 10000, m = (n ~/ 100) % 100, d = n % 100;
  final serial = _toDelphiSerial(DateTime(y, m, d));
  return serial.round() + _kCobolDateOffset;
}