Merhaba arkadaslar kolay gelsın

SimdikiTarih = (Year(Date()) & Month(Date()) & Day(Date()))
gzaman =Girdi("htarih")
GTarih = gzaman
If (SimdikiTarih > GTarih) Then

seklınde fonksıyonum var sımdıkı tarih guncelleme tarihi yanı Gtarihinden buyukse ıslem yaptırıyorum benım ıstegım şimdiki tarih Gtarih ten 7 gün büyükse işlem yapması bu sekılde bu fonksiyonu gelıstırebılırmıyız ? tşkler arkadaslar kolay gelsin