Gün ayarlı demo program

[cocoa35]

Arkadaşlar; mevcut bir dosyamın demo programını yapmak istiyorum..mevcut demo program kod'larını inceledim ancak benim yapmayı istediğim şu şekilde olmalı..
HD program yüklendikten sonra mesela 3 gün içinde program otomatikman kapanmalı yani o programın yüklendiği tarihi otomatik algılayıp bitiş tarihini 3 gün sonrası demişsek o tarihten 3 gün sonra program kapanmalı.
bu konuda yardımcı olursanız sevinirim..

 

[İhsan Tank]

merhaba
kodlar alıntıdır.
Sub demo()
Dim saat1 As Date
Dim saat2 As Date
saat1 = "15/10/2005"
saat2 = Date
If saat2 > saat1 Then
MsgBox ("Süreniz dolmuş üzgünüm.")
ActiveWorkbook.Close
End If
MsgBox ("Kullanım için " & saat1 - saat2 & " gününüz kalmıştır.") If sure1 = sure2 Then
MsgBox "Bu gün SON GÜN"
End If
End Sub

bu kodları deneyiniz