Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Care este cea mai calitativa tabl...

Laptop Dell sau recomandare Lapto...

M.Zuiko Digital 90mm F/3.5 macro

Tehnologia DSL la Orange?
 conectare navigație auto la ...

Care e pretul corect pe mp?!

Auto 200-250km/zi autostrada, fia...

Idei noi? Ce verificam la o masin...
 Încarcare acumulatori LiPo de 1,5v...

cel mai ieftin generator trifazic

Iti place sa mananci iute?

cum il cheama pe acest SSD?
 Trec ITP-ul daca am montat alt mo...

Problema mesaj supraincalzire tel...

Recuperare Cont Yahoo mail

Legislatie ambiguua/incompatibili...
 

Inmultire date cu number VBA

- - - - -
  • Please log in to reply
1 reply to this topic

#1
tzuny

tzuny

    Junior Member

  • Grup: Members
  • Posts: 120
  • Înscris: 16.07.2009
01.11.13 00:00:00
01.11.13 01:00:00
01.11.13 02:00:00
01.11.13 03:00:00
01.11.13 04:00:00
01.11.13 05:00:00
01.11.13 06:00:00
01.11.13 07:00:00
01.11.13 08:00:00

Salut am coloana de deasupra "A".Pentru a afla timpul total pe colonana respectiva (E doar exemplu. Defapt coloana este pe 1 luna si ultima varianta nu e valoarea totala.Pentru ca orele se repeta bineinteles pe fiecare zi 23:00:00 -> 00:00:00 -> 01:00:00).
Vreau sa aflu timpul. Am zis ca fac un count. La final imi da un nr. (ex. : 720). Dar vreau sa imi dea sub forma de ore.
gen ar fi:

Function TimpTotal()
Dim x As Long
Sheet2.Range("H6") = Format(Date, "[h]:mm:ss")
x = Application.Count(Range("A:A"))
Range("H6") = x + [1:00:00]
End Function
adik: 720 x 1:00:00 = 720:00:00 ()

#2
tzuny

tzuny

    Junior Member

  • Grup: Members
  • Posts: 120
  • Înscris: 16.07.2009
Function TimpTotal()
Sheet2.Range("H6") = Format(Date, "[hh]:mm:ss")
Dim suma As Date
Dim LastRow As Long
Dim i As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row
suma = 0
For i = 2 To LastRow
If Range("A" & i + 1) <> 0 Then
suma = suma + (Range("A" & i + 1) - Range("A" & i))
End If
Next i
Range("H6") = suma
   End Function

Cam la solutia asta am ajuns ca trebuie facut.!

Anunturi

Chirurgia cranio-cerebrală minim invazivă Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate