excel 如何修改此代码以增加月数而不是天数?

v9tzhpje  于 2023-02-05  发布在  其他
关注(0)|答案(2)|浏览(108)

请帮助。我有一个表单,其中文本框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

fnx2tebb

fnx2tebb1#

您将需要使用dateadd

For i = 1 To 15
    If i = 1 Then
        Me("h" & i) = TextBox3.Text
    Else
        Me("h" & i) = Format(DateAdd("m", i-1, CDate(Me.TextBox3.Value)), "dd/mm/yyyy")
    End If
Next i
bgibtngc

bgibtngc2#

我还不能发表评论(缺乏声誉),否则我会,你说的“步骤”的建议,由前进艾德是行不通的,是textbox6的值是一个数字??如果例如它的“6个月”,这将不起作用,如果它是一个数字,如果它是一个数字,你可以检查它的格式是否为数字,在第二个图像它说3,但我可能是一个字符串“3”,你应该检查,如果它是一个字符串,使用CInt(文本框6.value)

相关问题