somma di orari ore e minuti di una variabile di tipo date

[Nick]

ho due campi formattati nel seguente modo:
hh.mm (ore e minuti)

dovrei fare la somma ad un orario di ingresso di una cifra x di minuti.
ho guardato sul sito e sui post precedenti ma non ho trovato una soluzione.

esiste una funzione o una scorciatoria senza dover trasportare i dati in stringhe come nell'esempio
di Silvio Berruti?

Grazie
Ciao
Nick

['gnurant]

Non mi è chiaro "un orario di ingresso di una cifra x di minuti"
Non riesco ad aiutarti così

--
'gnurant come una cucuzza

Inviato da www.mynewsgate.net

[Nick]

Post by 'gnurant
Non mi è chiaro "un orario di ingresso di una cifra x di minuti"
Non riesco ad aiutarti così
--
'gnurant come una cucuzza
Inviato da www.mynewsgate.net

allora io ho una funzione che ha in ingresso una variabile di tipo date
questa variabile ha solo ore e minuti

all'interno della funzione faccio alcuni controlli e a seconda della situazione dell'orario che sto
valutando devo aggiungere un numero di minuti alla mia variabile.

la funzione mi dovrebbe restitutire l'orario iniziale più i minuti che ho calcolato.

scusa se sono poco chiaro ma quando vado nel pallone... non riesco a sistemare nemmeno l'italiano
:-)

Grazie
Ciao
Nick

['gnurant]

Scusa, ma continuo a non capire(non ti sto prendendo in giro)
Scrivi magari le righe di codice che hai già scritto
Ciauz

Post by Nick
hh.mm (ore e minuti)
dovrei fare la somma ad un orario di ingresso di una cifra x di minuti.
ho guardato sul sito e sui post precedenti ma non ho trovato una soluzione.
esiste una funzione o una scorciatoria senza dover trasportare i dati

in stringhe come nell'esempio

Post by Nick
di Silvio Berruti?
Grazie
Ciao
Nick

--
'gnurant come una cucuzza

Inviato da www.mynewsgate.net

[Nick]

[CUT]

questa è la funzione ....(una parte)

Public Function ArrotondaOra(OraIn As Date) As Date
Dim Min As Integer

Min = Minute(OraIn)
if min <> 30 then
min = 30-min
OraIn = OraIn + Min
end if

questo è uno dei punti dove devo sommare i minuti (in poche parole sommo i minuti che mi mancano a
raggiungere l'arrotondamento desiderato)

spero di aver chiarito un po' le idee... :-)

grazie (anche per la pazienza)
ciao
Nick

['gnurant]

Abbi pazienza tu ma, sia il fatto che oggi è venerdì, sia che ci metto del
mio(e parecchio), ma continuo a non aver chiare alcune cose

Fin qui ho capito che:
1.hai un orario espresso in ore e minuti(OraIn?) e ci devi sommare un tot
di minuti
2.il tot di minuti lo calcoli secondo l'if che hai scritto(la variabile Min
giusto?)

Ciò che non capisco è quale arrotondamento devi raggiungere
Fammi sapere
Ciauz

Post by Nick
[CUT]
questa è la funzione ....(una parte)
Public Function ArrotondaOra(OraIn As Date) As Date
Dim Min As Integer
Min = Minute(OraIn)
if min <> 30 then
min = 30-min
OraIn = OraIn + Min
end if
questo è uno dei punti dove devo sommare i minuti (in poche parole sommo

i minuti che mi mancano a

Post by Nick
raggiungere l'arrotondamento desiderato)
spero di aver chiarito un po' le idee... :-)
grazie (anche per la pazienza)
ciao
Nick

--
'gnurant come una cucuzza

Inviato da www.mynewsgate.net

[Nick]

Post by 'gnurant
Abbi pazienza tu ma, sia il fatto che oggi è venerdì, sia che ci metto del
mio(e parecchio), ma continuo a non aver chiare alcune cose
1.hai un orario espresso in ore e minuti(OraIn?) e ci devi sommare un tot
di minuti
2.il tot di minuti lo calcoli secondo l'if che hai scritto(la variabile Min
giusto?)
Ciò che non capisco è quale arrotondamento devi raggiungere
Fammi sapere
Ciauz

l'arrotondamento sono quei min che devo aggiungere!! :-)
il mio problema è proprio nel sommare i minuti.

Grazie
Ciao
Nick

['gnurant]

Finalmente la mia cucuzza ha capito!(oddio, e se non ho capito????)
Devi usare la funzione DateAdd(interval, number, date)

i parametri da mettere sono quindi se non sbaglio
DateAdd("n",Min,OraIn), ovvero aggiungi ai minuti di OraIn il valore di
Min...speriamo di esserci riuscito :o)

Ciauz

--
'gnurant come una cucuzza

Inviato da www.mynewsgate.net

[Nick]

Post by 'gnurant
Finalmente la mia cucuzza ha capito!(oddio, e se non ho capito????)
Devi usare la funzione DateAdd(interval, number, date)
i parametri da mettere sono quindi se non sbaglio
DateAdd("n",Min,OraIn), ovvero aggiungi ai minuti di OraIn il valore di
Min...speriamo di esserci riuscito :o)
Ciauz
--
'gnurant come una cucuzza
Inviato da www.mynewsgate.net

perfetto funziona!!! :-)

grazie
Ciao
Nick