' 000000000000000000000000000000000000000000000000000000000000000000000000000 ' Visual Dil Grubu için Verilen Doğum Tarihinden Kişinin Yaşının Hesaplanması ' Fonksiyon Kullanım için tarihe yol vermeniz gerekir. ' Örneğin Response.Write kacyasinda("01.01.2000") şeklinde kullanılır. ' 000000000000000000000000000000000000000000000000000000000000000000000000000 Public Function KacYasinda(DogumGunu) Dim DogumTarihi As Date DogumTarihi = DateValue(DogumGunu) `Yasi hesapla Dim Yas As Integer Yas = Int(DateDiff("D", DogumTarihi, Now) / 365.25) KacYasinda = Yas End Function
Public Function FlipData(data) length = Len(data) If length = 0 Then Exit Function For i=1 To length cache = Mid(data,i,1) & cache Next FlipData = cache End Function
Function TumBasHarfleriBuyut(ByVal GelenVeri As String) As String Dim BoslukYeri As Integer Mid(GelenVeri, 1, 1) = UCase(Mid(GelenVeri, 1, 1)) BoslukYeri = InStr(GelenVeri, " ") While BoslukYeri <> 0 Mid(GelenVeri, BoslukYeri + 1, 1) = UCase(Mid(GelenVeri, BoslukYeri + 1, 1)) BoslukYeri = InStr(BoslukYeri + 1, GelenVeri, " ") Wend TumBasHarfleriBuyut = GelenVeri End FunctionDaha geliştirip türkçe karakterlerin unicode olarak çevirilmesi özelliğini de kendiniz ekleyebilirsiniz.