Dim startdate As String
Dim differenceofdate
Dim TRACEDATE As String
Dim newdate
Dim chk
If GetSetting(App.Title, "Startup", "counter", "") = "" Then
SaveSetting App.Title, "Startup", "counter", 1
SaveSetting App.Title, "Startup", "Started", Format(Date, "mm dd yyyy")
SaveSetting App.Title, "Startup", "Last Used", Format(Date, "mm dd yyyy")
lblcnt.Caption = "1"
ElseIf GetSetting(App.Title, "Startup", "counter", "") = "31" Then
MsgBox "ÔßÑÇð áÓÊÎÏÇãß åÐÇ ÇáÈÑäÇãÌ " & Chr(10) + Chr(1) & "ÇáÑÌÇÁ ÅíÞÇÝ Úãá åÐÇ ÇáÈÑäÇãÌ Çæ ÓíÊã ÝÞÏÇä ßá ÇáãÚáæãÇÊ ÇáÊí ÞãÊ ÈÅÏÎÇáåÇ ", vbCritical, "ÔßÑÇð áß "
End
Else
TRACEDATE = GetSetting(App.Title, "Startup", "Last Used", "")
chk = DateDiff("d", CDate(TRACEDATE), Now)
If chk < 0 Then 'CHECK IF THE DATE WAS CHANGE which is lesser than the PREVIOUS DATE WHERE THE SYSTEM USED.
MsgBox "áã íÊã ÇáÚËæÑ Úáì ÊÇÑíÎ ÇáäÙÇã áÏíß !! " & Chr(10) + Chr(13) & " ÇáÑÌÇÁ ÊÛííÑÉ ÇáÃä æÅáÇ áä íßæä ÈÅãßÇäß ÅÓÊÎÏÇã åÐÇ ÇáÈÑäÇãÌ áÇÍÞÇð", vbCritical, "ÊÇÑíÎ ãÝÞæÏ"
End
Else
startdate = GetSetting(App.Title, "Startup", "Started", "")
differenceofdate = DateDiff("d", startdate, Now)
If differenceofdate <> 0 Then
lblcnt.Caption = differenceofdate + 1
SaveSetting App.Title, "Startup", "Last Used", Format(Now, "MM DD YYYY")
SaveSetting App.Title, "Startup", "counter", differenceofdate + 1
End If
If differenceofdate = 0 Then
lblcnt.Caption = GetSetting(App.Title, "Startup", "Counter", "")
End If
End If
End If
End Sub
