-- | Create unusual format: 12005 from 01.01.2005
getDateOfYearIntFromDateInt :: DateInt
                            -> Int
getDateOfYearIntFromDateInt di =
    let
        d = dateFromDateInt di
    in
      let (j,m,t) = Date.toGregorian d
      in (fromIntegral (Date.diffDays d (Date.fromGregorian j 1 1))) * 10000 + (fromIntegral j)
getDateOfYearIntFromDateInt :: DateInt
                            -> Int
getDateOfYearIntFromDateInt di =
    let
        d = dateFromDateInt di
    in
      let (j,m,t) = Date.toGregorian d
      in (fromIntegral (Date.diffDays d (Date.fromGregorian j 1 1))) * 10000 + (fromIntegral j)
getDateOfYearIntFromDateInt di =
    let
        d = dateFromDateInt di
    in
      let (j,m,t) = Date.toGregorian d
      in (fromIntegral (Date.diffDays d (Date.fromGregorian j 1 1))) * 10000 + (fromIntegral j)