Question

我想知道是否可以在访问中执行此操作。

我试图在日期更改时自动降低值。

例如，我有这段时间可以说是从今天开始的3个月。今天2015年12月27日，这本书的价值是50，然后在12月28日的第二天，这本书的价值是48，依此类推。在3个月之后，该书的价值将为0。

那么，是否可以在访问中执行此操作？如果可能，我该怎么做？

感谢您的帮助。

Answer 1

您可以使用：

Dim IntroPrice As Currency
Dim PublishingDate As Date
Dim Period As Integer
Dim CurrentPrice As Currency
Dim Days As Integer

IntroPrice = 50
PublishingDate = DateSerial(2015, 12, 27)
Period = 90
Days = DateDiff("d", PublishingDate, Date)
If Days >= Period Then
    CurrentPrice = 0
Else
    CurrentPrice = IntroPrice * (90 - Days) / 90
End If

ms访问2007年自动减少值作为日期更改

1 个答案: