نقل قول نوشته شده توسط Mahdavi مشاهده تاپیک
سلام
و با عرض پوزش از اینکه دیر شد :



<%@ Language=VBScript %>

<META http-equiv=CONTENT-TYPE content="text/html; charset=windows-1256">

<%

 FMonArray= array (0,31,31,31,31,31,31,30,30,30,30,30,29)

 EMonArray= Array(0,31, 28,31,30,31,30,31,31,30,31,30,31)



W = Array  ("یکشنبه", "دوشنبه", "سه شنبه", "چهارشنبه", "پنجشنبه", "جمعه", "شنبه") 

Mon = Array ("فروردین", "اردیبهشت", "خرداد", "تیر", "مرداد", "شهریور", "مهر", "آبان", "آذر", "دی", "بهمن", "اسفند") 



 EYear= Year(Date)

 EMon= Month(Date)

 EDay = Day(Date)



 ELeap=0

 

if ((EYear mod 4))= 0  Then

  ELeap =1 

 End if



 Cnt=EMon-1

 Temp=0

 While Cnt<>0 

   if ((Cnt=2)and(ELeap=1)) Then 

    Temp= Temp+29

   else 

    Temp= Temp + EMonArray(Cnt)

 end if

    Cnt=Cnt-1

 Wend



 EDayOfYear= Temp+EDay



 ' Convert to Farsi



 Temp= EDayOfYear-79



 if Temp>0 Then 

   FYear= EYear-621

 else 

      FYear= EYear-622



      if ((FYear mod 4)=3) then 

    Temp= Temp+366 

    else 

    Temp= Temp+365

    End if

End if



if (FYear mod 4)=3  Then 

FLeap=1 

else 

Fleap=0

End if



 Cnt= 1



 While( (Temp<>0) and (Temp>FMonArray(Cnt)) )

  if Cnt=12 Then

     if (FLeap=1) Then 

    Temp=Temp-30 

    else Temp= Temp-29

    end if

   else  Temp= Temp-FMonArray(Cnt)

  end if



   Cnt= Cnt+1

 Wend



 if Temp<>0 Then

    FMon = Cnt

    FDay= Temp

 else 

  FMon= 12

  FDay=30

End if



DateShamsi = W(WeekDay(Date) - 1) & " " & FDay& " " & Mon(FMon - 1) & " " &FYear



 %>

<%= DateShamsi %>
این دیگه انشاالله درسته :lol:

سلام
من یه بخش اخبار برای سایت نوشتم که تاریخ درج خبر رو به میلادی ثبت میکنه
اگه میشه تاریخ رو به شمسی تو دیتابیس که از نوع اکسس هم هست ذخیره کرد بگید چجوری ؟
و اگر نمیشه روش تبدیل تاریخ درج هر خبر به شمسی رو برام توضیح بدین لطفا
یعنی وقتی به بخش اخبار میریم تاریخ درج هر خبر کنارش باشه

ممنون میشم اگه زودتر جواب بدین