add max long function

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