روي خط سي شارپ ‍‍C#

» .

منوي كاربري

پيغام مدير : خواندنیهای جالب
-------------------------------------
روزی دست پسر بچه ای که در خانه با گلدان کوچکی بازی می کرد، در آن گیر کرد و هر کاری کرد، نتوانست دستش را از گلدان خارج کند. به ناچار پدرش را به کمک طلبید. اما پدرش هم هر چه تلاش کرد نتوانستند دست پسر را از گلدان خارج کنند. پدر دیگر راضی شده بود به شکستن گلدان که تصادفا خیلی هم گرانقیمت بود، فکر کند. قبل از این کار به عنوان آخرین تلاش به پسرش گفت: دستت را باز کن، انگشت هایت را به هم بچسبان و آنها را مثل دست من جمع کن. آن وقت فکر می کنم دستت بیرون می آید.
پسر گفت: "می دانم اما نمی توانم این کار را بکنم."
پدر که از این جواب پسرش شگفت زده شده بود پرسید: "چرا نمی توانی؟"
پسر گفت: "اگر این کار را بکنم سکه ای که در مشتم است، بیرون می افتد." شاید شما هم به ساده لوحی این پسر بخندید اما واقعیت این است که اگر دقت کنیم می بینیم همه ما در زندگی به بعضی چیزهای کم ارزش چنان می چسبیم که ارزش دارایی های پرارزشمان را فراموش می کنیم و در نتیجه آنها را از دست می دهیم

(به خاطر بعضی از چیز ها خیلی از چیز ها را از دست داد)
--------------------------------------------------------------------------
کسانی که گذشته را به یاد نمی آورند محکوم به تکرار آن هستند
--------------------------------------------------------------------------
براي رسيدن بايد راه رفت (مهندس مهدي دلير)
--------------------------------------------------------------------------
مي خواهم ولي نمي توانم، افسوس كه مي توانستم ولي نخواستم!!
هميشه مراقب اشتباه دوم باش، اشتباه اول حق توست!!
--------------------------------------------------------------------------
لشكر گوسفندانی كه توسط یك شیر اداره میشود، میتواند لشكر شیرانی را كه توسط یك گوسفند اداره میشود، شكست دهد
--------------------------------------------------------------------------
زندگی مثل دوچرخه سواری است؛ برای حفظ تعادل بایدحرکت کرد.............
--------------------------------------------------------------------------
هر روز ما آف هامونو باز می کنیم و پیام هایی رو که دوستامون فرستادن می خونی ... اما تا حالا چند بار "قرآن" رو باز کردیم تا پیام هایی رو که خداوند فرستاده بخونیم
--------------------------------------------------------------------------
دیگران را ببخش نه برای اینکه آنان لایق ببخشش هستند بلکه به خاطر اینکه تو لایق آرامشی
--------------------------------------------------------------------------
و این آغاز انسان بود...

از بهشت که بیرون آمد، دارایی اش یک سیب بود. سیبی که به وسوسه آن را چیده بود. و مکافات این وسوسه هبوط بود.

فرشته ها گفتند: تو بی بهشت می میری. زمین جای تو نیست. زمین همه ظلم است و فساد.

انسان گفت: اما من به خود ظلم کرده ام. زمین تاوان ظلم من است. اگر خدا چنین می خواهد، پس زمین از بهشت بهتر است.

خدا فرمود: برو و بدان جاده ای که تو را دوباره به بهشت می رساند از زمین می گذرد، زمینی آکنده از شر و خیر، آکنده از حق و از باطل، از خطا و صواب، و اگر خیر و حق و صواب پیروز شد تو باز خواهی گشت وگرنه...

و فرشته ها همه گریستند. اما انسان نرفت. انسان نمی توانست برود. انسان بر درگاه بهشت وامانده بود. می ترسید و مردد بود. و آن وقت خدا چیزی به انسان داد. چیزی که هستی را مبهوت کرد و کائنات را به غبطه واداشت.

