Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Ciao a tutti e complimenti per il sito.Dovrei
sottrarre due date e scriverne il valore su file
il prog è questo
Private Sub Text1_Change()
Dim tempo As Date
Dim tempo_parz As Date
Open "C:\tempo.txt" For Append As #1
tempo = Now()
Print #1, tempo
Close #1
Open "c:\tempo.txt" For Input As #1
Input #1, tempo
Close #1
Open "c:\tempoparz.txt" For Append As #2
tempo_parz = Now - tempo
Print #2, Now, "-", tempo, "=", tempo_parz
Close #2
End Sub
scritto così va in overflow, ho provato a cambiare
tipo di variabili ma non mi dà il risultato giusto,
qualcuno mi sa dire dove sbaglio?
grazie per l' attenzione
Marco
Prova a fare solo Dim tempo,tempo_parz..senza as date...
Fammi sapere
PS : SCusate x il doppio post...Non sò perchè ma mi
stà succedendo spesso
Ultima modifica effettuata da c.ronaldo il 26/03/2007 alle 14:38
()
Newbie
Messaggi: Iscritto:
Postato alle 14:50
Lunedì, 26/03/2007
Testo quotato
Postato originariamente da marcus80:
Ciao a tutti e complimenti per il sito.Dovrei
sottrarre due date e scriverne il valore su file
il prog è questo
Private Sub Text1_Change()
Dim tempo As Date
Dim tempo_parz As Date
Open "C:\tempo.txt" For Append As #1
tempo = Now()
Print #1, tempo
Close #1
Open "c:\tempo.txt" For Input As #1
Input #1, tempo
Close #1
Open "c:\tempoparz.txt" For Append As #2
tempo_parz = Now - tempo
Print #2, Now, "-", tempo, "=", tempo_parz
Close #2
End Sub
scritto così va in overflow, ho provato a cambiare
tipo di variabili ma non mi dà il risultato giusto,
qualcuno mi sa dire dove sbaglio?
grazie per l' attenzione
Marco
io direi più in questo Modo:
Private Sub Text1_Change()
On Error GoTo fine
Dim tempo As Date
Dim tempo_parz As Date
Open "C:\tempo.txt" For Append As #1
tempo = Now()
Print #1, tempo
Close #1
Open "c:\tempo.txt" For Input As #1
Input #1, tempo
Close #1
Open "c:\tempoparz.txt" For Append As #2
tempo_parz = Now - tempo
Print #2, Now, "-", tempo, "=", tempo_parz
Close #2
fine:
Exit Sub
end Sub
Grazie per la rispossta ragazzi, ma ho ancora dei
problemi..(con dim tempo,tempo_parz as date va in
overflow allora ho cambiato con) :
Private Sub Text1_Change()
On Error GoTo fine
Dim tempo
Dim tempo_parz
Open "C:\tempo.txt" For Append As #1
tempo = Now()
Print #1, tempo
Close #1
Open "c:\tempo.txt" For Input As #1
Input #1, tempo
Close #1
Open "c:\tempoparz.txt" For Append As #2
tempo_parz = Now - tempo
Print #2, Now, "-", tempo, "=", tempo_parz
Close #2
fine:
MsgBox "errore"
Exit Sub
End Sub
Pubblico il file tempo.txt
27/03/2007 17.01.05
27/03/2007 17.01.07
27/03/2007 17.01.08
il file tempoparz.txt è invece
non capisco perchè il programma va in errore (compare la msgbox), e la data non è completa ma
c ' è solo il giorno(con il debug compare la giusta data)
grazie
Grazie per la rispossta ragazzi, ma ho ancora dei
problemi..(con dim tempo,tempo_parz as date va in
overflow allora ho cambiato con) :
Private Sub Text1_Change()
On Error GoTo fine
Dim tempo
Dim tempo_parz
Open "C:\tempo.txt" For Append As #1
tempo = Now()
Print #1, tempo
Close #1
Open "c:\tempo.txt" For Input As #1
Input #1, tempo
Close #1
Open "c:\tempoparz.txt" For Append As #2
tempo_parz = Now - tempo
Print #2, Now, "-", tempo, "=", tempo_parz
Close #2
fine:
MsgBox "errore"
Exit Sub
End Sub
Pubblico il file tempo.txt
27/03/2007 17.01.05
27/03/2007 17.01.07
27/03/2007 17.01.08
il file tempoparz.txt è invece
non capisco perchè il programma va in errore (compare la msgbox), e la data non è completa ma
c ' è solo il giorno(con il debug compare la giusta data)
grazie
()
Newbie
Messaggi: Iscritto:
Postato alle 18:04
Martedì, 27/03/2007
Testo quotato
Postato originariamente da marcus80:
Grazie per la rispossta ragazzi, ma ho ancora dei
problemi..(con dim tempo,tempo_parz as date va in
overflow allora ho cambiato con) :
Private Sub Text1_Change()
On Error GoTo fine
Dim tempo
Dim tempo_parz
Open "C:\tempo.txt" For Append As #1
tempo = Now()
Print #1, tempo
Close #1
Open "c:\tempo.txt" For Input As #1
Input #1, tempo
Close #1
Open "c:\tempoparz.txt" For Append As #2
tempo_parz = Now - tempo
Print #2, Now, "-", tempo, "=", tempo_parz
Close #2
fine:
MsgBox "errore"
Exit Sub
End Sub
Pubblico il file tempo.txt
27/03/2007 17.01.05
27/03/2007 17.01.07
27/03/2007 17.01.08
il file tempoparz.txt è invece
non capisco perchè il programma va in errore (compare la msgbox), e la data non è completa ma
c ' è solo il giorno(con il debug compare la giusta data)
grazie
Ho fatto girare diverse volte, tante volte il progetto.