مقایسه دو تاریخ شمسی با یکدیگر (شمسی DataDiff)

 کد مقایسه دو تاریخ شمسی با یکدیگر (شمسی DataDiff) 

Public Function ShamsiDateDiff(ByVal Date1 As String, ByVal Date2 As String, Optional ByVal Seperator As String = "/") As Integer

        Dim pc As New Globalization.PersianCalendar

        Dim da1 = Date1.Split(Seperator)

        Dim da2 = Date2.Split(Seperator)

        Dim dt1 = pc.ToDateTime(da1(0), da1(1), da1(2), 0, 0, 0, 0)

        Dim dt2 = pc.ToDateTime(da2(0), da2(1), da2(2), 0, 0, 0, 0)

        Return DateDiff(DateInterval.Day, dt1, dt2)

    End Function 

طریقه استفاده از کد 

Msgbox(ShamsiDateDiff(“1389/07/09” , ”1389/09/23” , ”/”))

تبدیل تاریخ شمسی به تاریخ میلادی

Public Function ShamsiToMiladi(ByVal SDate As String) As String

        Dim pc As New Globalization.PersianCalendar
        ShamsiToMiladi = ""
        If SDate.Length = 10 Then

            Dim Tarikh
            Tarikh = Split(SDate, "/")

            ShamsiToMiladi = (pc.ToDateTime(Tarikh(0), Tarikh(1), Tarikh(2), 0, 0, 0, 0))

        End If

        Return ShamsiToMiladi

End Function 

طریقه استفاده 

Msgbox(ShamsiToMiladi ("1367/02/11"))

تبدیل تاریخ میلادی به تاریخ شمسی

کد تبدیل تاریخ میلادی به شمسی 

Public Function MiladiToShamsi(ByVal MDate As Date) As String

MiladiToShamsi = “”

        Dim pc As New Globalization.PersianCalendar

        Dim Sal As Integer = pc.GetYear(MDate)

        Dim Mah As Integer = pc.GetMonth(MDate)

        Dim Roz As Integer = pc.GetDayOfMonth(MDate)

        MiladiToShamsi = Format(Sal, "0000") & "/" & Format(Mah, "00") & "/" & Format(Roz, "00")

        Return MiladiToShamsi

    End Function 

 طریقه استفاده از تابع 

  Msgbox(MiladoToShamsi(Now())) 

نظرتون با یه Color Combobox چیه؟

این هم یه Color Combobox 

لینک دانلودش هم براتون میزارم 

http://www.uploadtak.com/images/fjqor1j2hgsxbvju21dl.rar 

یا از لینک زیر می تونید دانلود کنید 

http://rapidshare.com/files/422850013/Color_Combobox.rar

سلامی دوباره

سلام به کلیه دوستداران برنامه نویسی مخصوصا Windows Application کار ها 

ما آمدیم با Weblog جدید 

البته برای VisualBasic.net