Re: [VBA ] 請問一個記憶體配置的觀念問題
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
推
05/07 23:49, , 1F
05/07 23:49, 1F
討論串 (同標題文章)