[VB.NET] Differenza date e MsgBox

[bobovieri]

Salve a tutti i forumisti!!!

Come dice il titolo mi sto dilettando nella realizzazione di una sorta di scadenziario che fa la differenza tra due date e se questa differenza è inferiore a 3 giorni, mi appare una msgbox; vi posto il codice perchè non mi riesce di farla funzionare. Sembrerà una cretinata ma non ci riesco. Questo è il codice:

Dim Data1 As Date
Dim Data2 As Date
Dim Differenza As Long
Dim M As MessageBox
Dim drQuit As DialogResult

Data1 = Today()
Data2 = DTPData.Value
Differenza = DateDiff("d", Data1, Data2)

if Differenza < 3 Then

drQuit = MessageBox.Show("Attento!! Hai una scadenza tra 3 giorni", _
            "Messaggio di allerta", _
            MessageBoxButtons.YesOnly, _
            MessageBoxIcon.Warning, _
            MessageBoxDefaultButton.Button1)
else
End If

[alka]

Originariamente inviato da bobovieri
vi posto il codice perchè non mi riesce di farla funzionare. Sembrerà una cretinata ma non ci riesco.

Quando qualcosa non funziona, si dovrebbe specificare in quale modo non funziona, altrimenti risulta difficile individuare il problema, se non copiando il codice interamente e compilandolo. :rollo:

[diegocoz]

Io l'ho modificato e semplificato così:

    Dim Data1 As Date
    Dim Data2 As Date
    Dim Differenza As Long
    Dim drQuit As Long
    
    Data1 = Now()
    Data2 = Now() + 2
    Differenza = DateDiff("d", Data1, Data2)
    
    If Differenza < 3 Then
    
        
        drQuit = MsgBox("Attento!! Hai una scadenza tra 3 giorni", _
                    vbyesonly, _
                    "Messaggio di allerta")
    End If

Ma comuqnue una prima cosa che mi sembra errata nel tuo codice è l'ordine dei parametri alla messagebox: il tipo di tasto vbYesOnly va come secondo.

Ciao

[bobovieri]

Scusami!!!
Il fatto è che ho sbagliato a premere il tasto... Volevo vedere l'anteprima e invece ho inviato la discussione!!!

Il problema è che non mi da risposta, cioè credo che non faccia neanche la differenza tra le date, e di conseguenza, non mi appare la MsgBox.

Dico che non fa la differenza perchè ho provato anche a far scivere all'interno di una Text il valore di Differenza, ma la text rimane vuota.

Grazie dell'aiuto e scusatemi tutti ancora!!!

[alka]

Originariamente inviato da bobovieri
Scusami!!!
Il fatto è che ho sbagliato a premere il tasto... Volevo vedere l'anteprima e invece ho inviato la discussione!!!

Originariamente inviato da bobovieri
Il problema è che non mi da risposta, cioè credo che non faccia neanche la differenza tra le date, e di conseguenza, non mi appare la MsgBox.

Purtroppo, nel malvagio mondo dell'informatica non esiste il "credere": devi verificare ogni cosa a livello pratico.
Metti un breakpoint e controlla quanto valgono le date, verifica il valore della differenza, segui il percorso di esecuzione del codice...

Originariamente inviato da bobovieri
Dico che non fa la differenza perchè ho provato anche a far scivere all'interno di una Text il valore di Differenza, ma la text rimane vuota.

Magari è sbagliato il codice che visualizza la differenza nella TextBox, ma se non lo scrivi non potremo mai saperlo... :rollo:

Ciao!

[bobovieri]

Puoi anche darmi del cretino, ma ora che me lo dici non credo di aver mai fatto la differenza tra le date, ecco perchè non l'ho scritta!!!
Credo veramente di aver troppo sonno!!!

Mi dispiace anche di aver postato una idiozia del genere per colpa della mia sbadataggine; ora provo, casomai aggiungendo anche la differenza tra le date (Data1 - Data2) e se incontro ancora problemi, vi faccio sapere.

Per il momento ringrazio tutti per la pazienza!!!

Ciao e a presto!!!

[alka]

Originariamente inviato da bobovieri
Puoi anche darmi del cretino, ma ora che me lo dici non credo di aver mai fatto la differenza tra le date, ecco perchè non l'ho scritta!!!

Come sarebbe a dire? Scusa, come hai fatto a copiare e incollare qui un pezzo di codice che non hai mai scritto...

Originariamente inviato da bobovieri
Credo veramente di aver troppo sonno!!!

Ho paura che ci sia dell'altro...

Originariamente inviato da bobovieri
Mi dispiace anche di aver postato una idiozia del genere per colpa della mia sbadataggine; ora provo, casomai aggiungendo anche la differenza tra le date (Data1 - Data2) e se incontro ancora problemi, vi faccio sapere.

Il mondo è bello perchè...è avariato (?) :master:

[bobovieri]

Quello che ho scritto è il codice che ho inserito nel form.
O sono tutto scemo o comincio a non capirci più nulla....

[alka]

Originariamente inviato da bobovieri
Quello che ho scritto è il codice che ho inserito nel form.
O sono tutto scemo o comincio a non capirci più nulla....

Scusa, ma sono io a non capirci più nulla.

Se non hai scritto il codice che calcola la differenza, da dove proviene il codice che hai riportato nel primo messaggio, quello con cui hai aperto la discussione?

[bobovieri]

E' quello il mio codice che calcola la differenza....

Differenza = DateDiff("d", Data1, Data2)

ma non la calcola!!!