iman zadehnoori
سه شنبه 28 تیر 1390, 18:44 عصر
سلام دوستان
من تو برنامم می خوام تاریخ شمسی رو از کاربر بگیریم و تاریخ میلادی رو در دیتابیسم سرچ کنم.
البته سرچم کردما ولی چیز خوبی پیدا نکردم
لطفا راهنمایی کنید
ممنون.
alimanam
سه شنبه 28 تیر 1390, 20:17 عصر
با سلام
میتونی به این روش عمل کنی که از تابع زیر تاریخ شمسی رو بگیری بعد تبدیل به تاریخ میلادی کنی .
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
موفق باشید ./
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.