<%Function tarihformaticevir(DateValue)
Dim yil
Dim ay
Dim gun
yil = CStr(DatePart("yyyy", DateValue))
ay = CStr(DatePart("m", DateValue))
If Len(ay) = 1 Then ay= "0" & ay
gun = CStr(DatePart("d", DateValue))
If Len(gun) = 1 Then gun = "0" & gun
tarihformaticevir = gun & "." & ay & "." & yil
End Function%>
Yukarıdaki fonksiyonun sonundaki tarihformaticevir = gun & "." & ay & "." & yil kısmını kendinize göre değiştirebilirsiniz.
Aşağıdaki kod sayesinde de ekrana tarihi istediğiniz formatta bastırabilirsiniz.
<%=tarihformaticevir(date())%>
Ben de Yorum Yapmak İstiyorum