[alex]

Νίκο καλησπέρα!!!
Έχω κάνει κάποιες αλλαγές .Θέλει δοκιμές και να γυρίζω την ημερομηνία του υπολογιστή η κάθε 1η ή κάθε 15η.Προσπαθούμε!!!
Βγάζει μήνυμα Type Mismatch στη θέση If Month(Date) = 7 Or Month(Date) = 8 Then Exit Sub *''Διώχνεις Ιούλιο και Αύγουστο
* **

 
Public Sub sShowSurveyDays()
    'Η ρουτίνα που εμφανίζει το σύστημα καταγραφής των στοιχείων
    Dim ie As Object
    Dim Month As Variant
    Dim TmpName As String
'Εδώ χτυπάει
    If Month(Date) = 7 Or Month(Date) = 8 Then Exit Sub  'Διώχνεις Ιούλιο και Αύγουστο
    
    Dim x As Integer
    x = 1
    
    Select Case DatePart("w", Date)
    Case Is = 1                   'Κυριακή
       x = x + 1
    Case Is = 7                   'Σάββατο
       x = x + 2
    End Select
      
      If Day(Date) = x Or Day(Date) = 14 + x Then
    
    Dim Response As Integer
            
      Response = MsgBox("ΚΑΛΗΜΕΡΑ ΣΗΜΕΡΑ ΠΡΕΠΕΙ ΝΑ ΕΝΗΜΕΡΩΣΕΤΕ ΤΟ  : " & TmpName _
                & vbNewLine &"ΣΥΝΔΕΘΕΙΤΕ ΣΤΟ ΙΝΤΕΡΝΕΤ. ", vbYesNo + vbDefaultButton1, " ΕΝΗΜΕΡΩΣΗ ΤΟΥ SURVEY ")
             
              If Response = vbYes Then
    
      Set ie = CreateObject("InternetExplorer.Application")
    
    
      ie.Navigate2 "http://survey.sch.gr/"
    
    
      ie.Visible = True
    
    End If
       End If
    End Sub