原始文件
1月 2月 3月 4月 5月 6月 7月 8月 9月 10月 11月 12月
高度 1 2 3 ` 3 4 4 6 6 8 8 8 8
转换成
1日 2日 3日 4日。。。。。。。365日
高度
格式不用这样的格式 意思就是这样
但程序中一直要用到这个转换， 所以准备自定义成子过程
但是没有接触过 参数为多维数组的子过程 所以运行的时候问题多多
把程序写在下面，请大家指点我该怎么修改？
补充下：下面的程序中 i , j要代表不同的地区 所以 数组得是三维的
Public Sub d0_z0(x() As Variant, y() As Variant)
Dim i, j, m
Dim x(i, j, 12), y(i, j, 365)
For m = 1 To 365
Select Case m
Case 1 To 31
y(i, j, m) = x(i, j, 1)
Case 32 To 59
y(i, j, m) = x(i, j, 2)
Case 60 To 90
y(i, j, m) = x(i, j, 3)
Case 91 To 120
y(i, j, m) = x(i, j, 4)
Case 121 To 151
y(i, j, m) = x(i, j, 5)
Case 152 To 181
y(i, j, m) = x(i, j, 6)
Case 182 To 212
y(i, j, m) = x(i, j, 7)
Case 213 To 243
y(i, j, m) = x(i, j, 8)
Case 244 To 273
y(i, j, m) = x(i, j, 9)
Case 274 To 304
y(i, j, m) = x(i, j, 10)
Case 305 To 334
y(i, j, m) = x(i, j, 11)
Case 335 To 365
y(i, j, m) = x(i, j, 12)
End Select
Next m
End Sub
[此贴子已经被作者于2007-9-7 15:26:16编辑过]
