Új hozzászólás Aktív témák

• #39217 Pakliman tag GreenIT #39216

  Új Válasz 2018-09-26 11:00:29 #39217

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Pakliman

  tag

  válasz GreenIT #39216 üzenetére

  Segítség leginkább az utóirathoz.
  A Kezd és Végez paraméter EGÉSZ!!szám (pl.: 2352) és idő formátumot is tud kezelni.
  A függvény kezeli az egyik napról a másikra átnyúló időt.
  Mindhárom fv használható makróban és cellában is.

  Public Function ElteltIdő(Kezd, Végez, Optional bVisszaPercben As Boolean = True)
Dim xKezd As Long
Dim xVégez As Long

If IsDate(Kezd) Then
xKezd = (Hour(Kezd) * 60) + Minute(Kezd)
Else
xKezd = NtoP(CLng(Kezd))
End If

If IsDate(Végez) Then
xVégez = (Hour(Végez) * 60) + Minute(Végez)
Else
xVégez = NtoP(CLng(Végez))
End If

If xVégez < xKezd Then xVégez = xVégez + 1440

ElteltIdő = IIf(bVisszaPercben, xVégez - xKezd, PtoN(xVégez - xKezd))
End Function

Public Function NtoP(szám) As Long
'1234 formátumú (12 óra 34 perc) számot kell megadni
'Az eredmény a percek száma
'Pl.: NtoP(123)=83 (1 óra 23 perc = 83 perc)

NtoP = ((szám \ 100) * 60) + (szám Mod 100)

End Function

Public Function PtoN(szám) As Long
'Perceket kell megadni
'Az eredmény egy 1234 formátumú (12 óra 34 perc) szám
'Pl.: PtoN(83)=123 (1 óra 23 perc)

PtoN = ((szám \ 60) * 100) + (szám Mod 60)

End Function

Új hozzászólás Aktív témák