以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助][求助]如何让日期加一天  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174109)
--  作者：老鼠
--  发布时间：2021/12/31 22:03:00
--  [求助][求助]如何让日期加一天

 

这是原代码：

With Tables("基本数据.聘任")
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then

        Dim r As Row =   Tables("基本数据.聘任").AddNew()
        If r.Index > 0 Then
            r("等级") = Tables("基本数据.聘任").Rows(r.Index-1 )("等级")
            r("聘任起始日") = Tables("基本数据.聘任").Rows(r.Index-1 )("聘任到期日")
        End If
    End If
End With

 

 


如何让这个如何让这个红色代码段值加一天？？？？或者说是让“聘任到期日”多加一日。
[此贴子已经被作者于2021/12/31 22:05:12编辑过]
--  作者：wei0769
--  发布时间：2021/12/31 22:40:00
--  

AddDays

给日期值加上指定的天数。

语法：

AddDays(Value)

Value: 要加上的天数，可以是负数也可以是正数。

例如：

Dim d As Date = #2/28/2008#
Dim d1 As Date = d.AddDays(40) \'加上40天
Dim d2 As Date = d.AddDays(-40) \'减去40天
Output.Show("40天后的日期：" & d1)
Output.Show("40天前的日期：" & d2)
--  作者：有点蓝
--  发布时间：2022/1/3 20:15:00
--  
参考：http://www.foxtable.com/webhelp/topics/1337.htm