Ayberk Atasay

ASP, CSS, Internet konuları üzerine paylaşımlar

ASP Tarih İşlemleri

Aşağıda Vermiş olduğum kod sitenizde ziyaretçilerin tarihi daha düzgün biçimde görmelerini ve o tarihin hangi güne ait olduğunu ögrenmelerini sağlar.

Örneğin Kendi sitemde bloglar kayıt olurken otomatik tarih formatında kayıt ediliyor. Örneğin 5/27/2008 11:33:41 PM tarihinin çıktısı size 27 Mayıs 2008, Salı olarak görünüyor. bunun için çok basit bir function yazmıştım. Umarım işinize yarar..

Gunlerim = Array("" , "Pazar" , "Pazartesi" , "Salı" , "Çarşamba" , "Perşembe" , "Cuma" , "Cumartesi" )

Function  TarihGoster(gelen)

	gun =   day(gelen)

		if month(gelen) = "1" then  

		ay = "Ocak"

		elseif month(gelen) = "2" then  

		ay = "Şubat"

		elseif month(gelen) = "3" then  

		ay = "Mart"

		elseif month(gelen) = "4" then  

		ay = "Nisan"

		elseif month(gelen) = "5" then  

		ay = "Mayıs"

		elseif month(gelen) = "6" then  

		ay = "Haziran"

		elseif month(gelen) = "7" then  

		ay = "Temmuz"

		elseif month(gelen) = "8" then  

		ay = "Ağustos"

		elseif month(gelen) = "9" then  

		ay = "Eylül"

		elseif month(gelen) = "10" then  

		ay = "Ekim"

		elseif month(gelen) = "11" then  

		ay = "Kasım"

		elseif month(gelen) = "12" then  

		ay = "Aralık"

		end if

	yil =   year(gelen)

	gisim = Gunlerim(Weekday(gelen))

	TarihGoster = gun &" "& ay &" "& yil &", "& gisim

END  Function

Kullanımı şekli:
Veritabanındaki tarih: <%=TarihGoster(RS("tarih"))%>
Normal Tarih: <%=TarihGoster(Now())%>

ASPAyberk Atasay27 Mayıs 2008, SalıEkle Bunu

Önceki Kayıt

Sonraki Kayıt

Yorumlar

ilhan
8 Mayıs 2009, Cuma

şimdide local hostta firefox ta bu hatayı veriyo ie de sorun yok...
=> Microsoft VBScript çalýþma hatasý hata '800a000d'

Tür uyumsuz: '[string: "12.08.2008"]'

inc/head.asp, satır 3

satır 3 te de: if month(gelen) = "1" then

sorun ne arkadaşlar mysql olduğu içinmi böyle...

ilhan
7 Mayıs 2009, Perşembe

temada biraz şekillendireyim diye ben bunu ayırdım ;

<%
Function aygoster(gelen)
if month(gelen) = "1" then
ay = "Ocak"
elseif month(gelen) = "2" then
ay = "Subat"
elseif month(gelen) = "3" then
ay = "Mart"
elseif month(gelen) = "4" then
ay = "Nisan"
elseif month(gelen) = "5" then
ay = "Mayis"
elseif month(gelen) = "6" then
ay = "Haziran"
elseif month(gelen) = "7" then
ay = "Temmuz"
elseif month(gelen) = "8" then
ay = "Agust"
elseif month(gelen) = "9" then
ay = "Eylül"
elseif month(gelen) = "10" then
ay = "Ekim"
elseif month(gelen) = "11" then
ay = "Kasim"
elseif month(gelen) = "12" then
ay = "Aralik"
end if
aygoster = (ay)
END Function

Function gunGoster(gelen)
gun = day(gelen)
gunGoster = (gun)
END Function

%>

fakat bir sorun var localhostta sorunsuz çalışırken hostta attığımda -> if month(gelen) = "1" then
bu satırdan hata alıyorum bunu nasıl düzeltebilirim data mysql bu yuzden mi acaba??

Selim Topaloğlu
1 Haziran 2008, Pazar

<%
Function TarihYap(GelenTarih)
TarihYap = Day(GelenTarih)&" "&MonthName(Month(GelenTarih))&" "&Year(GelenTarih)&", "&WeekdayName(WeekDay(GelenTarih))
End Function
%>

Bunu kullan bunu :D

sinan
27 Mayıs 2008, Salı

teşekkürler.