dateTimeToDateTimeRec function

TDateTimeRec dateTimeToDateTimeRec(
  1. TFieldType dt,
  2. DateTime data
)

Implementation

TDateTimeRec dateTimeToDateTimeRec(TFieldType dt, DateTime data) {
  final ts = dateTimeToTimeStamp(data);
  final result = TDateTimeRec();
  switch (dt) {
    case TFieldType.ftDate:
      result.date = ts.date;
      break;
    case TFieldType.ftTime:
      result.time = ts.time;
      break;
    default:
      result.dateTime = timeStampToDateTime(mSecsToTimeStamp(
          timeStampToMSecs(ts))); // the object representation of DateTime:=TimeStampToMSecs(TS) —
      // TDateTimeRec.dateTime stores the DateTime directly (convention 1)
  }
  return result;
}