[3amo]

عبدالله الصافي كتب :توجد برامج مثل انتر داون لوود مانجير يعمل لفترة أظنها 15 يوما وبعدها لا يعمل .
والسؤال كيف تحسب تلك المدة؟؟

انظر الى هذا المثال لعله ينفعك

PHP كود :

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 


بالتوفيق