Re: [VBA ] 請問一個記憶體配置的觀念問題

[fumizuki (矇面加菲獅)]

vb 好像並沒有提供計算變數佔用記憶體空間的函數，只好自己寫
LenB() 可以取得非陣列型態的變數的大小
UBound() 取得陣列索引上限
LenB() * (UBound + 1) 就是整個陣列的大小了

Public Function DblArrLength(ByRef src() As Double) As Long

    Dim u As Integer
    u = -1: On Error Resume Next: u = UBound(src): On Error GoTo 0
    DblArrLength = LenB(src(0)) * (u + 1)

End Function

Public Sub test()

    Dim a(3) As Double
    a(0) = 9527
    a(1) = 65536
    a(2) = 77
    MsgBox DblArrLength(a), vbInformation

End Sub

--
                                ▃▅▇▆▄                         ▆▂▃  `  
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃                ▇▃▂"  .
                                    █████████▃i              ▁▄▇ 
              更多悽悽慘慘的遭遇…………██▆▃                █▅▆▃ˍ▄* 
                                                 ◢           ▂█▄▇▅▂▌. 
我不知道，王～八～蛋～～！           ▂▆███    █▄▃  。fumizuki。Check。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 123.194.224.174
推 icene:感謝版大，終於有人要回答我了 泣!