اگر اشکالی داشت لطفاً اطّاع بدید
کد از
http://polytopia.com.au/default%5Bla...D%5Blang=fa%5D
برای VB.Net
Public Function DateInOtherCalendar(ByVal aDate As Date, ByVal OtherCalendar As
Calendar) As Date Dim Year As Integer = OtherCalendar.GetYear(aDate)
Dim Month As Integer = OtherCalendar.GetMonth(aDate)
Dim Day As Integer = OtherCalendar.GetDayOfMonth(aDate)
Return New Date(Year, Month, Day, OtherCalendar)
End Function
'مثال استفاده
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
' یک تاریخ شمسی ۱۹ مهر ۱۳۵۹
Dim PersianDate As DateTime = New Date(1359, 7, 19, New PersianCalendar())
Dim Gregorian As GregorianCalendar = New GregorianCalendar()
Text = DateInOtherCalendar(PersianDate, Gregorian)
End Sub
برای #C
public DateTime DateInOtherCalendar( DateTime aDate , Calendar OtherCalender )
{
int Year = OtherCalender.GetYear(aDate);
int Month = OtherCalender.GetMonth(aDate);
int Day = OtherCalender.GetDayOfMonth(aDate);
DateTime DateInOtherCalendar = new DateTime(Year, Month, Day, OtherCalender);
return DateInOtherCalendar;
}
'مثال استفاده
private void button1_Click(object sender, EventArgs e)
{ // یک تاریخ شمسی ۱۹ مهر ۱۳۵۹
DateTime PersianDate = new DateTime( 1359, 7, 19, new PersianCalendar() );
GregorianCalendar Gregorian = new GregorianCalendar( );
Text = DateInOtherCalendar(PersianDate, Gregorian).ToString();
}