سلام دوستان ، سال نو مبارک
راهی که استاد گفنتد ممکنه گاهی مشکل ایجاد کنه با عرض معذرت البته
فرض کنید دو تا تاریخ داریم 05/01/1388 ، 5/1/1388 خوب این دو تا تاریخ با هم برابر هستن ولی با این روش که استاد گفتن که البته درست هم گفتن تاریخ اولی از تاریخ دومی بزرگتر است برای رفع این مشکل از کد زیر برای اصلاح تاریخ دوم استفاده کنید. کد زیر تاریخ 5/1/1388 و 05/01/1388 هر دو رو به 13880105 تبدیل می کنه اون وقت هر دو تاریخ برابر خواهند بود.
خدای ایران زمین نگهدارتان.
Function DATE_adad(ByVal DATE1_P As String)
Dim YYYY As Integer
Dim STRY As String = ""
Dim MM As Integer
Dim STRM As String = ""
Dim DD As Integer
Dim STRD As String = ""
Dim STRP1 As String
Dim STR_MAIN As String = ""
Dim DATE1 As Date
If DATE1_P = "" Then
Return DATE_PP
Exit Function
End If
DATE1 = CType(DATE1_P, Date)
STRP1 = CType(DATE1, String)
Dim I As Integer
Dim INT1 As Integer = STRP1.Length
Dim STR As String = ""
For I = 1 To INT1
If STR = "" Then
STR_MAIN = Mid(STRP1, I, 1)
If STR_MAIN <> "/" Then STRM = STRM & STR_MAIN
If STR_MAIN = "/" Then STR = STR & STR_MAIN
ElseIf STR = "/" Then
STR_MAIN = Mid(STRP1, I, 1)
If STR_MAIN <> "/" Then STRD = STRD & STR_MAIN
If STR_MAIN = "/" Then STR = STR & STR_MAIN
ElseIf STR = "//" Then
STR_MAIN = Mid(STRP1, I, 1)
If STR_MAIN <> "/" Then STRY = STRY & STR_MAIN
If STR_MAIN = "/" Then STR = STR & STR_MAIN
End If
Next
YYYY = CType(STRY, Integer)
MM = CType(STRM, Integer)
DD = CType(STRD, Integer)
If YYYY < 100 Then STRY = "13" & YYYY
If MM < 10 Then STRM = "0" & MM
If DD < 10 Then STRD = "0" & DD
DATE_INT = STRY & STRM & STRD
Return DATE_INT