numbers.bas

数字处理函数包(5KB)15datediff.zip指定两个日期计算相隔的天数

Attribute VB_Name = "Numbers"
Option Explicit

Function Largest(val1, val2)
   If val1 > val2 Then Largest = val1 Else Largest = val2
End Function

Function Smallest(val1, val2)
   If val1 < val2 Then Smallest = val1 Else Smallest = val2
End Function