From f2dbf774ea818b6cf65ba41cfb044626b1b2e2bc Mon Sep 17 00:00:00 2001
From: kaa <kaa@disroot.org>
Date: Thu, 26 Jun 2025 03:04:30 -0700
Subject: outlier

---
 outlier.vba | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 outlier.vba

diff --git a/outlier.vba b/outlier.vba
new file mode 100644
index 0000000..0dbfe7c
--- /dev/null
+++ b/outlier.vba
@@ -0,0 +1,20 @@
+Option VBASupport 1
+Option Compatible
+Function OUTLIER(range As Variant, value As Double) As Boolean
+	Dim q1 As Double
+	Dim q3 As Double
+	Dim iqr As Double
+	Dim max As Double
+	Dim min As Double
+
+	q1 = WorksheetFunction.QUARTILE(range, 1)
+	q3 = WorksheetFunction.QUARTILE(range, 3)
+	iqr = q3 - q1
+	max = iqr*1.5 + q3
+	min = q1 - iqr*1.5
+	If (value < min) Or (value > max) Then
+		OUTLIER = 1
+	Else
+		OUTLIER = 0
+	End If
+End Function
-- 
cgit v1.2.3