انسان دست هایش را گشود و خدا به او اختیار داد.

خدا فرمود: حال انتخاب کن. زیرا که تو برای انتخاب کردن آفریده شدی. برو و بهترین را برگزین که بهشت، پاداشِ به گزیدن توست. عقل و دل هزاران پیامبر نیز با تو خواهند آمد، تا تو بهترین را برگزینی. و آنگاه انسان زمین را انتخاب کرد. رنج و نبرد و صبوری را. و این آغاز زندگی انسان بود.

--------------------------------------------------------------------------
هر 3 ثانیه یکی تو دنیا میمیره
بشمار1 2 3 همین الان یکی مرد یادت باشه یکی از این 3 ثانیه ها نوبت من و توه
--------------------------------------------------------------------------
به نظر تو قرآن برای چی نازل شد فقط برای اینکه یک نگاهی به جلدش بکنیم
تاحالا چند تا کتاب خوندی ازکتاب درسی گرفته تا کتاب شعر
حتما یلی خوندی اما یک بار شده با حوصله معنی قرآن را بخونی
این چه برنامه ی زندگی بزای من و توه که تاحالا حتی اون را کامل نخوندیم چه برسه به اینه روش فکر کنی
تا حالا شده فکر کنی که چرا من وتو نمی تونیم مثل اون کتابی بیاریم
--------------------------------------------------------------------------
چند قورباغه از جنگلي عبور مي کردند که ناگهان دو تا از آنها به داخل گودال عميقي افتادند.
بقيه قورباغه ها در کنار گودال جمع شدند و و قتي ديدند که گودال چقدر عميق است به دو قورباغه ديگر گفتند :
ديگر چاره ايي نيست .شما به زودي خواهيد مرد .
دو قورباغه حرفهاي آنها را نشنيده گرفتند و با
تمام توانشان کوشيدند تا از گودال خارج شوند.
اما قورباغه هاي ديگر دائما به آنها مي گفتند که دست از تلاش برداريد چون نمي توانيد از گودال خارج شويد ?
به زودي خواهيد مرد . بالاخره يکي از قورباغه ها تسليم گفته هاي ديگر قورباغه ها شد و دست از تلاش برداشت .
او بي درنگ به ته گودال پرتاب شد و مرد.
اما قورباغه ديگر با حداکثر توانش براي بيرون آمدن از گودال تلاش مي کرد .
بقيه قورباغه ها فرياد مي زدند که دست از تلاش بردار ?
اما او با توان بيشتري براي بيرون آمدن از گودال تلاش مي کرد و بالاخره از گودال خارج شد.
وقتي از گودال بيرون آمد بقيه قورباغه ها از او پرسيدند : مگر تو حرفهاي ما را نشنيدي ؟
معلوم شد که قورباغه ناشنوا است و در واقع او در تمام راه فکر مي کرده که ديگران او را تشويق مي کنند .
--------------------------------------------------------------------------

لوگوي ما

خبرنامه

لينك دوستان

لينكدوني

منوي اصلي

نويسندگان

موضوعات

آرشيو ماهانه

جستجوگر

آمار و کدهاي جاوا

طراح قالب

گرفتن تاریخ فارسی، تاریخ میلادی، نام روز به فارسی و نام ماه به فارسی از SQL Server ( برنامه نویسی )

Create Proc GetShamsiInfo
as
Declare
@Year Integer,
@Month Integer,
@Day Integer,
@F_Year Integer,
@F_Month Integer,
@F_Day Integer,
@F_Day_Name Varchar(10),
@F_Month_Name Varchar(10),
@LastDay Integer,
@Plus Integer,
@Minus Integer,
@Intercalary Integer,
@S_Year Varchar(5),
@S_Month Varchar(5),
@S_Day Varchar(5),
@E_Date Varchar(20),
@Ret Varchar(20)

Set @Plus = 0

Set @Year = Year(Getdate())
Set @Month = Month(Getdate())
Set @Day = Day(Getdate())

----- بدست آوردن تاريخ ميلادي
Set @S_Year = Cast(@Year AS VarChar(5))
Set @S_Month = Cast(@Month AS VarChar(5))
Set @S_Day = Cast(@Day AS VarChar(5))

IF Len(@S_Month) < 2
Set @S_Month = '0'+@S_Month

IF Len(@S_Day) < 2
Set @S_Day = '0'+@S_Day

Set @E_Date = @S_Year + @S_Month + @S_Day
----- بدست آوردن تاريخ ميلادي

----- بدست آوردن نام روز به فارسي
Set @F_Day_Name = Case DATEPART(dw, Getdate())
When 1 Then 'يکشنبه'
When 2 Then 'دوشنبه'
When 3 Then 'سه شنبه'
When 4 Then 'چهارشنبه'
When 5 Then 'پنجشنبه'
When 6 Then 'جمعه'
When 7 Then 'شنبه'
End
----- بدست آوردن نام روز به فارسي

IF ((@Month = 1) or (@Month = 5) or (@Month = 6))
Set @Plus = 10

IF ((@Month = 2) or (@Month = 4))
Set @Plus = 11

IF ((@Month = 3) or (@Month = 7) or (@Month = 8) or
(@Month = 9) or (@Month = 11) or (@Month = 12))
Set @Plus = 9

IF (@Month = 10)
Set @Plus = 8

Set @Year = @Year % 100

Set @Intercalary = @Year

IF (@Intercalary % 4 = 0)
IF (@Month > 2)
Set @Plus = @Plus + 1

IF ((@Intercalary - 1) % 4 = 0)
begin
Set @LastDay = 30
IF (@Month <= 3)
Set @Plus = @Plus + 1
end
Else
Set @LastDay = 29

Set @F_Year = @Year - 22

IF (@F_Year < 0)
Set @F_Year = @F_Year + 100

Set @F_Month = @Month + 9

IF (@F_Month > 12)
begin
Set @F_Month = @F_Month - 12
Set @F_Year = @F_Year + 1
end

Set @F_Day = @Day + @Plus

IF (@F_Month <= 6)
Set @Minus = 31
Else
IF ((@F_Month > 6) and (@F_Month<12))
Set @Minus = 30
Else
Set @Minus = @LastDay

IF (@F_Day > @Minus)
begin
Set @F_Day = @F_Day - @Minus;
Set @F_Month = @F_Month + 1
end

IF (@F_Month > 12)
begin
Set @F_Month = @F_Month - 12;
Set @F_Year = @F_Year + 1
end;

IF @F_Year >= 10
Set @Ret = Cast(@F_Year As Varchar(4))
Else
Set @Ret = '0'+ Cast(@F_Year As Varchar(4))

IF @F_Month >= 10
Set @Ret = @Ret + Cast(@F_Month As Varchar(4))
Else
Set @Ret = @Ret +'0'+ Cast(@F_Month As Varchar(4))

----- بدست آوردن نام ماه به فارسي
Set @F_Month_Name = Case @F_Month
When 1 Then 'فروردين'
When 2 Then 'ارديبهشت'
When 3 Then 'خرداد'
When 4 Then 'تير'
When 5 Then 'مرداد'
When 6 Then 'شهريور'
When 7 Then 'مهر'
When 8 Then 'آبان'
When 9 Then 'آذر'
When 10 Then 'دي'
When 11 Then 'بهمن'
When 12 Then 'اسفند'
End
----- بدست آوردن نام ماه به فارسي

IF @F_Day >= 10
Set @Ret = @Ret + Cast(@F_Day As Varchar(4))
Else
Set @Ret = @Ret + '0'+ Cast(@F_Day As Varchar(4))

Select @E_Date as MiladiDate,
@Ret As FarsiDate,
@F_Month_Name AS FarsiMonthName,
@F_Day_Name AS FarsiDayName

نوشته شده توسط حامد نعیمایی در سه شنبه 10 دی1387

لينك ثابت

..: آخرين ارسال ها :..