[Meteora]

Καλησπέρα

Δοκίμασε τον κώδικα και αν δουλέψει να τον χρησιμοποιήσω και εγώ!

Private Sub btn_start_Click()

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 strUrl$
      strUrl = "http://survey.sch.gr/"
      Call Shell("explorer.exe " & strUrl, 5)
    End If

End Sub

Εκεί ανάμεσα στη End select στην if Day(date)=x θα έγραφα κάτι για να δώ αν η μέρα είναι "εργάσιμη" ή όχι, λαμβάνοντας δεδομένα από πίνακα που θα ανανεώνεται κάθε πότε; Από ποιόν; Αυτό είναι αδύνατο σημείο στη σχεδίασή σου. Σκέψου κάτι διαφορετικό π.χ. να βγαίνει το μήνυμα, μέχρι να το χειριστείς, αποθηκεύοντας κάπου τον χειρισμό αυτό... Αν με καθήσει καμιά ιδέα θα γράψω...

Με εκτίμηση
Νίκος Δ.