Visualizzazione dei risultati da 1 a 4 su 4

Discussione: x mgmg

  1. #1

    x mgmg

    scusa mgmg su questa stringa che mi ai postato
    gentilmente mi da errore chiamata di routine o argomento non valido
    sulla riga DataF= dateadd(d, Intervallo, DataI)

    DataI = "01/01/2005"
    Intervallo = 3
    DataF= dateadd(d, Intervallo, DataI)
    GiornoSettimana = Weekday(DataF, vbMonday)
    Select Case GiornoSettimana
    Case 1 'Lunedì
    Case 2 'martedì
    Case 3
    Case 4
    Case 5
    Case 6 'Sabato
    DataF = dateadd(d, 1, DataF)
    Case 7 'Domenica
    DataF = dateadd(d, 2, DataF)
    End Select

  2. #2
    Utente di HTML.it
    Registrato dal
    Sep 2005
    Messaggi
    357
    Sì hai ragione mancano gli "":
    DataF= dateadd("d", Intervallo, DataI)
    quindi:

    DataI = "01/01/2005"
    Intervallo = 3
    DataF= dateadd("d", Intervallo, DataI)
    GiornoSettimana = Weekday(DataF, vbMonday)
    Select Case GiornoSettimana
    Case 1 'Lunedì
    Case 2 'martedì
    Case 3
    Case 4
    Case 5
    Case 6 'Sabato
    DataF = dateadd("d", 2, DataF)
    Case 7 'Domenica
    DataF = dateadd("d", 1, DataF)
    End Select

    C'era anche un altro errore nel case 6 e 7 dove avevo invertito i giorni da sommare alla data risultante del primo case.

    Ciao

  3. #3
    grazie e scusa

  4. #4
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,463

    Moderazione

    Chiudo questa discussione per gli stessi motivi indicati qui.
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.