Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
casa verde 2024

Intrerupator cu N - doza doar cu ...

Incalzire casa fara gaz/lemne

Incalzire in pardoseala etapizata
 Suprataxa card energie?!

Cum era nivelul de trai cam din a...

probleme cu ochelarii

Impozite pe proprietati de anul v...
 teava rezistenta panou apa calda

Acces in Curte din Drum National

Sub mobila de bucatarie si sub fr...

Rezultat RMN
 Numar circuite IPAT si prindere t...

Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor

Discuții despre TVR Sport HD.
 

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 spinală minim invazivă Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

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