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

[pasargadsaeed]

سلام من تو تبدیل تاریخ میلادی به شمسی تو ئی بی .نت مشکل دارم

یه راه حل فوری ممنون

[mhmoein]

سلام

72315

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = MiladiToShamsi(Now)
End Sub
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
End Class