View Full Version : سوال: تاريخ شمسي در SQL
danshno1
شنبه 18 تیر 1390, 00:41 صبح
باسلام
نحوه استفاده از تاريخ شمسي و گرفتن تاريخ شمسي در تسكت باكس و اعتبار سنجي آن VB.net و
استفاده از تاريخ شمسي درsql2008
متشكر مي شوم اگر بنده را راهنمايي كنيد.
mhmoein
شنبه 18 تیر 1390, 12: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, 12:53 عصر
سلام دوست من
میتونی کلاس (ماژول) بذاری که دیگه نیازی به ریفرنس خود مایکروسافت نباشه؟!
سپاس دوست من%
mhmoein
شنبه 18 تیر 1390, 13:06 عصر
چک کردن تاریخ رو می فرمائید ؟
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.