Newsgroup: it.comp.lang.visual-basic
Titolo: Fine mese

Ho una domanda sicuramente facilissima per voi, ma ho bisogno senza
perdere troppo tempo, riuscire a far funzionare un programma che ho
sviluppato in VB, che gestisce i pagamenti con le R.I.B.A. (Rimesse
Bancarie)
In pratica devo far capire al visual basic, che quando seleziono da una
combo la voce R.I.B.A. 30gg f.m. (fine mese) il programma dovrà
visualizzarmi un'avviso, partendo ad es. dal 5 maggio, il 30 giugno.
Cosi anche se per es. seleziono R.I.B.A. 60gg f.m. dovra visualizzarmi
l'avviso, sempre partendo dal 5 maggio, il 31 luglio.
Potreste postarmi il codice da inserire direttamente in una routine??
Grazie anticipatamente per la risposta.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Potreste postarmi il codice da inserire direttamente in una routine??
Questa è una richiesta che sinceramente infastidisce un po'. Almeno, io mi
sento un po' infastidito....
Salutoni
Sergio

 Potreste postarmi il codice da inserire direttamente in una routine??
Pappa pronta, eh?
Le funzioni che potrebbero interessarti, da cercare sulla guida, sono per
esempio DateAdd/DateDiff per confronti tra date, la funzione Date per
conoscere la data corrente, il controllo Timer per scatenare funzioni
periodicamente
Per lo piu' e' tutto quello che ti serve....
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 Potreste postarmi il codice da inserire direttamente in una routine??
Gugol "Ultimo giorno del mese"
Sub Gugol(KeyWord)as bool
    msgbox "Cerca su 
groups.google.com
 : " & Keyword
end

oppure è comunque il 30 giugno?
30 Giugno in quanto bisogna andare fino  a fine mese e poi calcolare i
30 giorni della RIBA quindi 30 giungo.

Gigio2k [work] wrote:




bravo veramente bravo!!!!


CSSoft wrote:




scusami ma ho fatto una semplice domanda non riesco a capire cosa ti
infastidisce, se non vuoi rispondermi allora non farlo.


 bravo veramente bravo!!!!
Grazie , cmq cerca di capire perche' trovi tutta questa ostilita' !
Forse perche' di post come il tuo ne spunta uno a settimana ? Forse perche'
questo NG e' un buon 40% di domande gia' fatte , 40% cazziate e flame vari e
20% OT ! ^_^
Quindi segui il mio consiglio scherzoso , cerca "Ultimo giorno del mese" su
groups.google.com
 troverai la soluzione in un lampo , cosa vuoi d+ ?
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 io mi sento un po' infastidito....
Mi associo pienamente!
Alex

 30 giorni della RIBA quindi 30 giungo.
Bene, quindi una riba di gennaio la pago il 2 di marzo? ;-)
Non è per far polemica, è che non sono esperto del settore: la mia
impressione e che la dicitura 30 gg f.m. sia solo una convenzione per dire
"alla fine del mese successivo". E' giusto?
Salutoni
Sergio

 infastidisce, se non vuoi rispondermi allora non farlo.
Infastidisce la richiesta: qualcosa da inserire nella mia routine.
L'impressione che fa è "Non mi interessa assolutamente come e perchè,
l'importante è avere qualcosa che funzioni, e a gratis".
Non dico sia questo il tuo spirito, ma questo è il messaggio "allegato" a
questo tipo di richieste.
Salutoni
Sergio


Esatto !

 Esatto !
se d è la data in questione, la fine del mese successivo la trovi con
FMS = DateSerial(Year(d), Month(d) + 2, 0)
--
Ciao, Silv:o)

 FMS = DateSerial(Year(d), Month(d) + 2, 0)
Vedi che ho fatto bene a non postare la soluzione: io al posto dello zero
avrei messo un meno uno, facendo l'ennesima figura barbina...
Salutoni
Sergio

 facendo l'ennesima figura barbina...
Esagerato. Una volta che  dai l'imbeccata giusta, a correggere il tiro ci
vuole quasi zero. Piuttosto, ho visto tardi che quel "quasi zero" a volte è
un lavoro fin troppo pesante per chi vuole la pappa pronta. Non volevo fare
il crumiro :)
--
Ciao, Silv:o)

 ha scritto nel messaggio
news:b983aj$gbqp1$1...@ID-49224.news.dfncis.de...

C'è sempre da imparare! Non avevo pensato all'utilizzo del
Date Serial, per cui qualche anno fa mi sono scritto la
funzione che calcola l'ultimo giorno del mese:
Function UltimoGiornoDelMese(iMese As Integer, iAnno As Integer)
   If IsDate("31/" & Format(iMese) & "/" & Format(iAnno)) Then
      UltimoGiornoDelMese = 31
   ElseIf IsDate("30/" & Format(iMese) & "/" & Format(iAnno)) Then
      UltimoGiornoDelMese = 30
   ElseIf IsDate("29/" & Format(iMese) & "/" & Format(iAnno)) Then
      UltimoGiornoDelMese = 29
   Else
      UltimoGiornoDelMese = 28
   End If
End Function