diff --git a/bin/months_to_balance b/bin/months_to_balance
index 31e928649ef063906fd5faa0705230657166fe26..281f40e1bf0dd846cd11f287e6652c5a627bde1a 100755
--- a/bin/months_to_balance
+++ b/bin/months_to_balance
@@ -30,7 +30,7 @@ rows.each do |r|
 			VALUES ($1, $2, $3, 'months_to_balance')
 		SQL
 		DB.exec(<<~SQL, [cid, r["expires_at"]])
-			UPDATE plan_log SET date_range = date_range - tsrange(LOCALTIMESTAMP + '1 month', UPPER(date_range))
+			UPDATE plan_log SET date_range = date_range - tsrange(LOCALTIMESTAMP + '1 month' + make_interval(days := (DATE_PART('day', UPPER(date_range)) - DATE_PART('day', LOCALTIMESTAMP))::int), UPPER(date_range))
 			WHERE customer_id=$1 AND UPPER(date_range)=$2
 		SQL
 	end