VBA中两个整数相除 怎样返回向下取整的整数结果?

数字取整可以用下述5种函数完成：

1、四舍五入取整 =ROUND(A1,0)，Round函数返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。除数值外，也可对日期进行舍入运算。

2、截去小数取整=ROUNDDOWN(A1,0)，Rounddown函数是指靠近零值,向下(绝对值减小的方向)舍入数字。

3、地板函数向下取值 =FLOOR(A1,1)  ，floor(x)，也写做Floor(x)，其功能是“向下取整”，或者说“向下舍入”，即取不大于x的最大整数（与“四舍五入”不同，下取整是直接取按照数轴上最接近要求值的左边值。

4、舍弃小数部分=TRUNC(A1)，trunc是一种函数，功能和函数INT类似，是截取日期或数字，返回指定的值。函数trunc直接去除数字的小数部分，而函数INT则是向下舍入到最接近的整数。

5、截去小数向下取整 =INT(A1)，这种方式是强制类型转换，取值截断小数部分，四舍五入。Int是将一个数值向下取整为最接近的整数的函数。INT是数据库中常用函数中的取整函数，常用来判别一个数能否被另一个数整除。

参考资料来源：百度百科-VBA

两个指定日期间的时间间隔数目的VBA函数
返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。
语法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函数语法中有下列命名参数：
部分 描述
interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔
Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。
设置
interval 参数的设定值如下：
设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
firstdayofweek 参数的设定值如下：
常数 值 描述
vbUseSystem 0 使用 NLS API 设置。
vbSunday 1 星期日（缺省值）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
常数 值 描述
vbUseSystem 0 用 NLS API 设置。
vbFirstJan1 1 从包含 1 月 1 日的星期开始（缺省值）。
vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。
vbFirstFullWeek 3 从第一个无跨年度的星期开始。
说明
DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。例如，可以使用 DateDiff 来计算两个日期之间相隔几日，或计算从今天起到年底还有多少个星期。
为了计算 date1 与 date2 相差的日数，可以使用“一年的日数”(y) 或“日”(d)。当 interval 是“一周的日数”(w) 时，DateDiff 返回两日期间的周数。如果 date1 是星期一，DateDiff 计算到 date2 为止的星期一的个数。这个数包含 date2 但不包含 date1。不过，如果 interval 是“周”(ww)，则 DateDiff 函数返回两日期间的“日历周”数。由计算 date1 与 date2 之间星期日的个数而得。如果 date2 刚好是星期日，则 date2 也会被加进 DateDiff 的计数结果中；但不论 date1 是否为星期日，都不将它算进去。
如果 date1 比 date2 来得晚，则 DateDiff 函数的返回值为负数。
firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。
如果 date1 或 date2 是日期文字，则指定的年份成为该日期的固定部分。但是，如果 date1 或 date2 用双引号 (" ") 括起来，且年份略而不提，则在每次计算表达式 date1 或 date2 时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。
在计算 12 月 31 日和来年的 1 月 1 日的年份差时，DateDiff 返回 1 表示相差一个年份，虽然实际上只相差一天而已。
DateDiff 函数示例
本示例使用 DateDiff 函数来显示某个日期与今日相差几天。
Dim TheDate As Date ' 声明变量。
Dim Msg
TheDate = InputBox("Enter a date")
Msg = "Days from today: " & DateDiff("d", Now, TheDate)
MsgBox Msg

方法有两种。
第一种，自定一个变量类型，里面含两个元素，一个x、一个y。处理坐标通常都这样。
第二种，private function 函数（输入1 as ，输入2 as ，输入3 as ，输入4 as ，输入5 as ，输入6 as ，输出1 as ，输出2 as ）as boolean
函数值是返回执行是否成功的逻辑值，大型程序一般都这样处理

去掉自定义函数名称中的数字，改前期为后期，修正逻辑
Function ts(ByVal sr As Range, ByVal ze As Range, ByVal t As Range)
Dim x, y, z, m, reg As Object
Set reg = CreateObject("vbscriptregexp")
With reg
Global = True
Pattern = zeText
If t = 1 Then
ts = Replace(sr, "")
Else
If test(sr) = False Then
ts = "无匹配"
Else
ts = Execute(sr)(0)
End If
End If
End With
End Function

---