Templates in Visual Basic 6

Option Explicit

Function ByteArray(ParamArray Elements()) As Byte()
        Dim ret() As Byte
        ReDim ret(LBound(Elements) To UBound(Elements))
        For i = LBound(Elements) To UBound(Elements)
                ret(i) = CByte(Elements(i))
        Next i
        ByteArray = ret
End Function

Function BoolArray(ParamArray Elements()) As Boolean()
        Dim ret() As Boolean
        ReDim ret(LBound(Elements) To UBound(Elements))
        For i = LBound(Elements) To UBound(Elements)
                ret(i) = CBool(Elements(i))
        Next i
        BoolArray = ret
End Function

Function CurArray(ParamArray Elements()) As Currency()
        Dim ret() As Currency
        ReDim ret(LBound(Elements) To UBound(Elements))
        For i = LBound(Elements) To UBound(Elements)
                ret(i) = CCur(Elements(i))
        Next i
        CurArray = ret
End Function

Function DateArray(ParamArray Elements()) As Date()
        Dim ret() As Date
        ReDim ret(LBound(Elements) To UBound(Elements))
        For i = LBound(Elements) To UBound(Elements)
                ret(i) = CDate(Elements(i))
        Next i
        DateArray = ret
End Function

Function DblArray(ParamArray Elements()) As Date()
        Dim ret() As Double
        ReDim ret(LBound(Elements) To UBound(Elements))
        For i = LBound(Elements) To UBound(Elements)
                ret(i) = CDbl(Elements(i))
        Next i
        DblArray = ret
End Function

Function DecArray(ParamArray Elements()) As Variant()
        Dim ret() As Variant
        ReDim ret(LBound(Elements) To UBound(Elements))
        For i = LBound(Elements) To UBound(Elements)
                ret(i) = CDec(Elements(i))
        Next i
        DecArray = ret
End Function

Function IntArray(ParamArray Elements()) As Integer()
        Dim ret() As Integer
        ReDim ret(LBound(Elements) To UBound(Elements))
        For i = LBound(Elements) To UBound(Elements)
                ret(i) = CInt(Elements(i))
        Next i
        IntArray = ret
End Function

Function LngArray(ParamArray Elements()) As Long()
        Dim ret() As Long
        ReDim ret(LBound(Elements) To UBound(Elements))
        For i = LBound(Elements) To UBound(Elements)
                ret(i) = CLng(Elements(i))
        Next i
        LngArray = ret
End Function

Function SngArray(ParamArray Elements()) As Single()
        Dim ret() As Single
        ReDim ret(LBound(Elements) To UBound(Elements))
        For i = LBound(Elements) To UBound(Elements)
                ret(i) = CSng(Elements(i))
        Next i
        SngArray = ret
End Function

Function StrArray(ParamArray Elements()) As String()
        Dim ret() As String
        ReDim ret(LBound(Elements) To UBound(Elements))
        For i = LBound(Elements) To UBound(Elements)
                ret(i) = CStr(Elements(i))
        Next i
        StrArray = ret
End Function

Function VarArray(ParamArray Elements()) As Variant()
        Dim ret() As Variant
        ReDim ret(LBound(Elements) To UBound(Elements))
        For i = LBound(Elements) To UBound(Elements)
                ret(i) = CVar(Elements(i))
        Next i
        VarArray = ret
End Function

Function VDateArray(ParamArray Elements()) As Variant()
        Dim ret() As Variant
        ReDim ret(LBound(Elements) To UBound(Elements))
        For i = LBound(Elements) To UBound(Elements)
                ret(i) = CVDate(Elements(i))
        Next i
        VDateArray = ret
End Function

Function VErrArray(ParamArray Elements()) As Variant()
        Dim ret() As Variant
        ReDim ret(LBound(Elements) To UBound(Elements))
        For i = LBound(Elements) To UBound(Elements)
                ret(i) = CVErr(Elements(i))
        Next i
        VErrArray = ret
End Function