Tijdsvalue omzetten naar een rekenbaar getal

[DutchOirs]

L.S.

Zit met een probleempje met het omrekenen van een tijd.
Heb een bepaalde tijd, die moet vermenigvuldigt worden met een waarde.
Aangezien (2h 15min) 2.15 x € 4,- niet de juiste waarde geeft, moet dus eerst de tijd omgezet worden naar getal.
Deze berekening zou dus €8,60 worden terwijl het € 9,- moet zijn.
Is hier een makkelijke formule voor?
Heb het forum afgestruind, maar kom hem helaas niet tegen.

Is denk ik toch wel een vaak voorkomend probleem.

Iemand een idee?

Already many thanks

Dutch

 

[edmoor]

Deze?
=tijdcel * 24 * uurtarief

In je voorbeeld:
2:15 * 24 * 4 = 9

 

[DutchOirs]

Goedemiddag Edmoor,

De tijd (verschil tussen 2 tijden) = b.v. 2:15
Hij geeft dat weer in de cel als 02:15
Dit kan ik niet verrekenen met een getal
Dat is het probleem waar ik tegenaan loop

Zou dus moeten worden 2 x € 4,- = € 8,-
+ 0.15 min. = 1/4 uur dus € 1,-
Totaal dus € 9,-

 

[edmoor]

Een tijd kan je altijd naar een getal omzetten.
Zet de eigenschap van de cel met de berekening die ik liet zien op Getal.
Of plaats een voorbeeld documentje.

 

[DutchOirs]

Ok even een voorbeeldje.

Kijk niet naar de puinhoop, maar ben aan het testen

 

[edmoor]

Kijk naar de waarde in A1, de eigenschappen van C1 en de formule in C1.
A1 is een cel met tijd notatie.
Exact wat ik in #2 liet zien.

 

[DutchOirs]

ok, dat werkt in de sheet.

Probeer het nu via de textbox

Gebruik:

      .Range("A7") = .Range("A5").Value * 24 * .Range("B26").Value

en dat werkt dus niet

 

[edmoor]

In een textbox geef je geen tijdwaarde in maar alleen tekst.

 

[DutchOirs]

en kan je de invoer dan niet sturen met TimeValue?

 

[edmoor]

Geef eens een vorbeeld van wat je zelf in die textbox invult.

 

[DutchOirs]

in TextBox1 vul ik b.v. 1000
en in TextBox2 1200

verschil is dus dan 2 uur

dat zou dan maal die € 4,- moeten = dus € 8,-

deze is dus simpel, als het b.v. 2.15 uur is

In het v.b. hieronder zou in cel A7 de uitkomst, dus € 8,- moeten komen

 

[edmoor]

Dan zal je in de VBA er achter moeten bepalen dat die 2 dus 2 uren betekent en daarmee aan de slag moeten.
Bij 2.15 moet je dus bepalen dat dat 2 uur en 15 minuten betekent.
Dat weet een textbox niet.

 

[DutchOirs]

klopt en dat probeer ik bovenwater te krijgen

Heb wel inmiddels dat het verschil in die 2 TextBoxen in TimeValue wordt weergegeven

 

[edmoor]

Als die 2.15 puur tekst is;

Sub td()
    Uur = "2.15"
    Tarief = 4
    x = Split(Uur, ".")
    minuten = x(0) + x(1) / 60
    MsgBox minuten * Tarief
End Sub

 

[DutchOirs]

Helaas geeft foutmelding, subscript valt buiten bereik

 

[edmoor]

De code die ik plaatste werkt prima.

 

[DutchOirs]

hij geeft foutmelding op

 Minuten = x(0) + x(1) / 60

Even verder gezocht.
Probleem zit hem in x(1)

 

[edmoor]

Wat ik al zei, de code zoals ik deze plaatste werkt prima.
Eventueel kan je de + wijzigen in een &
Plaats anders je document waarin dat mis gaat.

 

[DutchOirs]

Ok hier komt ie weer

Ook bij & geeft ie de foutmelding

zie vb-tje

 

[edmoor]

Dat kan natuurlijk ook niet op een KeyDown event omdat de benodigde informatie dan nog niet compleet is.