VBA等效於Excel中的IF（OR（））公式

Question

在Excel中，我有一個使用IF()和OR()函數的函數。我希望在Access VBA中編寫一個等效的函數。我該如何着手編寫代碼？

=IF(OR($X9=1,$X9=2,$X9=3),Y9-1,Y9) 

我打算這個功能是否使用作爲一個模塊：

Function iyear(month as string, year as string) as string 

因此，在這種情況下，$ X9將是一個月，Y9將是今年。

Answer 1

以及在VBA中，你可以做這樣的事情

Function iyear(month As Long, year As Long) As Long 
    If month = 1 Or month = 2 Or month = 3 Then 
     iyear = year - 1 
    Else 
     iyear = year 
    End If 
End Function 

Sub Main() 
    MsgBox "month = 1, year = 2013" & vbNewLine & "iyear returns: " & iyear(1, 2013) & vbNewLine & vbNewLine & _ 
      "month = 4, year = 2013" & vbNewLine & "iyear returns: " & iyear(4, 2013) 
End Sub