pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

create function maxint to return a max given to args

Browse Source
This commit is contained in:
Paul Trowbridge 2017-09-27 12:57:10 -04:00
parent 7c746f7e62
commit e947cb97d7
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
TheBigOne.cls
View File

@ -1247,6 +1247,25 @@ Public Function MISCe_CompareDouble(ByRef base As Double, ByRef compare As Doubl
End Function End Function
Public Function MISCe_MaxInt(ByRef base As Integer, ByRef compare As Integer) As Integer
If compare < base Then
MISCe_MaxInt = base
Exit Function
End If
If compare = base Then
MISCe_MaxInt = compare
Exit Function
End If
If compare > base Then
MISCe_MaxInt = compare
Exit Function
End If
End Function
Public Function MISCe_CompareDate(ByRef base As Date, ByRef compare As Date) As Integer Public Function MISCe_CompareDate(ByRef base As Date, ByRef compare As Date) As Integer