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

[iman zadehnoori]

سلام دوستان
من تو برنامم می خوام تاریخ شمسی رو از کاربر بگیریم و تاریخ میلادی رو در دیتابیسم سرچ کنم.

البته سرچم کردما ولی چیز خوبی پیدا نکردم
لطفا راهنمایی کنید
ممنون.

[alimanam]

با سلام

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

Imports System.Globalization

Public Class Form1
Dim PDate As New PersianCalendar
Public Function ShamsiToMiladi(ByVal ShamsiDate As String, ByVal miladiformat As Boolean) As String
Dim y, m, d As String
y = Mid(ShamsiDate, 1, 4)
m = Mid(ShamsiDate, 6, 2)
d = Mid(ShamsiDate, 9, 2)
Dim sp = Split(ShamsiDate, "/")
If miladiformat = True Then
Return Mid(PDate.ToDateTime(sp(0), sp(1), sp(2), 1, 1, 1, 1, 1), 1, 11)
Else
Dim str As String = Mid(PDate.ToDateTime(sp(0), sp(1), sp(2), 1, 1, 1, 1, 1), 1, 11)
Dim sp2 = Split(str, "/")
Return sp2(2) & "/" & sp2(0) & "/" & sp2(1)
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(ShamsiToMiladi(TextBox1.Text, False))
End Sub
End Class

موفق باشید ./