Ok, here is a weird one....
The following code WILL work correctly,,, But why..?
Type StationRecord
Number As String * 5
sData(1600 To 2100, 12) As Double
End Type
Function PbMain()
Dim Station As StationRecord
Dim RainArr() as double
'--- Add some data to Station ----
ReDim RainArr(1600 to 2200, 12) as double At VarPtr(Station.sData(1500,0))
End Function
OK, Why do I have to ReDim at 1500 rather than 1600 to get the data in the right spot...?????
TIA
Torben
The following code WILL work correctly,,, But why..?
Type StationRecord
Number As String * 5
sData(1600 To 2100, 12) As Double
End Type
Function PbMain()
Dim Station As StationRecord
Dim RainArr() as double
'--- Add some data to Station ----
ReDim RainArr(1600 to 2200, 12) as double At VarPtr(Station.sData(1500,0))
End Function
OK, Why do I have to ReDim at 1500 rather than 1600 to get the data in the right spot...?????
TIA
Torben
Comment