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 - aiuto in vb6
Forum - Visual Basic 6 - aiuto in vb6

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
super rambo (Normal User)
Pro


Messaggi: 135
Iscritto: 04/06/2008

Segnala al moderatore
Postato alle 19:30
Martedì, 01/07/2008
salve, vorrei fare in modo che inserendo una data in una txt esca in una label la data con 30 giorni in più però non so come fare... Ho provato a fare in modo che aggiungesse 30 alla data di oggi però se siamo al 20 poi come giorno esce 50. come posso fare?? grazie in anticipo!!

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 20:37
Martedì, 01/07/2008
devi aggiungere il componente calendar
e poi fare un che viene eseguito tante volte quanti i giorni che vuoi avanzare
nel for dei mettere questo codice
calenda1.nextday
o roba simile

PM Quote
Avatar
Shutdown (Founder Member)
Guru


Messaggi: 1212
Iscritto: 10/09/2005

Segnala al moderatore
Postato alle 0:42
Mercoledì, 02/07/2008
Vuoi aumentare di 30 giorni?
Non è che vuoi solo passare al mese successivo?

In ogni caso...
Se vuoi sommare 30 giorni alla data attuale devi tenere in considerazione: l'anno attuale, il mese attuale e il giorno attuale.

L'anno determina se febbraio è di 28 o 29 giorni (anno bisestile). Dopodiché sai con precisione da quanti giorni è formato ogni mese...

Ti cito cosa dice Wikipedia sugli anni bisestili:
"Un anno è bisestile se il suo numero è divisibile per 4, con l'eccezione che gli anni secolari (quelli divisibili per 100) sono bisestili solo se divisibili per 400."

Quindi prendiamo ad esempio 01/02/2008 .
1) L'anno è bisestile quindi febbraio è di 29 gg.
2) Sommiamo al gg attuale 30 giorni e ci accorgiamo che 1+30=31, quindi finiremo nel mese successivo (marzo) e precisamente al giorno numero: 2.

Adesso dovresti avere le idee più chiare su come procedere...
Se hai problemi fai un fischio.

Ultima modifica effettuata da Shutdown il 02/07/2008 alle 0:56
PM Quote
Avatar
super rambo (Normal User)
Pro


Messaggi: 135
Iscritto: 04/06/2008

Segnala al moderatore
Postato alle 10:57
Mercoledì, 02/07/2008
io ho difficolta proprio in questo perchè non so come fare a stabilire che febraio è di 28 ecc... come posso fare??

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 11:23
Mercoledì, 02/07/2008
te l ho detto aggiungi il componente microsoft calendar, lo metti nel form con visible false

poi usi .nextday per avanzare di un giorno (se è il 31, vai al 1 del meso dopo e se necessario anche dell' anno)
.nextmonth
.nextyear
sempre per avanzare nel tempo

poi .day restituisce o imposta il giorno
.month
.year

in pratica il calendar gestisce lui tt: anno sisestile, giorni dei mesi e altro

PM Quote
Avatar
super rambo (Normal User)
Pro


Messaggi: 135
Iscritto: 04/06/2008

Segnala al moderatore
Postato alle 11:28
Mercoledì, 02/07/2008
si, però io devo avanzare sempre di 30 gg da una data che può variare... ad esempio io inserisco in una textbox 2\07\08 e poi in una label mi deve uscire 1\08\08 cioè in pratica devo aggiungere 30 gg alla data che viene inserita nella textbox quindi se unso netxtday conta un giorno in più da quello attuale.. non so se mi sono spiegato

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 13:38
Mercoledì, 02/07/2008
devi dare al calendar la data da cui vuoi inziare a contare, quidni splitti la data e assesgni alla proprietà day del calendar il giorno...
splitti
.day=data(0)
.month=data(1)
.year=data(2)

poi fai il for con .nextday per avanzare

poi ricomponi la data .day & "/" & .month ....

PM Quote
Avatar
Karl (Member)
Pro


Messaggi: 70
Iscritto: 31/12/2006

Segnala al moderatore
Postato alle 17:08
Giovedì, 03/07/2008
In poche righe fai così:

Private Sub Avanza_Click()
    For i = 1 To 30
       Me.Calendar1.NextDay
    Next
End Sub

:k:

Ultima modifica effettuata da Karl il 03/07/2008 alle 17:09
PM Quote
Avatar
gantonio (Normal User)
Guru^2


Messaggi: 1532
Iscritto: 09/09/2007

Segnala al moderatore
Postato alle 19:54
Giovedì, 03/07/2008
Ma perche' tutte queste soluzioni strane?

Nessun calendario ... nessun ciclo ... se hai due textbox scrivi

    Text2.Text = CDate(Text1.Text) + 30

P.S. La data non si scrive cosi'

2\07\08

ma cosi'

02/07/2008

Ultima modifica effettuata da gantonio il 03/07/2008 alle 19:55
PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo