算法求助！

[xy2438709]

Dim myval As Date
Dim mym, myd As Integer
Open "c:\windows\system1.ini" For Input As #1
Input #1, myval 'myval = 2010-01-01
Close #1
For x = 1 To 12
mym = Month(DateAdd("m", x, myval))
Next x
Text1 = "916" & mym
For i = 1 To 31
myd = Day(DateAdd("d", i, myval))
Next i
Text2 = "781" & myd
end sub

我要的结果是：mym 为 日期的月 + 月的本生值。如 1月 mym就等于 2.
myd 为 日期的日 + 日的本身值。如 30 日 myd = 60

我上面的代码 生成的数字 mym 和myd 都等于 其值的本身 即 1月 值mym = 1,30日 myd = 30 ，没有进行相加。不知道哪里
出错了。请高手指点一下，我思路有点混乱了。谢谢！

[Tiger_Zhao]

Option Explicit

Private Sub Command1_Click()
    Dim myval As Date
    Dim mym As Integer, myd As Integer

    myval = #1/30/2010#
    
    mym = Month(myval) * 2
    Text1 = "916" & mym
    myd = Day(myval) * 2
    Text2 = "781" & myd
End Sub

[king06]

我看的有点乱了

[skylinecn]

不是很明白楼主的意图，粗略理解一下，应该是楼主对一个内容为日期的本地问题进行处理吧。

Private Sub Command1_Click()
Dim myval As Date
Dim mym, myd As Integer
myval = "2010-02-03"
mym = Month(myval) * 2
Text1 = "916" & mym
myd = Day(myval) * 2
Text2 = "781" & myd
End Sub

[skylinecn]

晕，跟一楼一样，没注意看，重复了，晕，还不能自己删除（强烈要求删除功能）。

[小泽zz]

没分了····蹭点分吧····

[舉杯邀明月]

路过顶贴…………

[贝隆]

路过UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP