Editor Login | Register
Ekle

> Akademik İnternet ® > ASP
[ASP Kodları] Türkçe Tarih (tr) - ASP - Akademik İnternet ® -
CWhite
(Relased 03.01.2008 21:24:23)


[ASP Kodları] Türkçe Tarih (tr)
Türkçe Tarih (tr)


Ekrana bugünün tarihini gösterirken ay ve günü yazı ile gösteren bir kod.
Kodu olduğu gibi .asp uzantılı bir sayfaya kayıt edip çalıştırmanız yeterlidir.
var1 = date
Response.Write  Day(var1)
Response.Write " "
" Ayları sayalım
if  Month(var1) = 1  then
response.Write "Ocak"
end  if
if  Month(var1) = 2  then
response.Write "Şubat"
end  if
if  Month(var1) = 3  then
response.Write "Mart"
end  if
if  Month(var1) = 4  then
response.Write "Nisan"
end  if
if  Month(var1) = 5  then
response.Write "Mayıs"
end  if
if  Month(var1) = 6  then
response.Write "Haziran"
end  if
if  Month(var1) = 7  then
response.Write "Temmuz"
end  if
if  Month(var1) = 8  then
response.Write "Ağustos"
end  if
if  Month(var1) = 9  then
response.Write "Eylül"
end  if
if  Month(var1) = 10  then
response.Write "Ekim"
end  if
if  Month(var1) = 11  then
response.Write "Kasım"
end  if
if  Month(var1) = 12  then
response.Write "Aralık"
end  if
"Ayları sayma bitti.
Response.Write " "
Response.Write  Year(var1)
Response.Write " "
"Günleri sayalım
if  WeekDay(var1, 1) = 1  then
Response.Write "Pazar"
end  if
if  WeekDay(var1, 1) = 2  then
Response.Write "Pazartesi"
end  if
if  WeekDay(var1, 1) = 3  then
Response.Write "Salı"
end  if
if  WeekDay(var1, 1) = 4  then
Response.Write "Çarşamba"
end  if
if  WeekDay(var1, 1) = 5  then
Response.Write "Perşembe"
end  if
if  WeekDay(var1, 1) = 6  then
Response.Write "Cuma"
end  if
if  WeekDay(var1, 1) = 7  then
Response.Write "Cumartesi"
end  if
"Günleri sayma bitti.
Response.Write "
" & date & "
"
%>







Derecelendir
Kaynak CWhite Tarafından yazılmış/derlenmiştir.
İçerik İhbarı
Bağlantılar: bilgininefendisi.net

Open Source Document Project AUP&TOS