Uren bereken via vba in excel userform

Status
Niet open voor verdere reacties.

gast0660

Terugkerende gebruiker
Lid geworden
28 dec 2010
Berichten
4.530
Hoi,
In een excel userform heb ik 3 tekstboxen
Textbox 12 is voor de uren
Textbox 11 is de prijs per uur
Textbox 13 is het totaal
In textbox 12 wil ik getallen invoeren zoals 0.45 (45 minuten) of 2.10 (2 uur en 10 minuten) enz
Textbox 2 is een bedrag (vb 42)
Textbox 3 zou dan als resultaat moeten geven 0.45 * 42 = 31.5 of 2.10 * 42 = 91
Ik heb volgende code, maar die werkt voor geen meter.
Code:
TextBox13.Value = (Int(TextBox12.Value) + (TextBox12.Value - Int(TextBox12.Value)) * 100 / 60) * TextBox11.Value
Iemand een idee
Alvast bedankt
Groet
 
Met die Int functie maak je er een integer van en dat is altijd een geheel getal. Gebruik de Dbl (Double) functie.
 
Laatst bewerkt:
Tijd wordt niet in meters uitgedrukt, doch in seconden/minuten/uren etc. :d

Code:
Sub M_snb()
   c00 = "0.45"
   c01 = CDate(c00) * 24 * 42
   
   c00 = "2.10"
   c01 = CDate(c00) * 24 * 42
End Sub
 
Laatst bewerkt:
@gast0660,
0.45 is NIET 45 seconden, maar 45/100*60 = 27 seconden.
 
Hoi,
Dank voor de reacties
@ edmoor, deze zal ik morgenvroeg eens uitproberen
@snib, de uren zijn niet vast 2.10 kan ook 15.40 enz zijn.
De lonen (42 als vb) zijn ook niet vast (uren en lonen zijn volgens ingave in de tekstboxen
@Zapatr, dat is net waar ik tegenaanloop, ik wil dat de ingave in de tekstbox 0.45 mag zijn en niet 0.75 moet zijn voor de juiste berekening
Groet
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan