Visual Basic 6 - Controllare la data

Buonasera ragazzi,
spero di risolvere questo mio problema.

Comunque ecco il codice:

Private Sub Form_Load()
data = Date

Label1.Caption = "Oggi è il " & data & " "
Open (App.Path & "/DatoSalvato.txt") For Input As #1
Input #1, salva
Text2.Text = salva
Close #1
End Sub

Ho caricato la data giornaliera nella Label1 e caricato il dato salvato nella Text2. Ora vorrei sapere che in base alla data posso stabilire se quel dato salvato può far parte di certi calcoli. In specifico se il giorno 20/12/2011 ho salvato il dato dal valore di 1000, vorrei che il giorno dopo 21/12/2011 questo valore si sommi alla somma fatta precedentemente però del giorno 21/12/2011.

Ecco il codice:

Private Sub cmdCalcola_Click()
On Error Resume Next
tot = Val(Text1.Text)
tot = 0

Do
N = InputBox("Quanti valori vuoi caricare?" & vbCrLf & _
"(Inserire un valore minore di 50)", "richiesta numero dati")
Loop While N > 50

For I = 1 To N
Val(I) = InputBox("Inserisci Valore", "Inserimento Dati")
Next I

For I = 1 To N
tot = tot + Val(I)
Next I

Text1.Text = tot

End Sub

Ovviamente quello che voglio non è implementato, perchè non so come scrivere il codice.

Comunque ecco l'esempio pratico:

Giorno: 20/12/2011
Totale: 1000
Salvato=1000

Giorno: 21/12/2011
Totale=2000+1000(totale del giorno prima)
Salvato=3000

Giorno= 22/12/2011
Totale=1500+3000(totale del giorno prima)
Salvato=4500

Non so se ho reso l'idea!

Grazie per le risposte!

Ciao!
Ho letto il tuo quesito, e ti consiglio di utilizzare i file binari anziché operare su file di testo.

E come dovrei fare?

Ecco qui un esempio:

Come aprire i file binari
qbasicnews.com/qboho/…

Come scrivere:
qbasicnews.com/qboho/…

Come leggere:
qbasicnews.com/qboho/…

Il vantaggio dei file binari, è quello di poter leggere e scrivere direttamente i record su file.

In questo modo dovrei salvare la data e poi effettuare il controllo?

Si.
Definisci un record, dove poter accedere ai dati.

No...troppo complicato. Devo studiare ancora molto...sn agli inizi.
Grz lo stesso!