diff --git a/src/Handler/Utils/DateTime.hs b/src/Handler/Utils/DateTime.hs
index 14693fe6a..edcfbdc42 100644
--- a/src/Handler/Utils/DateTime.hs
+++ b/src/Handler/Utils/DateTime.hs
@@ -167,6 +167,8 @@ validDateTimeFormats _ SelFormatDate = Set.fromList
   , DateTimeFormat "%A %d.%m.%Y"
   , DateTimeFormat "%Y-%m-%d"
   , DateTimeFormat "%y-%m-%d"
+  , DateTimeFormat "%d-%m-%Y"
+  , DateTimeFormat "%d-%m-%y"
   ]
 validDateTimeFormats TimeLocale{..} SelFormatTime = Set.fromList . concat . catMaybes $
   [ Just
@@ -336,7 +338,7 @@ instance Csv.FromField ZonedTime where
                  return $ utcToZonedTime _ltuResult
 
       parseFormats = do
-        date <- ["%Y-%m-%d", "%d.%m.%Y"]
+        date <- ["%Y-%m-%d", "%d.%m.%Y", "%d-%m-%Y"]
         sep <- ["T", " "]
         doZone <- [True, False]
         let zone = bool "" "%z" doZone