在 rescript 和夏令时获取范围内的日期

如何解决在 rescript 和夏令时获取范围内的日期

我的网站中有一个日历，它采用开始日期和结束日期并将它们传递给一个函数，该函数计算 . 让我们有开始日期 Mon Mar 29 2021 03:00:00 GMT+0300 (Eastern European Summer Time) 和结束日期 Mon Apr 05 2021 03:00:00 GMT+0300 (Eastern European Summer Time) ；这个函数应该返回 ["30/3/2021","31/3/2021","1/4/2020","2/4/2020","3/4/2020","4/4/ 2020"]

let getDatesInRange = (start,end) => {
  let dates = ref([])
  let current = ref(start)

  while current.contents <= end {
    dates := dates.contents->Js.Array2.concat([current.contents->toUTCDateString])
    current := {
        let date = current.contents->toUTCDateString->Js.Date.fromString
        date->Js.Date.setDate(date->Js.Date.getDate +. 1.0)->ignore

        date
      }
  }

  dates.contents
}

这是 toUTCDateString 函数，它接受一个日期并给出它的字符串版本

let toUTCDateString = date => {
  let date = date->External.unSafeCastToJsObject

  date["toISOString"]()["split"]("T")[0]
}

这些功能可以正常工作，直到夏令时的时间发生变化；我们获得了一个小时，所以一天由于某种原因被困在那里 任何机构以前遇到过这个问题，谁来处理这样的时间问题？