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

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