From 7149a0cdf815384da13e9cd4d1f3c22cc29ff52f Mon Sep 17 00:00:00 2001
From: Corentin Leruth <corentin.leruth@ahrefs.com>
Date: Wed, 4 Jun 2025 14:11:24 +0000
Subject: [PATCH] time: add years, to_years and round_years

---
 time.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/time.ml b/time.ml
index 9f313c9..9344ba0 100644
--- a/time.ml
+++ b/time.ml
@@ -257,12 +257,14 @@ let of_compact_duration s =
 let seconds_1m = 60
 let seconds_1h = seconds_1m * 60
 let seconds_1d = seconds_1h * 24
+let seconds_1y = seconds_1d * 365
 
 let time_x factor = (fun x -> float @@ factor * x), (fun x -> int_of_float x / factor), (fun x -> float (int_of_float x / factor * factor))
 let (seconds,to_seconds,round_seconds) = time_x 1
 let (minutes,to_minutes,round_minutes) = time_x seconds_1m
 let (hours,to_hours,round_hours) = time_x seconds_1h
 let (days,to_days,round_days) = time_x seconds_1d
+let (years,to_years,round_years) = time_x seconds_1y
 
 (** convert integer number of milliseconds to Time.t *)
 let msec x = float x /. 1000.