Excel에서 IF (OR()) 공식에 해당하는 VBA

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