原始文件
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编辑过]

读过置顶帖吗？
建议你学习一下怎么提问。
假设你是没做过这个程序的，猛然看到你这帖子，怎么能读懂？

嘿~~~你看我的其他帖子 除了这个我都把置顶帖的地址复制进来了~~

我觉得我说的挺清楚的了 不知道这位同学有什么建议？

换个方法实现吧
天数 + 这一年的1月1日 - 1 = 这一天的日期
--> 月份
--> 高度

[此贴子已经被作者于2007-9-9 20:56:19编辑过]