PDA

View Full Version : سوال: تاريخ شمسي در SQL



danshno1
جمعه 17 تیر 1390, 23:41 عصر
باسلام
نحوه استفاده از تاريخ شمسي و گرفتن تاريخ شمسي در تسكت باكس و اعتبار سنجي آن VB.net و
استفاده از تاريخ شمسي درsql2008
متشكر مي شوم اگر بنده را راهنمايي كنيد.

mhmoein
شنبه 18 تیر 1390, 11:27 صبح
سلام

چک کردن تاریخ

Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Regex.IsMatch(MaskedTextBox1.Text, "(19|20|13|14)\d\d[/](0[1-9]|1[012])[/](0[1-9]|[12][0-9]|3[01])") Then
MsgBox("تاریخ وارد شده صحیح می باشد")
Else
MsgBox("تاریخ وارد شده اشتباه است")
End If

End Sub
End Class



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


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

نحوه استفاده

TextBox1.Text = MiladiToShamsi(Now)

juza66
شنبه 18 تیر 1390, 11:53 صبح
سلام دوست من

میتونی کلاس (ماژول) بذاری که دیگه نیازی به ریفرنس خود مایکروسافت نباشه؟!

سپاس دوست من%

mhmoein
شنبه 18 تیر 1390, 12:06 عصر
چک کردن تاریخ رو می فرمائید ؟