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

Answer 2

变量f的声明是变体。但是如果调用format函数，结果将以字符串形式转换。那么你想要将long类型的f1与字符串进行比较。这就是问题。将f与f1 BEFOR进行比较，调用格式函数。