کمک فوری.... [بایگانی]

delphi7

چهارشنبه 04 خرداد 1384, 05:12 صبح

سلام

اگر میشود به من کمک کنید
یک فایل تاریخ نویس دارم که تاریخ شمسی را میدهد
آدرس فایل:
http://ashafaei.persiangig.com/document/tar.htm
من می خوام که این برنامه تاریخ را در یک فایل تکست سیو کند!
مثلا در یک فایل تکست تاریخ را بنویسد 26 شهریور 1395
اگر میشود فایل بالا را به صورتی که نیاز دارم اصلاح کنید و به من بدهید

sasanhe

پنج شنبه 26 خرداد 1384, 10:29 صبح

<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1256"></HEAD>
<SCRIPT LANGUAGE=JAVASCRIPT>
function showdate() {
week= new Array("یکشنبه","دوشنبه","سه شنبه","چهارشنبه","پنج شنبه","جمعه","شنبه")
months = new Array("فروردین","اردیبهشت","خرداد","تیر","مرداد","شهریور","مهر","آبان","آذر","دی","بهمن","اسفند");
a = new Date();
d= a.getDay();
day= a.getDate();
month = a.getMonth()+1;
year= a.getYear();
if (year== 0){year=2000;}
if (year<100){year +=1900;}
y=1;
for(i=0;i<3000;i+=4) {
if (year==i) {y=2;}
}
for(i=1;i<3000;i+=4) {
if (year==i) {y=3;}
}
if (y==1) {
year -= ( (month < 3) || ((month == 3) && (day < 21)) )? 622:621;

switch (month) {
case 1: (day<21)? (month=10, day+=10):(month=11, day-=20); break;
case 2: (day<20)? (month=11, day+=11):(month=12, day-=19); break;
case 3: (day<21)? (month=12, day+=9):(month=1, day-=20); break;
case 4: (day<21)? (month=1, day+=11):(month=2, day-=20); break;
case 5:
case 6: (day<22)? (month-=3, day+=10):(month-=2, day-=21); break;
case 7:
case 8:
case 9: (day<23)? (month-=3, day+=9):(month-=2, day-=22); break;
case 10:(day<23)? (month=7, day+=8):(month=8, day-=22); break;
case 11:
case 12:(day<22)? (month-=3, day+=9):(month-=2, day-=21); break;
default: break;
}
}
if (y==2) {
year -= ( (month < 3) || ((month == 3) && (day < 20)) )? 622:621;

switch (month) {
case 1: (day<21)? (month=10, day+=10):(month=11, day-=20); break;
case 2: (day<20)? (month=11, day+=11):(month=12, day-=19); break;
case 3: (day<20)? (month=12, day+=10):(month=1, day-=19); break;
case 4: (day<20)? (month=1, day+=12):(month=2, day-=19); break;
case 5: (day<21)? (month=2, day+=11):(month=3, day-=20); break;
case 6: (day<21)? (month=3, day+=11):(month=4, day-=20); break;
case 7: (day<22)? (month=4, day+=10):(month=5, day-=21); break;
case 8: (day<22)? (month=5, day+=10):(month=6, day-=21); break;
case 9: (day<22)? (month=6, day+=10):(month=7, day-=21); break;
case 10:(day<22)? (month=7, day+=9):(month=8, day-=21); break;
case 11:(day<21)? (month=8, day+=10):(month=9, day-=20); break;
case 12:(day<21)? (month=9, day+=10):(month=10, day-=20); break;
default: break;
}
}
if (y==3) {
year -= ( (month < 3) || ((month == 3) && (day < 21)) )? 622:621;

switch (month) {
case 1: (day<20)? (month=10, day+=11):(month=11, day-=19); break;
case 2: (day<19)? (month=11, day+=12):(month=12, day-=18); break;
case 3: (day<21)? (month=12, day+=10):(month=1, day-=20); break;
case 4: (day<21)? (month=1, day+=11):(month=2, day-=20); break;
case 5:
case 6: (day<22)? (month-=3, day+=10):(month-=2, day-=21); break;
case 7:
case 8:
case 9: (day<23)? (month-=3, day+=9):(month-=2, day-=22); break;
case 10:(day<23)? (month=7, day+=8):(month=8, day-=22); break;
case 11:
case 12:(day<22)? (month-=3, day+=9):(month-=2, day-=21); break;
default: break;
}
}
//document.write(week[d]+" "+day+" "+months[month-1]+" "+ year);
document.FrmDate.TxtDate.value=(week[d]+" "+day+" "+months[month-1]+" "+ year);
}
</SCRIPT>
</HEAD>
<BODY onLoad="showdate();">
<form method="post" name="FrmDate" id="FrmDate">
<input type="text" name="TxtDate" id="TxtDate">
</form>
</BODY>
</HTML>

3nitro

جمعه 27 خرداد 1384, 19:09 عصر

هیج جای کد شما بوی ذخیره شدن نمیده . :strange: :strange: :strange:

sasanhe

شنبه 28 خرداد 1384, 12:31 عصر

ببخشید سوال رو اشتباه متوجه شدم .
اصلاحش میکنم دوباره براتون همین جا می نویسم .