۰۴-آذر-۱۳۹۱, ۰۹:۳۲:۴۲
۰۶-آذر-۱۳۹۱, ۱۱:۲۷:۵۴
کد:
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۰۶-آذر-۱۳۹۱, ۱۹:۱۸:۰۳
llk,k