VBA类型不匹配时出错(错误13)

Question

我的代码:

Sub sem()
Dim f As Variant
Dim f1 As Long
Dim F2 As Long

f = Format(DTPFechaFalla, "yyyymmdd")
f1 = 20141227
F2 = 20150124


    If (f >= f1) & (f <= F2) Then
       Week = 1
       month = 1
    Else
       MsgBox "Fale"
    End If

End Sub

Answer 1

If (f >= f1) & (f <= F2) Then

应该

If (f >= f1) And (f <= F2) Then