سلام
ببین این به کارت میاد
Imports System.Globalization
Public Class PerCalander
Sub New()
_PersianCalander = New PersianCalendar
End Sub
Private _PersianCalander As PersianCalendar
Public Enum PersianMounth As Integer
فروردین = 1
اردیبهشت = 2
خرداد = 3
تیر = 4
مرداد = 5
شهریور = 6
مهر = 7
آبان = 8
آذر = 9
دی = 10
بهمن = 11
اسفند = 12
End Enum
Public Enum DateFormat As Integer
[Long] = 0
[Short] = 1
End Enum
Public Function GetYear(ByVal Gdate As Date) As Integer
Return _PersianCalander.GetYear(Gdate)
End Function
''' <summary>
''' Convert Month Persian name to equal integer value
''' for example: فروردین = 1
''' </summary>
''' <param name="strMonth">month name (persian name) as string </param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetMonthFromStrName(ByVal strMonth As String) As Integer
Dim PM As PersianMounth = [Enum].Parse(GetType(PersianMounth), strMonth)
Return PM
End Function
Public Function GetMonth(ByVal Gdate As Date) As Integer
Return _PersianCalander.GetMonth(Gdate)
End Function
Public Function GetDay(ByVal Gdate As Date) As Integer
Return _PersianCalander.GetDayOfMonth(Gdate)
End Function
''' <summary>
''' Get the Persian name of the monthe
''' </summary>
''' <param name="IntMonth">Month number in year</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetMonthName(ByVal IntMonth As Integer) As String
Dim PM As PersianMounth = IntMonth
Return PM.ToString
End Function
''' <summary>
''' Get the first day of the month that represented by this argumans
''' </summary>
''' <param name="PersianYear"></param>
''' <param name="PersianMonth"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetFirstDayOfMonth(ByVal PersianYear As Integer, ByVal PersianMonth As Integer) As Integer
Dim Gdate As Date = _PersianCalander.ToDateTime(PersianYear, PersianMonth, 1, 1, 1, 1, 1)
Dim intDate As Integer = Gdate.DayOfWeek
If intDate < 6 Then
Return intDate + 2
Else
Return 1
End If
End Function
''' <summary>
''' Get the Number of the days in the specified month and year
''' </summary>
''' <param name="PersianYear"></param>
''' <param name="PersianMonth"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetDaysInMonth(ByVal PersianYear As Integer, ByVal PersianMonth As Integer) As Integer
Return _PersianCalander.GetDaysInMonth(PersianYear, PersianMonth)
End Function
Public Function IsToDay(ByVal PersianYear As Integer, ByVal PersianMonth As Integer, ByVal PersianDay As Integer) As Boolean
Dim temDate As Date = _PersianCalander.ToDateTime(PersianYear, PersianMonth, PersianDay, 1, 1, 1, 1)
If temDate.Date = Date.Now.Date Then
Return True
Else
Return False
End If
End Function
''' <summary>
''' Convert specified persian date to Gregorian date
''' </summary>
''' <param name="PersianYear"></param>
''' <param name="PersianMonth"></param>
''' <param name="PersianDay"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function ConvertToGregorianDate(ByVal PersianYear As Integer, ByVal PersianMonth As Integer, ByVal PersianDay As Integer) As Date
Try
Return _PersianCalander.ToDateTime(PersianYear, PersianMonth, PersianDay, 1, 1, 1, 1)
Catch ex As Exception
Try
Return _PersianCalander.ToDateTime(PersianYear, PersianMonth, PersianDay - 1, 1, 1, 1, 1)
Catch ex2 As Exception
Return _PersianCalander.ToDateTime(PersianYear, PersianMonth, PersianDay - 2, 1, 1, 1, 1)
End Try
End Try
End Function
''' <summary>
''' Get the string name of the persian date with the specified Gregorian date
''' </summary>
''' <param name="GDate"></param>
''' <param name="Format"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetPersianDate(ByVal GDate As Date, ByVal Format As DateFormat) As String
Dim Days() As String = {"شنبه", "یک شنبه", "دو شنبه", "سه شنبه", "چهار شنبه", "پنج شنبه", "جمعه"}
If Format = DateFormat.[Long] Then
Dim intDayofWeek As Integer = _PersianCalander.GetDayOfWeek(GDate)
Dim strMonth As String = GetMonthName(_PersianCalander.GetMonth(GDate))
Dim strDay As String
If intDayofWeek < 6 Then
strDay = Days(intDayofWeek + 1)
Else
strDay = Days(0)
End If
Return strDay & " , " & _PersianCalander.GetDayOfMonth(GDate) & _
" " & strMonth & " , " & _PersianCalander.GetYear(GDate)
Else
Dim strDay, strMonth As String
strDay = _PersianCalander.GetDayOfMonth(GDate)
If strDay.Length = 1 Then strDay = "0" & strDay
strMonth = _PersianCalander.GetMonth(GDate)
If strMonth.Length = 1 Then strMonth = "0" & strMonth
Return _PersianCalander.GetYear(GDate) & "/" & strMonth & "/" & strDay
End If
End Function
End Class
دوست من از لطفتون سپاسگذارم کد شما مطمئنا بدرد میخوره
ولی اگه امکان داره کد من رو اصلاح کنید چون می خوام یاد بگیرم
متشکرم