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

[actress]

من مي خوام تاريخ ميلادي سيستم به شمسي تبديل بشه چي كار بايد بكنم؟

 

[kasra_kh]

یه سری اینجاها بزن لطفا
http://www.forum.persiantools.com/showthread.php?t=5666
http://www.forum.persiantools.com/showthread.php?t=7142

 

[phyma]

من مي خوام تاريخ ميلادي سيستم به شمسي تبديل بشه چي كار بايد بكنم؟

سلام بر شما
من يك فايل dll دارم که براحتس به شما کمک ميکنه شمي به ميلادي و به عکس تبديل کنيد
با من تماس بگيريد
[email protected]

 

[littlerabbit]

يه كدم من نوشتم و تو اون تاپيكي كه كسري (كه شديدا به اسمش حساسيت نشون داده و در مورد كازانتيزاكيس هم باهاش هم عقيده ام!!) آدرسش هست منتهي يه مشكل امسالو يه روز خطا داره و من خوصله فيكس كردنشو ندارم يعني سال كبيسه رو پارسال در نظر گرفته نه امسال يه تابع هست كه بايست اصلاخ بشه گر چه به نظر من همش بايست سر و سامون داده بشه !
منظورم اينه
http://www.forum.persiantools.com/showthread.php?t=5666

 

[shaghaiegh]

من يك كد sql دارم(PROCEDURE) كه تاريخ ميلادي رو شمسي ميكنه تا حالا هم كه مشكلي نداشته

 

[littlerabbit]

كو پس اين كد شما؟ فقط پز كدتون رو داديد؟

 

[kasra_kh]

میگم یه تاپیک تو گفتگوی آزاد بزاریم ببینیم کی از کدوم کتابش خوشش میاد

 

[nima178]

من نمي دونم چه تبي اين تبديل تاريخ
من كه هم مبدل شمسي به ميلادي و برعكس را دارم
(حتي يك نسخه براي ا اس پي نوشتم)
اما باز هم هماند گذشته از كد حامد بنايي(يك كد دو خطه) براي سايتم استفاده مي كنم
خواستيد ميل به زينيد سورس همشونو بدم

 

[littlerabbit]

من زورباي يوناني. كسري جان! (البته باقيشونم آره اما اين اوليش بود كه خوندم )

راستي شما هم كه همه پز كدتون رو ميديد اگه دو خطه مينوشتي تا استفاده كنيم!!!

 

[nima178]

<span dir=rtl style=font-family:Tahoma;font-size:10;color:#ffffff>
<script lang="javascript" src="http://www.hamedbanaei.com/services/writetehrantime.aspx"></script></b>
</span>
اين كد حامد بناييرو بعد در يك تكس باكس مي زارم(اينو گذاشتم كه نگي خالي مي بندم) جهت توضيحات بيشتر
به سايت حامد بنايي مراجعه كنيد

 

[shaghaiegh]

در ابتدا از littlerabbit عذر ميخوام.اين هم اون كدي كه گفتم

(CREATE PROCEDURE [Hijri_Date] ( @FDate Char(10) output
AS
Declare @EDate DateTime
Declare @EYear int, @EMon smallint, @EDay smallint, @ELeap bit, @EMonArray Char(12), @EDayOfYear int
Declare @FYear int, @FMon smallint, @FDay smallint, @FLeap bit, @FMonArray Char(12)
Select @FMonArray= Char(31)+Char(31)+Char(31)+Char(31)+Char(31)+Char(31)+Char(30)+Char(30)+Char(30)+Char(30)+Char(30)+Char(29)
Select @EMonArray= Char(31)+Char(28)+Char(31)+Char(30)+Char(31)+Char(30)+Char(31)+Char(31)+Char(30)+Char(31)+Char(30)+Char(31)
set @EDate = Getdate()
Select @EYear= Year(@EDate)
Select @EMon= Month(@EDate)
Select @EDay= Day(@EDate)
if (@EYear %4)=0 Select @ELeap=1 else Select @ELeap=0
--------------------- Calc Day Of Year
Declare @Temp int, @Cnt int
Select @Cnt=@EMon-1
Select @Temp=0
While @Cnt<>0 begin
if (@Cnt=2)and(@ELeap=1) Select @Temp= @Temp+29
else Select @Temp= @Temp + Ascii(Substring(@EMonArray, @Cnt, 1))
Select @Cnt=@Cnt-1
end
Select @EDayOfYear= @Temp+@EDay
---------------------- Convert to Farsi
Select @Temp= @EDayOfYear-79
if @Temp>0 Select @FYear= @EYear-621
else begin
Select @FYear= @EYear-622
if ((@FYear %4)=3) Select @Temp= @Temp+366 else Select @Temp= @Temp+365
end
if (@FYear %4)=3 Select @FLeap=1 else Select @Fleap=0
Select @Cnt= 1
While (@Temp<>0) and (@Temp>Ascii(Substring(@FMonArray, @Cnt, 1))) begin
if @Cnt=12
if (@FLeap=1) Select @Temp=@Temp-30 else Select @Temp= @Temp-29
else Select @Temp= @Temp-Ascii(Substring(@FMonArray, @Cnt, 1))
Select @Cnt= @Cnt+1
end
if @Temp<>0 begin
Select @FMon= @Cnt
Select @FDay= @Temp
end else begin
Select @FMon= 12
Select @FDay=30
end
------------------ Create Output
Declare @YStr Char(4), @MStr char(2), @DStr Char(2)
select @YStr= Convert(Char, @FYear)
if @FMon<10 Select @MStr='0'+Convert(Char,@FMon) else Select @MStr=Convert(Char, @FMon)
if @FDay<10 Select @DStr='0'+Convert(Char,@FDay) else Select @DStr=Convert(Char, @FDay)
Select @FDate= @YStr+'/'+@MStr+'/'+@dStr

------------------ End Of Procedure​

 

[PersianAmir]

در ابتدا از littlerabbit عذر ميخوام.اين هم اون كدي كه گفتم

(CREATE PROCEDURE [Hijri_Date] ( @FDate Char(10) output
AS
Declare @EDate DateTime
Declare @EYear int, @EMon smallint, @EDay smallint, @ELeap bit, @EMonArray Char(12), @EDayOfYear int
Declare @FYear int, @FMon smallint, @FDay smallint, @FLeap bit, @FMonArray Char(12)
Select @FMonArray= Char(31)+Char(31)+Char(31)+Char(31)+Char(31)+Char(31)+Char(30)+Char(30)+Char(30)+Char(30)+Char(30)+Char(29)
Select @EMonArray= Char(31)+Char(28)+Char(31)+Char(30)+Char(31)+Char(30)+Char(31)+Char(31)+Char(30)+Char(31)+Char(30)+Char(31)
set @EDate = Getdate()
Select @EYear= Year(@EDate)
Select @EMon= Month(@EDate)
Select @EDay= Day(@EDate)
if (@EYear %4)=0 Select @ELeap=1 else Select @ELeap=0
--------------------- Calc Day Of Year
Declare @Temp int, @Cnt int
Select @Cnt=@EMon-1
Select @Temp=0
While @Cnt<>0 begin
if (@Cnt=2)and(@ELeap=1) Select @Temp= @Temp+29
else Select @Temp= @Temp + Ascii(Substring(@EMonArray, @Cnt, 1))
Select @Cnt=@Cnt-1
end
Select @EDayOfYear= @Temp+@EDay
---------------------- Convert to Farsi
Select @Temp= @EDayOfYear-79
if @Temp>0 Select @FYear= @EYear-621
else begin
Select @FYear= @EYear-622
if ((@FYear %4)=3) Select @Temp= @Temp+366 else Select @Temp= @Temp+365
end
if (@FYear %4)=3 Select @FLeap=1 else Select @Fleap=0
Select @Cnt= 1
While (@Temp<>0) and (@Temp>Ascii(Substring(@FMonArray, @Cnt, 1))) begin
if @Cnt=12
if (@FLeap=1) Select @Temp=@Temp-30 else Select @Temp= @Temp-29
else Select @Temp= @Temp-Ascii(Substring(@FMonArray, @Cnt, 1))
Select @Cnt= @Cnt+1
end
if @Temp<>0 begin
Select @FMon= @Cnt
Select @FDay= @Temp
end else begin
Select @FMon= 12
Select @FDay=30
end
------------------ Create Output
Declare @YStr Char(4), @MStr char(2), @DStr Char(2)
select @YStr= Convert(Char, @FYear)
if @FMon<10 Select @MStr='0'+Convert(Char,@FMon) else Select @MStr=Convert(Char, @FMon)
if @FDay<10 Select @DStr='0'+Convert(Char,@FDay) else Select @DStr=Convert(Char, @FDay)
Select @FDate= @YStr+'/'+@MStr+'/'+@dStr

------------------ End Of Procedure​

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

 

[m1975b]

در صورت امكان لطفا طريقه استفاده از تبديل تاريخ شمسي به ميلادي و برعكس را در اكسل بفرمائيد.

 

[DotNet]

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

نه بابا از سايت برنامه نويس كپي كرده اما چون تو ايران زندگي ميكنه رسم انات داري يادش رفته

http://www.barnamenevis.org/forum/showthread.php?t=6233&page=2&highlight=Hijri_Date

 

[sub]

من مي خوام تاريخ ميلادي سيستم به شمسي تبديل بشه چي كار بايد بكنم؟

به barnamenevis.org مراجعه کن حتماً توش هست