From 867cce7c133331b66c153de938ffed75c6f329e1 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Tue, 22 Dec 2020 11:57:50 +0100
Subject: [PATCH] Language: add ToEnum for Integer and Long

---
 Modules.Language/Utils.vb | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/Modules.Language/Utils.vb b/Modules.Language/Utils.vb
index c7cda3b6..d619ef7f 100644
--- a/Modules.Language/Utils.vb
+++ b/Modules.Language/Utils.vb
@@ -22,6 +22,24 @@ Public Class Utils
         Return [Enum].Parse(GetType(T), value)
     End Function
 
+    ''' <summary>
+    ''' Converts an Integer value to the given Enum
+    ''' </summary>
+    ''' <typeparam name="T">The Enum Type</typeparam>
+    ''' <param name="value">The integer value to convert</param>
+    Public Shared Function ToEnum(Of T)(value As Integer) As T
+        Return [Enum].ToObject(GetType(T), value)
+    End Function
+
+    ''' <summary>
+    ''' Converts a Long value to the given Enum
+    ''' </summary>
+    ''' <typeparam name="T">The Enum Type</typeparam>
+    ''' <param name="value">The long value to convert</param>
+    Public Shared Function ToEnum(Of T)(value As Long) As T
+        Return [Enum].ToObject(GetType(T), value)
+    End Function
+
     Public Shared Function ToBoolean(input As String) As Boolean
         If String.IsNullOrEmpty(input) Then Return False
         Return (input.Trim().ToLower() = "true") OrElse (input.Trim() = "1")