تبديل تاريخ شمسي به ميلادي

[nahid]

سلام به همه دوستان
تبديل تاريخ ميلادي به شمسي (ASP) رو ديدم. خيلي به دردم خورد. دستتون درد نكنه.
ولي برعكسش چي؟ برنامه برعكسش رو هم دارين؟ آخه مي خوام تو بانك تاريخام ميلادي باشن ولي از كاربر تاريخو شمسي بگيرم و بهش شمسي نشون بدم.
اگه اينو برام بذارين ممنون ميشم.
خداحافظ

 

[ehsan]

به نظرم معمولا يه همچين چيزي استفاده نداره! چون همه جا تاريخها ميلادي هستن... يا نكنه كامپيوتري با تاريخ شمسي اختراع شده!؟

 

[koorosh]

منم برعكسش رو نياز دارم ولي منطقا امكان تهيه همچين مبدلي نيست !
البته كار نشد نداره !
ايشاللا يكي تهيه كنه . . .

 

[dashamir]

كو ..؟
كجاست ..؟
آقا جان مادرت بگو اين يارو مبدل تاريخ شمسي به ميلادي كجاست ..؟
به طرز فجيعي براي ايمپورت كردن مطالب از پرشين بلاگ به ام تي بهش نيازمنديم ..!
اگه بگي از كجا ميشه بگيرمش ممنونت ميشم ...

 

[KgbCia]

سلام
حالا نميشه يكي ميلادي به شمسيش رو به ما بده.
ممنون و دست شما مرسي
[email protected]

 

[mahdi3466]

اقا من هم شمسی به میلادی می خوام هم میلادی به شمسی
از مادام به شمسی و از شمسی به مادام هم می خوام
اقا جون مادرتون اگه می تونید کمک کنید به هر دوتا نیاز مبرم دارم حیف جوون مردم تلف شه

 

[alsa57m]

سلام. من برنامه اي مي خواهم که بتواند تاريخ ميلادي را به خورشيدي تبديل کنه. ممنون ميشوم که کسي بتواند کمکم کند

 

[mazoolagh]

به نظرم معمولا يه همچين چيزي استفاده نداره! چون همه جا تاريخها ميلادي هستن... يا نكنه كامپيوتري با تاريخ شمسي اختراع شده!؟

اتفاقا خيلي هم كاربرد داره! بخصوص در ديتابيس هايي نظير ISPLOG در ISPUTIL يا هر ديتابيسي كه تاريخ آن توسط سيستم يا برنامه هاي خارجي ثبت ميشه ولي كاربر تاريخ فارسي دوست داره و بهتر هم ميفهمه!
اولين فرصت كد شو را ميذارم

 

[nima178]

آقا همچين چيزي رو من دارم كه هر دو رو به هم تبديل كنم پس فردا مي زارم تو سايت
هرچي دراين باره هست مي زارم

 

[mazoolagh]

صفحه تست را ببينيد

Function SHAMSI_MILADI(YYYY, MM, DD) As Date
If MM > 6 Then
    DIF = 186 + (MM - 7) * 30 + DD
Else
    DIF = 31 * (MM - 1) + DD
End If

For YY = 0 To YYYY - 1301
    If YY Mod 4 = 3 Then
        DIF = DIF + 366
    Else
        DIF = DIF + 365
    End If
Next
SHAMSI_MILADI = DateAdd("D", DIF, "1921/3/20")
End Function

Function MILADI_SHAMSI(YYYY, MM, DD) As String
D1 = DateSerial(YYYY, MM, DD)
DIF = DateDiff("d", D1, "1921/3/20")

Y = 1300
DAYS = 365
Do While DIF > DAYS
    DIF = DIF - DAYS
    Y = Y + 1
    If Y Mod 4 = 3 Then
        DAYS = 366
    Else
        DAYS = 365
    End If
Loop
If DIF > 186 Then
    DIF = DIF - 186
    M = (DIF \ 30) + 7
    D = DIF Mod 30
Else
    M = (DIF \ 31) + 1
    D = DIF Mod 31
End If
MILADI_SHAMSI = CStr(Y) & "/" & CStr(M) & "/" & CStr(D)
End Function

 

[spany]

**************************
tabdil shamsi be miladi
**************************

   DateTime Miladi = DateTime.Now;
        PersianCalendar farsitarikh = new PersianCalendar();
         DateTime Shamsi = new DateTime(farsitarikh.GetYear(Miladi),  farsitarikh.GetMonth(Miladi), farsitarikh.GetDayOfMonth(Miladi),  farsitarikh.GetHour(Miladi), farsitarikh.GetMinute(Miladi),  farsitarikh.GetSecond(Miladi));

 

[babakparsa]

زیر خاکی مال عهد تیرکمون شاه

 

[veta]

static public DateTime Shamsi2Miladi(string _date)
{
int year = int.Parse(_date.Substring(0, 4));
int month = int.Parse(_date.Substring(5, 2));
int day = int.Parse(_date.Substring(8, 2));
PersianCalendar p = new PersianCalendar();
DateTime date = p.ToDateTime(year, month, day, 0, 0, 0, 0);
return date;
}