Άθροισμα Ωρών εργασίας σε Vbasic ?

ntsakis · 5 Απριλίου 2005

Άθροισμα Ωρών εργασίας .

Ξέρει κανείς πως γίνεται ? Εάν υπάρχει κάποια συνάρτιση ?

Θέλω π.χ να αθροισω 2 ώρες (13:00 + 02:30 ) = 15:30

Help

Japan · 5 Απριλίου 2005

Se C pou eixa kanei kapote kati paromoio to eixa kanei etsi:

Time1+Time2=Time3

if ypoloipo tou Time3/100>=60

then Time3=Time3+40

if Time3>2400

then Time3=Time3-2400

To deftero if einai mono an thes na vreis px kapoia ora afiksis, oxi athroisma ergatooron.

Mpakalotropos vevaia... alla....

Chryssa

kostas_crete · 5 Απριλίου 2005

Tropos 1:

kane copy paste ton kwdika sto load event mias formas

>Dim tim1 As Date
Dim tim2 As Date

tim1 = "13:30"
tim2 = "08:00"
MsgBox tim1 + tim2

Tropos 2

Xrhsimopoihse thn dateadd(kane copy paste ton kwdika sto load event mias formas)

>Dim tim1 As Date
Dim tim2 As Date

tim1 = "13:30"
tim2 = DateAdd("h", 8, tim1)
MsgBox tim2

elpizw na voi8isa

random · 5 Απριλίου 2005

Αλλος τρόπος ειναι να στο κανει η βαση. υποθετω οτι ειναι καπου αποθηκευμενες οι ωρες εξοδου , εισοδου σε μια βαση,

και αν υποστηριζει πεδια ή functions τυπου date, να τα σηκωσεις κατευθειαν με sql.

πχ sthn oracle αν αφαιρεσεις 2 πεδια date, σου δινει αποτελεσμα ενα δεκαδικό number Ζ σε ημερες.

Ζ χ 24 = ώρες,

Ζ χ 24 χ 60 = λεπτά

select eisodos, exodos, ((exodos-eisodos)*24*60) diarkeia_min from workhours...

με τον ιδιο τροπο και η προσθεση, eisodos+diarkeia= exodos

Προτεινόμενες αναρτήσεις