مرجع کلیه مسائل مربوط به فارسی

[Ghamnevis]

روزبه جان اين همون وب وايز هستش عزيز...

ميتوني از همين اين استفاده كني فعلا تا لم كار دستت بياد..

اون سيستمي كه گفتم از نريمان بگيري هم همينه ولي فكر ميكنم بهينه شده است ! يكمي تغييرات واسه بهتر شدن توش داده بودند...

مخلصم
سايان

 

[kasra_kh]

روزبه جان اين همون وب وايز هستش عزيز..

آره گفتم که این احتمالا همون web wiz هست!
راستی سایان جان web wiz هست نه web wize
ویز خونده میشه نه؟

 

[roozbeh]

ممنونم از جفتتون! آقايي كردين!
با همين تك گام فعلا شروع ميكنم!

 

[kasra_kh]

مخلصیم!
موفق باشی

 

[Ghamnevis]

كسري جان گمونم Wize (يا Wise ) درسته ...

حالا اونش مهم نيست

روزبه جان فكر كنم نريمان واست آف گذاشته... صبح ميگفت كه واست لينك را گذاشته...
با اين حال اينم لينك: http://dastebil.com/forum.zip

 

[kasra_kh]

كسري جان گمونم Wize (يا Wise ) درسته ...

حالا اونش مهم نيست

روزبه جان فكر كنم نريمان واست آف گذاشته... صبح ميگفت كه واست لينك را گذاشته...
با اين حال اينم لينك: http://dastebil.com/forum.zip

wiz بودنش که wiz هست!
www.webwizforums.com
مهم که نیست ! گفتم شاید باهم فرق داسته باشن
یعنی هم web wize باشه هم web wiz

 

[Ghamnevis]

ممنون بابت توضيح ظاهرا اشتباه از من بوده

 

[kasra_kh]

نه بابا!
من الان بیکار بودم گفتم خودم نصبش کنم
نصب کردم یه تاپیک زدم چند تا یوزر هم ساختم
تاپیکه رو قفل کردم! یوزر ها رو بن کردم!یکی رو مدیر کردم بعد قفلش کردم بعد بنش کردم!
واقعا حال میده! آدم ارضا میشه ! اونوقت میگن اینجا چرا پارسا رو بن میکنید یا تاپیک قفل میکنید! خیلی حال میده خلاصه
این WEB WIZ نسبت به چند تا فروم با ASP که دیدم خیلی داهاتی تره!نمیدونم امکاناتش بیشتر هست یا نه؟ولی به نظرم اونا ارزش فارسی شدن رو بیشتر از این داشتن!

 

[kasra_kh]

(شرمنده بی ربطه ولی دیگه مشکل تاپیک حل شده)
راستی سایان جان این رمز INVISIBLE بودنتو میگی به ما هم؟

 

[roozbeh]

كسري جان گمونم Wize (يا Wise ) درسته ...

حالا اونش مهم نيست

روزبه جان فكر كنم نريمان واست آف گذاشته... صبح ميگفت كه واست لينك را گذاشته...
با اين حال اينم لينك: http://dastebil.com/forum.zip

آف نداشتم!
ولي خيلي ممنون از لطفت!

 

[Ghamnevis]

آف نداشتم!
ولي خيلي ممنون از لطفت!

نميدونم ولله.. نريمان گفت واست آف گذاشته...
به هر حال اميدوارم مشكلت حل شده باشه.. سوالي هم در مورد اين فاروم داشتي توي انجمن خوده نريمان مطرح كن...


-------------------
كسري جان من يه هوارتا رفيق دارم كه به محض اينكه ببينند من آن هستم پاچه ام را ميگيرند

 

[roozbeh]

من اين تك گام رو دارم نصب ميكنم!
فايل هاشو آپلود كردم!
فقط چون تا به حال با asp كار نكردم نميدونم بقيه مراحل كار رو!
كسي كمك ميكنه؟
ديتا بيس بلد نيستم ايجاد كنم!

 

[miladhacker]

تاریخ و ساعت شمسی با asp رو می خوام

 

[sinahosting]

تاریخ و ساعت شمسی با asp رو می خوام

سلام
تاریخ شمسی دارم ولی نمی دونم ساعت شمسی چجوریه

 

[miladhacker]

سلام
تاریخ شمسی دارم ولی نمی دونم ساعت شمسی چجوریه

همون کد تاریخ رو بده

 

[sinahosting]

همون کد تاریخ رو بده

سلام
اینم کد ببخشید که دیر شد . شرم شلوغ بود
هر جایی خواستین تاریخ رو نشون بدین اینو بذارین :
[/CODE]

<% = DateShamsi %>

