Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Cum accesez site-ul CNAS ?

Algoritm simplu de calculare al u...

Bitdefender Total Security ș...

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...
 

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

Bun venit pe Forumul Softpedia!

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