Elm:
เปรียบเทียบสองวันที่

import Time exposing (Posix)
import Date

compareDates : Posix -> Posix -> Order
compareDates date1 date2 =
    if date1 < date2 then
        LT  -- date1 เกิดขึ้นก่อน date2
    else if date1 > date2 then
        GT  -- date1 เกิดขึ้นหลัง date2
    else
        EQ  -- วันที่เหมือนกัน

-- ตัวอย่างการใช้งาน:
let
    date1 = Date.fromPosix <| Time.millisToPosix 1650931200000 -- เพิ่มวันที่แรกใน POSIX time
    date2 = Date.fromPosix <| Time.millisToPosix 1651017600000 -- และวันที่สองใน POSIX time
in
compareDates date1 date2
-- ผลลัพธ์จะเป็นอย่างใดอย่างหนึ่งระหว่าง LT, GT, หรือ EQ

timeDifference : Posix -> Posix -> Time.Duration
timeDifference date1 date2 =
    Time.millisToPosix date1 - Time.millisToPosix date2

-- ตัวอย่างการใช้งาน:
let
    date1 = Date.fromPosix <| Time.millisToPosix 1650931200000
    date2 = Date.fromPosix <| Time.millisToPosix 1651017600000
in
timeDifference date1 date2
-- ผลลัพธ์: ระยะเวลาในหน่วยมิลลิวินาที