VBA造轮子？？

VBA是一种编程语言，可以使用其内置的函数和对象来创建自己的程序和功能。造轮子是指在VBA中创建自己的函数或者类，以便在项目中多次使用。

一个经典的示例是制作一个日期计算器的功能。假设你需要在VBA中计算两个日期之间的时间差。我们可以使用DateDiff函数来实现此目的，但是如果我们要在项目中经常使用这个功能，就可以创建自己的函数来简化代码。

我们可以创建一个名为“DateDiffDays”的函数，用于计算两个日期之间的天数差。下面是该函数的代码：

Function DateDiffDays(startDate As Date, endDate As Date) As Integer
    DateDiffDays = DateDiff("d", startDate, endDate)
End Function
在上面的代码中，我们使用了DateDiff函数来计算天数差，并将结果作为函数的返回值。这个函数有两个参数：startDate和endDate，它们分别代表两个日期。

现在，我们已经成功地创建了自己的函数，可以在需要计算两个日期之间天数差的地方直接调用该函数。例如，在另一个VBA模块中，我们可以使用以下代码调用该函数：

Sub TestDateDiff()
    Dim start As Date
    Dim end As Date
    Dim days As Integer

    start = #1/1/2020#
    end = #1/15/2020#

    days = DateDiffDays(start, end)

    MsgBox "The number of days between " & start & " and " & end & " is " & days
End Sub
在上面的代码中，我们首先定义了两个日期变量start和end，然后调用我们刚刚创建的函数来计算这两个日期之间的天数差，并将结果赋值给一个整数变量days。最后，我们使用MsgBox函数来显示计算结果。

通过上面的示例，我们可以看到，在VBA中创建自己的函数或类非常简单，只需要使用Function或者Sub关键字即可。通过这种方式，我们可以在项目中大量使用已经编写好的代码，提高效率和减少错误。