请帮助。我有一个表单,其中文本框3表示分期付款的开始日期,另一个文本框6表示每月一次分期付款的付款期限,从H1到H15有15个文本框。需要修改此代码,以便从分期付款日期开始增加月数,因为它增加了天数。
For i = 1 To 15
If i = 1 Then
Me("h" & i) = TextBox3.Text
Else
Me("h" & i) = Format(CDate(Me.TextBox3.Value) + i - 1, "dd/mm/yyyy")
End If
Next i
enter image description here
需要修改此代码,以便随着天数的增加,月数从分期付款日期开始增加。enter image description here
2条答案
按热度按时间fnx2tebb1#
您将需要使用dateadd。
bgibtngc2#
我还不能发表评论(缺乏声誉),否则我会,你说的“步骤”的建议,由前进艾德是行不通的,是textbox6的值是一个数字??如果例如它的“6个月”,这将不起作用,如果它是一个数字,如果它是一个数字,你可以检查它的格式是否为数字,在第二个图像它说3,但我可能是一个字符串“3”,你应该检查,如果它是一个字符串,使用CInt(文本框6.value)