Visual Basic 6 - aiuto in vb6

Forum - Visual Basic 6 - aiuto in vb6 - Pagina 2

Pagine: [ 1 2 ]

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 19:56
Giovedì, 03/07/2008

E' la stessa cosa... va bene anche con il calendario e farò così... grazie a tutti!!!

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 20:00
Giovedì, 03/07/2008

Testo quotato

Postato originariamente da super rambo:

E' la stessa cosa... va bene anche con il calendario e farò così... grazie a tutti!!!

Ma che senso ha usare un controllo "pesante" come il calendario solamente per sommare 30 giorni ad una data, quando il VB mette a disposizione semplici funzioni di controllo delle date?

Mah ...

Shutdown (Founder Member)
Guru

Messaggi: 1212
Iscritto: 10/09/2005

Postato alle 20:59
Giovedì, 03/07/2008

Testo quotato

Postato originariamente da gantonio:

Testo quotato

Postato originariamente da super rambo:

E' la stessa cosa... va bene anche con il calendario e farò così... grazie a tutti!!!

Ma che senso ha usare un controllo "pesante" come il calendario solamente per sommare 30 giorni ad una data, quando il VB mette a disposizione semplici funzioni di controllo delle date?

Mah ...

Eh.. Infatti lo credo anche io.. Inoltre, non conoscendo queste funzioni di Visual Basic avevo suggerito di affrontare il problema diversamente..

Va be'..

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 21:06
Giovedì, 03/07/2008

Testo quotato

Postato originariamente da gantonio:

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

è per questo che esisti
cmq se volessi aggiungere anni o mesi?

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 21:45
Giovedì, 03/07/2008

' Aggiunge un anno
Text2.Text = DateAdd("yyyy", 1, CDate(Text1.Text))

' Aggiunge 2 mesi
Text2.Text = DateAdd("m", 1, CDate(Text1.Text))

' Aggiunge 1 trimestre
Text2.Text = DateAdd("q", 1, CDate(Text1.Text))

' Aggiunge 30 giorni
Text2.Text = DateAdd("d", 30, CDate(Text1.Text))

Pagine: [ 1 2 ]