ورود

View Full Version : اجرای تاریخ و تفرق آن از سرور



pcgraph
چهارشنبه 22 شهریور 1385, 03:19 صبح
سلام من میخوام این کدها با تاریخ سرور کار کنن یعنی زمانشون از سیستم یوزر خوانده نشه چیکار کنم و کلا برایش را حلی دارید؟






dim dtma,dtmb,dtmc,dtmd,dtme,dtmf,dtmg
dtma=formatdatetime(dateadd("d",-1,date),1)
dtmb=formatdatetime(dateadd("d",-2,date),1)
dtmc=formatdatetime(dateadd("d",-3,date),1)
dtmd=formatdatetime(dateadd("d",-4,date),1)
dtme=formatdatetime(dateadd("d",-5,date),1)
dtmf=formatdatetime(dateadd("d",-6,date),1)
dtmg=formatdatetime(date,1)

لوک خوش شانس
چهارشنبه 22 شهریور 1385, 05:01 صبح
برنامه کامل تاریخ شمسی

<%
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
%>
<meta http-equiv="content-type" content="text/html; charset=utf-8">

اگه تاریخ و ساعت سرور رو میخوای

<% Datenew = Now()%>


موفق باشی

pcgraph
جمعه 31 شهریور 1385, 03:14 صبح
دستت درد نکنه ولی میخوام بدونم اونجوری که من نوشتم از سیستم یوزر میخونه یا از سرور این تاریخ رو میگیره ؟ در واقع میخوام اون تفریقها از سرور اجرا بشن
ممنونم

لوک خوش شانس
جمعه 31 شهریور 1385, 11:54 صبح
در پست قبلی در قسمت دوم دستور خواندن ساعت و تاریخ از سرور رو برات نوشتم .
Datanew تاریخ و ساعت سرور رو برات بر میگردونه . این شکل کلیه دستوره .
اگر میخوای چند ساعت از ساعت سرور کم یا بهش اضافه کنی باید این کار رو انجام بدی .

Datenew = DateAdd("h", +5, Now())

این کد بالا 5 ساعت به ساعت سرور زیاد میکنه .
کد شما هم تعداد روز ها رو زیاد یا کم میکنه .

pcgraph
شنبه 01 مهر 1385, 06:30 صبح
لوک دستت درد نکنه ولی من میخوام از یک روز تا 7 روز رو از تاریخ الان سرور که باید تاریخ تهران باشه کم کنم و تو متغیر قرار بدم باز هم و بزارم تو sql تا اونو از بانک سرچ کنه
ممنون میشم جوابم رو بدی

لوک خوش شانس
شنبه 01 مهر 1385, 08:34 صبح
ببین عزیزم تاریخ سرور ها همه بر مبنای تاریخ میلادیه . ساعت هم معمولاً ساعت GTM .
با برنامه ای که من دادم میتونی تاریخ سرور رو از میلادی به شمسی تغییر بدی .
در برنامه مذکور متغیر Ms عدد مربوط به روز رو بر می گردونه ( مثلاً : یکم - دوم ... هجدهم ... بیسنهم ... ). برای کم کردنش هم که دیگه کاری نداره . شما هر چند روز که میخوای از این کم کن .
این برنامه رو اول صفحه بزار و داخل صفحه هم هر بلایی که میخوای سر Ms در بیار . داخل یه حلقه بزار و یکی یکی ازش کم کن و بریز داخل جدولت .

pcgraph
یک شنبه 02 مهر 1385, 01:09 صبح
لوک جان ناراحت نشی اینقدر گیر دادما
بابا جون من تو بانکم هر روز که مشتری جنسی میخواد به تاریخ اون روز "تاریخ" اون روز مثالا 27/07/2006 ثبت میشه من میخوام تو بانک از امروز تا 7 روز قبل کسی که خرید کرده رو چک کنم کدی که من بالا گذاشتم این کار رو میکنه و 7 تا متغیر تعریف کردم ولی کفاف کارم رو فکر نکنم بده و من دو سوال دارم
آیا کدی که تو اول این صفحه من نوشتم از تاریخ سرور استفاده میکنه یانه ؟ اگه میشه راهش رو بگین

برای 7 روز تو sql راه ساده تری نیست که من اینقدر متغیر برای یه فیلد نگذارم؟

ممنون میشم اگه توضیح بدی

لوک خوش شانس
دوشنبه 03 مهر 1385, 23:22 عصر
آره عزیزم تاریخ سرور رو لود میکنه

من که راه ساده تری به نظرم نمی رسه . میتونی از آرایه هم استفاده کنی ولی همون سه تا متغیر ساده تره

blackeve
چهارشنبه 05 مهر 1385, 11:24 صبح
اگه تابعی برای این موضوع نیاز دارید من میتونم کمکتون کنم:
تابعی که اختلاف ساعت رو حساب می کنه
سال کبیسه رو بررسی میکنه
تاریخ رو از فارسی به لاتین و برعکس تبدیل میکنه
ساعت محلی رو بدست میاره
رویدادهای آینده رو محاسبه می کنه (تاریخ وقایع رو بصورت حقیقی بدست میاره)
روز سال رو مشخص می کنه
و نمایش تاریخ و ساعت رو بصورت زیر انجام میده
ربان ASP - VB
و امکان استراج تقویم شمسی و میلادی بصورت همزمان
مثال :
شنبه 21 شهریور 1383 هجری شمسی ساعت 12: 32 دقیقه عصر

لوک خوش شانس
پنج شنبه 06 مهر 1385, 04:08 صبح
اگه تابعی برای این موضوع نیاز دارید من میتونم کمکتون کنم:
تابعی که اختلاف ساعت رو حساب می کنه
سال کبیسه رو بررسی میکنه
تاریخ رو از فارسی به لاتین و برعکس تبدیل میکنه
ساعت محلی رو بدست میاره
رویدادهای آینده رو محاسبه می کنه (تاریخ وقایع رو بصورت حقیقی بدست میاره)
روز سال رو مشخص می کنه
و نمایش تاریخ و ساعت رو بصورت زیر انجام میده
ربان ASP - VB
و امکان استراج تقویم شمسی و میلادی بصورت همزمان
مثال :
شنبه 21 شهریور 1383 هجری شمسی ساعت 12: 32 دقیقه عصر

اگه لطف کنی و این تقویم و کدی که نوشتی رو بزاری اینجا ممنون میشم .

sarami
پنج شنبه 06 مهر 1385, 04:08 صبح
در بخش SQL جستجو کنین هم SP مربوط به تاریخ شمسی رو خواهید یافت و هم SP که تاریخ و ساعت سرور رو براتون بر میگردونه

pcgraph
جمعه 07 مهر 1385, 01:58 صبح
اگه تابعی برای این موضوع نیاز دارید من میتونم کمکتون کنم:
تابعی که اختلاف ساعت رو حساب می کنه
سال کبیسه رو بررسی میکنه
تاریخ رو از فارسی به لاتین و برعکس تبدیل میکنه
ساعت محلی رو بدست میاره
رویدادهای آینده رو محاسبه می کنه (تاریخ وقایع رو بصورت حقیقی بدست میاره)
روز سال رو مشخص می کنه
و نمایش تاریخ و ساعت رو بصورت زیر انجام میده
ربان ASP - VB
و امکان استراج تقویم شمسی و میلادی بصورت همزمان
مثال :
شنبه 21 شهریور 1383 هجری شمسی ساعت 12: 32 دقیقه عصر

لطفا ممکنه این کد رو بزارین

esf-kh
یک شنبه 16 مهر 1385, 23:10 عصر
لوک خوشانس درود . من هم سوالی داشتم . من از همین کدی که شما دادید استفاده کردم . اما چیزی که من میخام اینه که اسکریپت تاریخ من حتما سرور ساید باشه دقیقا همین اسکریپت . به عبارتی تمامی محاسبات روی سرور انجام بشه و خروجی به کلاینت فرستاده بشه . تا اینجای کار مشکل من با این اسکریپت حله . ولی مشکل اینجاست که اگر یک یوزر از ایران و یک یوزر مثلا از لوس‌انجلس تو امریکا همزمان این صفحه را ببینند آیا تاریخ صحیح را مشاهده خواهند کرد ؟ اگه نه چطوری می‌تونم بدون استفاده از حالت کلاینت ساید در هر نقطه از جهان تاریخ درست را نشان دهم ؟

i_naderpour
یک شنبه 14 آبان 1385, 01:57 صبح
این کار رو sql خودش انجام میده عزیز .شما اینطوری خیلی کارت رو سخت کردی با یه تبدیل ساده و یک query کوچولو می تونی این کار رو انجام بدی.خیلی راحت تر از اون که فکرشو بکنی. آقای مهدوی فکر کنم اونو تو سایتشون گذاشتن یه سری بزن اگه پیدا نکردی من کد vb و کلاسشو برات میذارم .
پیروز باشی. یا حق

لوک خوش شانس
دوشنبه 15 آبان 1385, 09:42 صبح
لوک خوشانس درود . من هم سوالی داشتم . من از همین کدی که شما دادید استفاده کردم . اما چیزی که من میخام اینه که اسکریپت تاریخ من حتما سرور ساید باشه دقیقا همین اسکریپت . به عبارتی تمامی محاسبات روی سرور انجام بشه و خروجی به کلاینت فرستاده بشه . تا اینجای کار مشکل من با این اسکریپت حله . ولی مشکل اینجاست که اگر یک یوزر از ایران و یک یوزر مثلا از لوس‌انجلس تو امریکا همزمان این صفحه را ببینند آیا تاریخ صحیح را مشاهده خواهند کرد ؟ اگه نه چطوری می‌تونم بدون استفاده از حالت کلاینت ساید در هر نقطه از جهان تاریخ درست را نشان دهم ؟
ببخشید که من یه چند وقتی نبودم .
فکر می کنم دوستان پاسخ شما را دادند