HELP VB6: Operazioni con date

[startac130]

Ciao,
stò facendo un gestionale e ho un problemino operando sulle date:
dovendo calcolare la scadenza di una fattura (da db Access)
es: 30/04/2004 a 30 gg fine mese??

Ciao e grazie!

[MMarzia]

sarà che non me ne intendo di gestionale, ma non ho capito il problema

[startac130]

data fattura 06/04/2004
scadenza fattura: 30 gg fine mese (31/05/2004)
sono riuscito a sommare 30 gg (Risultato: 06/05/2004) con la funzione "dateAdd" ma... come arrivare alla fine del mese?

[vonkranz]

Originariamente inviato da startac130
Ciao,
stò facendo un gestionale e ho un problemino operando sulle date:
dovendo calcolare la scadenza di una fattura (da db Access)
es: 30/04/2004 a 30 gg fine mese??

Ciao e grazie!

In sostanza vuoi sapere l'ultimo giorno del mese a partire dalla data attuale +30gg?

[startac130]

yess! come fare???
Grazie.

[vonkranz]

Originariamente inviato da vonkranz
In sostanza vuoi sapere l'ultimo giorno del mese a partire dalla data attuale +30gg?

...ehm...appunto...

dim M(12) as integer
M(1)=31
M(2)=28
M(3)=31
M(4)=30
M(5)=31
M(6)=30
M(7)=31
M(8)=31
M(9)=30
M(10)=31
M(11)=30
M(12)=31

Scadenza= M(Month(DateSerial(Year(datafattura), Month((datafattura)), Day(datafattura) + 30))) & " " & MonthName(Month(DateSerial(Year(datafattura), Month((datafattura)), Day(datafattura) + 30)))

[startac130]

Ma vieeeeeeeeni... Funge!
grazie tante.. potrei approfittare ancora della disponibiletà chiedendo:
se voglio lasciare la data in formato numerico (31/05/2004) basta togliere la seconda parte (month name)?
Grazie ancora!
Ciao. M@tteo.

[vonkranz]

Originariamente inviato da startac130
Ma vieeeeeeeeni... Funge!

........

Originariamente inviato da startac130
grazie tante.. potrei approfittare ancora della disponibiletà chiedendo:
se voglio lasciare la data in formato numerico (31/05/2004) basta togliere la seconda parte (month name)?
Grazie ancora!
Ciao. M@tteo.

Scadenza = M(Month(DateSerial(Year(datafattura), Month((datafattura)), Day(datafattura) + 30))) & "/" & Format(CStr(DateSerial(Year(datafattura), Month((datafattura)), Day(datafattura) + 30)), "mm/yyyy")