<META http-equiv=CONTENT-TYPE content="text/html; charset=utf-8">
<%
D = Array (20, 19, 20, 20, 21, 21, 22, 22, 22, 22, 21, 21)
P = Array (11, 12, 10, 12, 11, 11, 10, 10, 10, 9, 10, 10)
W = Array ("يکشنبه", "دوشنبه", "سه شنبه", "چهارشنبه", "پنجشنبه", "جمعه", "شنبه")
Mon = Array ("فروردين", "ارديبهشت", "خرداد", "تير", "مرداد", "شهريور", "مهر", "آبان", "آذر", "دی", "بهمن", "اسفند")
Dm = Day(Date)
Mm = Month(Date)
Ym = Year(Date)
U = 0 
Rp = 0
If (Ym Mod 4) = 0 Then U = 1
If ((Ym Mod 100) = 0 AND (Ym Mod 400) <> 0) Then U = 0
Ys = Ym - 622
X = Ys - 22
X = X Mod 33
If ((X Mod 4) = 0 AND X <> 32) Then Rp = 1
I = Not(Rp-2) + NOT(U - 2) * 2
X = 0
If (I = 0 AND Mm = 3) Then X = 1
If I = 0 Then I = 3
Ms = (9 + Mm) Mod 13
If Ms < 10 Then Ms = Ms + 1
D1 = D(Mm - 1)
If (I = 1 AND Mm > 2) Then D1 = D1 - 1
If (I = 2 AND Mm < 3) then D1 = D1 - 1
P1 = P(Mm - 1)
If (I = 1 AND Mm > 2) Then P1 = P1 + 1
If (I = 2 AND Mm < 4) Then P1 = P1 + 1
If (Dm > 0 AND Dm <= D1) Then
    Ds = P1 + Dm + X - 1
    X = 1
Else
    Ds = Dm - D1
    Ms = Ms + 1
    If Ms = 13 Then Ms = 1
    X = 2
End If
If ((Mm = 3 AND X = 2) OR Mm > 3) Then Ys = Ys + 1
DateShamsi = W(WeekDay(Date) - 1) & "&nbsp;" & Ds & "&nbsp;" & Mon(Ms - 1) & "&nbsp;" & Ys
%>

 

[navid90]

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

 

[sinahosting]

مثل اینکه داره .

 

[shfd7450]

من برنامه كامل تبديل تاريخ ميلادي به شمسي و بر عكس آنرا نوشتم با تمامي حالات هم تست كردم مشكلي نداشت جواب ميده نمونه آنرا هم مي توانيد در سايت http://www.cda.ir مشاهده نماييد

هر كس خواست آدرس email‌ بدهد تا برايش ارسال كنم

 

[H_R]

بیا عزیزم این کد گویا درست شده کد بالا باشه ، در ضمن این رو از کش گوگل برداشتم فکر کنم این قسمت از روی سایتشون رفته پس اگه کس دگه ای هم خواست از همینجا برداره :
* توضیح این فقط برای asp مناسب اه ، در دات نت 1 با استفاده از از persia.dll و در دات نت 2 به صورت پیش فرض تقویم فارسی وجود د ارد

<%
function date_shamsi(dates,short)
D = Array (20, 19, 20, 20, 21, 21, 22, 22, 22, 22, 21, 21)
P = Array (11, 12, 10, 12, 11, 11, 10, 10, 10, 9, 10, 10)
W = Array ("يکشنبه", "دوشنبه", "سه شنبه", "چهارشنبه", "پنجشنبه", "جمعه", "شنبه")
Mon = Array ("فروردين", "ارديبهشت", "خرداد", "تير", "مرداد", "شهريور", "مهر", "آبان", "آذر", "دی", "بهمن", "اسفند")
Dm = day(dates)
Mm = month(dates)
Ym = year(dates)
U = 0
Rp = 0
if (Ym mod 4)=0 then U=1
if (Ym mod 100)=0 and (Ym mod 400)<>0 then U=0
Ys = Ym - 622
X = Ys - 22
X = X mod 33 
if (((X mod 4)=0) AND X <> 32) then Rp = 1
I = (not (Rp-2)) + (not (U - 2)) * 2 
X = 0
if(I = 0 AND Mm = 3) then X = 1 
if(I = 0) then I = 3
Ms = (9 + Mm) mod 13
if(Ms < 10) then Ms = Ms + 1
D1 = D(Mm - 1) 
if(I = 1 AND Mm > 2) then D1 = D1 - 1 
if (I = 2 AND Mm < 3) then D1 = D1 - 1 
P1 = P(Mm - 1)
if(I = 1 AND Mm > 2) then P1 = P1 + 1 
if(I = 2 AND Mm < 4) then P1 = P1 + 1 
if(Dm > 0 AND Dm <= D1) then
Ds = P1 + Dm + X - 1 
X = 1
else
Ds = Dm - D1 
Ms = Ms + 1
if(Ms = 13) then Ms = 1 
X = 2 
end if
if((Mm = 3 AND X = 2) OR Mm > 3) then Ys = Ys + 1 
if(Ms<10) then Ms="0"&Ms
if(Ds<10) then Ds="0"&Ds 
if short then
date_shamsi=Ys&"/"&Ms&"/"&Ds 
else
date_shamsi=w(weekday(dates)-1)&" "&Ds&" "&mon(Ms-1)&" "&Ys
end if
end function
%>