add max long function

2017-09-28 09:26:50 -04:00 · 2017-09-28 09:26:50 -04:00 · 949c561a13
commit 949c561a13
parent e947cb97d7
1 changed files with 19 additions and 0 deletions
--- a/TheBigOne.cls
+++ b/TheBigOne.cls
@ -2051,3 +2051,22 @@ Public Function json_from_table(ByRef tbl() As Variant, ByRef array_label As Str
    json_from_table = ajson

 End Function
+
+Public Function MISCe_MaxLng(ByRef base As Long, ByRef compare As Long) As Long
+
+    If compare < base Then
+        MISCe_MaxLng = base
+        Exit Function
+    End If
+    
+    If compare = base Then
+        MISCe_MaxLng = compare
+        Exit Function
+    End If
+    
+    If compare > base Then
+        MISCe_MaxLng = compare
+        Exit Function
+    End If
+
+End Function