PDA

View Full Version : سوال: كامپوننت وارد كردن تاريخ شمسي در asp



myaffa
دوشنبه 11 مهر 1390, 19:10 عصر
سلام يه كامپوننت ميخواستم تا بتونم تو صفحات asp.net خودم براي وارد كردن تاريخ شمسي ازش استفاده كنم
ممنون

vbnovin
دوشنبه 11 مهر 1390, 20:05 عصر
سلام به اينصورت :

Imports System.Globalization
Imports Microsoft.VisualBasic

Public Class Pcalendar

Dim Calend As New PersianCalendar

Public Function WhatDay() As String

Dim iDayOfMonth As Integer = Calend.GetDayOfMonth(Now)
Dim iMonth As Integer = Calend.GetMonth(Now)
Dim iYear As Integer = Calend.GetYear(Now)

Return iYear.ToString & "/" & Format(iMonth, "00") & "/" & Format(iDayOfMonth, "00")

End Function


Public Function WhatDayToString() As String

Dim iDayOfMonth As Integer = Calend.GetDayOfMonth(Now)
Dim iDayOfWeek As Integer = Calend.GetDayOfWeek(Now)
Dim iMonth As Integer = Calend.GetMonth(Now)
Dim iYear As Integer = Calend.GetYear(Now)
Dim SMonth() As String = {"فروردين", "ارديبهشت", "خرداد", "تير", "مرداد", "شهريور", "مهر", "آبان", "آذر", "دي", "بهمن", "اسفند"}
Dim SDay() As String = {"يك شنبه", "دوشنبه", "سه شنبه", "چهار شنبه", "پنج شنبه", "جمعه", "شنبه"}

Return (SDay(iDayOfWeek).ToString & " , " & iDayOfMonth & " " & SMonth(iMonth - 1).ToString & _
" , " & iYear.ToString)

End Function

End Class

reza4359
دوشنبه 11 مهر 1390, 20:54 عصر
سلام دوست عزیز من یک نمونه گذاشتم امیدوارم مفید باشه
به این شکل :
امروز : دوشنبه 11 مهر 1390

Saman Hashemi
سه شنبه 12 مهر 1390, 08:06 صبح
ازین (http://persiadevelopers.com/articles/Persia.NET.aspx)کامپوننت استفاده کنید...!