Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - sottrarre date e scrivere risultato su file
Forum - Visual Basic 6 - sottrarre date e scrivere risultato su file

Avatar
marcus80 (Normal User)
Newbie


Messaggi: 8
Iscritto: 26/03/2007

Segnala al moderatore
Postato alle 13:59
Lunedì, 26/03/2007
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

PM Quote
Avatar
c.ronaldo (Normal User)
Expert


Messaggi: 577
Iscritto: 01/02/2007

Segnala al moderatore
Postato alle 14:36
Lunedì, 26/03/2007
Prova a fare solo Dim tempo,tempo_parz..senza as date...
Fammi sapere :k:

PM Quote
Avatar
c.ronaldo (Normal User)
Expert


Messaggi: 577
Iscritto: 01/02/2007

Segnala al moderatore
Postato alle 14:36
Lunedì, 26/03/2007
Prova a fare solo Dim tempo,tempo_parz..senza as date...
Fammi sapere :k:

PS : SCusate x il doppio post...Non sò perchè ma mi
stà succedendo spesso  :D

Ultima modifica effettuata da c.ronaldo il 26/03/2007 alle 14:38
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
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

Fammi sapere..

Ancor meglio, se posti

un On Error Resume next ;)

PM Quote
Avatar
marcus80 (Normal User)
Newbie


Messaggi: 8
Iscritto: 26/03/2007

Segnala al moderatore
Postato alle 17:10
Martedì, 27/03/2007
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

27/03/2007 17.01.05 -  27  = 28/02/2007 17.01.05
27/03/2007 17.01.07 -  27  = 28/02/2007 17.01.07
27/03/2007 17.01.08 -  27  = 28/02/2007 17.01.08

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


PM Quote
Avatar
marcus80 (Normal User)
Newbie


Messaggi: 8
Iscritto: 26/03/2007

Segnala al moderatore
Postato alle 17:13
Martedì, 27/03/2007
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

27/03/2007 17.01.05 -  27  = 28/02/2007 17.01.05
27/03/2007 17.01.07 -  27  = 28/02/2007 17.01.07
27/03/2007 17.01.08 -  27  = 28/02/2007 17.01.08

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


PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
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

27/03/2007 17.01.05 -  27  = 28/02/2007 17.01.05
27/03/2007 17.01.07 -  27  = 28/02/2007 17.01.07
27/03/2007 17.01.08 -  27  = 28/02/2007 17.01.08

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.

A me non crea problemi..

Lo ricontrollo e ti mando il progetto via mail.;)

PM Quote
Avatar
marcus80 (Normal User)
Newbie


Messaggi: 8
Iscritto: 26/03/2007

Segnala al moderatore
Postato alle 21:10
Martedì, 27/03/2007
ok grazie motoboy sei molto gentile:k:

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 0:24
Mercoledì, 28/03/2007
Testo quotato

Postato originariamente da marcus80:

ok grazie motoboy sei molto gentile:k:



Si fa quello che si può!

Il tempo di elaborarlo, per benino!

Ultima modifica effettuata da il 28/03/2007 alle 2:22
PM Quote