Newsgroup: it.comp.lang.visual-basic
Titolo: Sfida [perche' sono un paraculo]

Vediamo chi di voi riesce a scrivere entro domani una funzione
che mi calcola quante ore sono passate tre una partenza a una data ora di un
giorno
e un arrivo a una datat ora di un altro giorno successivo che non deve per
forza essere
il giorno dopo ma puo' anche essere un mese dopo.
:))
NON E' PERCHE' NON MI VA DI SCRIVERMELA DA ME E/O NON CI RIESCO EHHH!
che vi credete , sono un programmatore con i controcazzi io :))
E non è mica perche' ci sto sbattendo da circa 5 ore senza riuscire a
stabilire l'intervallo di ore tra un gg e l'altro eh :)))
E , vi giuro!, non è perche' il capo mi si beve se non termino sto
programma!
No, è solo per il gusto della sfida :))
Vi giuro che se domani trovo sta funzione postata qui, non la copio!
Perche' ce la posso fare da solo io, non ho mica bisogno di copiare io :)
Avete quattro campi testo ,un modulo bas  e una msgbox:)
ecco le armi, a voi usarle bene.
Ci vediamo domani alle nove del mattino !
 Codardi...tze' e puah. :)))))))))))))))))))))
Akuma. Disperato. maledetta funzione conta ore...sigh ..
-- 
Risolvi l'addizione per rispondermi in privato
ehm ...   fa 59 ... e non dire "Ma io lo sapevo! cosi' mi hai rovinato
la sorpresa!"

 il giorno dopo ma puo' anche essere un mese dopo.
CUT]
eheheeh , vabeh dai :)
ci ho provato :))
Oggi la finisco da me :))
Buon lavoro a tutti :)


Ce l'hai fatta?
ciao
ugo

 Ce l'hai fatta?
per adesso la funzione tira fuori l'intervallo in ore minuti tra le due date
a patto che il giorno sia lo stesso.
Adesso inizio a smanettare al caso in cui i gg sia diversi =)
Ditemi buona fortuna
Gregory

 ha scritto nel messaggio
news:1pA7b.92082$sj6.1...@tornado.fastwebnet.it...

Apri vb, premi F1 trova Datediff
ciao Alfredo

 ciao Alfredo
MIk

 il giorno dopo ma puo' anche essere un mese dopo.
Private Sub Chms(ByVal Data As Date, ByRef Ore As Long, ByRef Minuti As 
Long, ByRef Secondi As Long)
     Dim Resto As Double
     Resto = Data * 24
     Ore = Fix(Resto)
     Resto = (Resto - Ore) * 60
     Minuti = Fix(Resto)
     Resto = (Resto - Minuti) * 60
     Secondi = Fix(Resto)
End Sub
Quante ore sono passate da ieri a quest'ora e la mezzanotte?
     Dim o As Long, m As Long, s As Long
     Call OreDecimali(Date - (Now - 1), o, m, s)
     Debug.Print o, m, s
Ciao

 il giorno dopo ma puo' anche essere un mese dopo.
Oh Akuma, ma te leggere i post di risposta ai tuoi, mai, vero?!
Quante soluzioni hai avuto ieri (no, non la mia)?

Boh...io, piu che altro grazie a te (lupo) , ho intuito cosa dovevo fare e
stamattina alle 9 la funzione era pronta e funzionante.
Forse perke' sei l'unico che ha capito il problema che avevo io con quella
funzione
(una funz che aveva 4 parametri in entrata , due date (partenza e arrivo) e
due orari ( partenza e arrivo).
E la domanda era "come faccio a vedere quanti minuti sono passati tra il 15
maggio 2001 alle 21.32 di sera E il 25 gennaio 2003 alle 9 del mattino" ?
Invece piu di qualcuno mi ha consigliato il datediff che , se vogliamo ,
svolge una parte minima in questa funzione....boh.,..sara' segno che non
leggono fino in fondo quando il post presenta piu di 12 righe.
Tra l'altro...credo che, nello specifico , questo thread non doveva nemmeno
esistere.
L'ho scritto per scherzo, come a dire "sapete benissimo che per domani mi
serve qst funzione,
se qualcuno ce la dovesse avere me la posti pure ma sia chiaro che [smile!]
SE VOGLIO LO FACCIO DA SOLO..NON HO BISOGNO DI VOI IO SONO FORTE E FACCIO
TUTTO DA SOLO. [/smile!] " :)
mentre invece beh ...ho avuto dei problemi a scriverla...perche' ho ancora
qualcosa da imparare probabilmente :)))
Ecco tutto, era per scherzo
 un po' come ai tempi di Wally.
Akuma.
Credo che non si sia capito forse il tono ..non so ...ma era abbastanza
palese....

 vogliamo , svolge una parte minima in questa funzione
mi permetto di correggerti.
il tipo "data" è in grado di contenere sia il valore del "giorno" sia quello
dell'orario, quindi se tu sommi la data di partenza all'ora di partenza, la
data di arrivo all'ora di arrivo, e sottoponi questi due risultati alla
funzione datediff, hai esattamente quello che ti serve
--
Salutoni
Sergio


forse sei te che esculi a pripori le risposte o non le leggi proprio
? datediff("n","15/05/2001 21.32.00","25/01/2003 9.00.00")
 892048 minuti
ossia 620 giorni
a me sembra più che corretto!
ciao Alfredo.

 vogliamo , svolge una parte minima in questa funzione....boh.,..sara'
Ma hai letto sulla guida il datediff?
MIk

 maggio 2001 alle 21.32 di sera E il 25 gennaio 2003 alle 9 del mattino" ?
La guida in linea è installata nel pc dove lavori ?
giuseppeD

 due orari ( partenza e arrivo).
Ma hai letto i miei post?