Demo program yapma

[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..hayırlı çalışmalar dilerim

 

[leumruk]

Merhaba,
Şubatın 10'unda süre dolar.

Sub Auto_Open()
If [a1]="" Then [a1]=Date
If Date >= CDate([a1.text])Then
MsgBox "Kullanım süreniz dolmuştur."
Application.Quit
End If
End Sub

Açıklama: [a1] hücresini referans alarak kodu düzenledim. Kullanıcı dosyayı ilk açtığında [a1] hücresine günün tarihi atılır. Sonraki günlerde de kod devreye girer. Örnek olması açısından [a1] hücresini referans verdim. Benzer alternatifler düşünülebilir.

 

[cocoa35]

Çalışmanız için teşekkür ederim ancak benim aradığım bu değil..aradığım bitiş tarihi yazılması yerine gün yazılması mesela 3 gün veya 10 gün gibi bunuda şundan istiyorum program ne zaman bir hd 'e yüklenirse o günün tarihinden sonra mesela 3 gün içinde kapansın..sizin örneğinizde program 10/02/2010 tarihinden sonra bir bilgisayara yüklendiğinde hiç açılmaz.

 

[leumruk]

2 numaralı mesajdaki kodu güncelledim ve altına bir açıklama ekledim.