Doorzoek het forum
Zoeken met Startpagina
Startpagina Thema's
peter
zoek de getalnotatie van verstreken tijd in access
:mm in exsel is ???? in access
Dit forum staat op alleen-lezen. Je kan hier informatie zoeken en oude berichten terugvinden, maar geen nieuwe berichten plaatsen.
Naar overzicht van alle forums
ok een duidelijk voorbeeld
Heb twee velden, beginuur en einduur.
nu zou ik graag de werkuren berekenen.
in exsell is dit gemakkelijk te berekenen door een formuletje + met celeigenschap
voor werkuren :mm (=verstreken uren)
VB. beginuur einduur werkuren
02:30 12:30 10:00
probleempje = als ik over middernacht ga
beginuur einduur werkuren
22:00 03:00 #######
Help is dit op te lossen?
Wil jullie hulp inroepen zodat ik in mijn databace de juiste werkuren kan berekenen.
groetjes
Ik heb een Query gemaakt waar ik de werkuren bereken ook als aanvangstijd en eindtijd middernacht overschrijd.
veld: Datum Project Aanvangstijd Eindtijd Werkuren:
(-1-)
vb. Aanvangstijd is 22:00 en Eindtijd is 06:00 dan is Werkuren 08:00
Tot zo ver is het mij gelukt.
Nu zou ik in een rapport de som van al de werkuren over een periode(maand, jaar) willen optellen.
Je kan begrijpen dat deze uren over een heel jaar kunnen oplopen.
Toch zou ik deze totaal uren willen weergeven in alleen uren en minuten. Vb. 1274 u:58 m
Met een appart veld ( =Som() ) in het rapportvoettekst lukt het mij niet.
Kan iemand mij helpen?
HOOP DAT IEMAND MIJ KAN HELPEN.
In onderstaand voorbeeld zou de uitkomst 20 moeten zijn maar ik krijg -44 als uitkomst.
Het record 8:00 in WERKUREN word aanzin als -56 uren ipv 8 uren.
Is dit te verhelpen zodat ik wel de juiste som van WERKUREN kan berekenen.
Deze werkuren zijn uren onderhoud aan machines die voor middernacht kunnen beginnen en na middernacht kunnen eindigen.
Het is dus heel belangrijk deze uren juist te kunnen berekenen om dat deze uren namelijk ook geen productie uren zijn.
Ik zou dus de werkuren willen berekenen aan de hand van aanvangstijd en eindtijd.
Deze werkuren ook weergeven in effectief gewerkte uren, en deze werkuren ook JUIST optellen.
TABEL
AANVANGSTIJD EINDTIJD
22:00 6:00
6:00 18:00
QUERY
BEGINTIJD EINDTIJD WERKUREN: (-1-)
22:00 6:00 8:00
6:00 18:00 12:00
RAPPORTVOETTEKST
Besturingselementenbron=TijdNaarString(Som())
Public Function TijdNaarString(ByVal tijd As Single) As String
'de variabele “tijd” is een kommagetal vb 1,35564 met als eenheid de dag
Dim uren As Integer
Dim minuten As Integer
Dim seconden As Integer
tijd = tijd * 24 'tijd in dagen
uren = Int(tijd) 'uren
minuten = Int((tijd - uren) * 60) 'de resterende minuten berekenen
seconden = Int(((tijd - uren) * 60 - minuten) * 60) ' de resterende seconden berekenen
TijdNaarString = uren & “:” & minuten & “:” & seconden 'totaaltijd weergeven als string
End Function
