مقایسه تاریخ

[automa]

سلام
یه برنامه برای مقایسه دو تاریخ نوشتم ولی پیغام خطا می ده
لطفا کمک کنید مشکلش حل بشه
باتشکر

[Di Di]

کد:

Public Function FDate(Jdate As String) As String

Dim Year As String, Month As String, day As String
If Len(Jdate) < 8 Then
    day = Right(Jdate, 2)
    Month = Mid(Jdate, 3, 2)
    Year = Left(Jdate, 2)
Else
    day = Right(Jdate, 2)
'**********************************************
    Month = Mid(Jdate, 6, 2)
'**********************************************
    Year = Left(Jdate, 4)
End If
FDate = Year + "/" + Month + "/" + day

End Function

[automa]

llk,k