Bu fonksiyonda
RetrieveTimeLimit Serial, Kullanici, Delivre, Expire, NombreJour
kodunun hemen altınaKalanGun = Expire - Date
If KalanGun < 7 Then
MsgBox ("lisansın bitmesine " & KalanGun & " Gün Kaldı")
End If
kodu ekleyiniz.
Daha önce belirttiğim gibi, bu kodları bende kendi uygulamamda kullanıyorum. Ancak yapan arkadaş basit işlemleri fazla fazla kod ekleyerek iyice karıştırmış. Kodların normalize edilmesi gerekli