aantal uren uit één waarde halen

[weswillem]

Weer ff een tijd er aan bezig geweest.
Deze code zat er niet tussen bij degene die ik bewaar.

Ik probeer het aantal uren er uit te halen inluis halve uren
Iemand die mij wil helpen?

Onderstaande code is één van de probeersels.

Dim startUur As Long
Dim EindUur As Long
Dim lUren As Double

Result = "07:00-16:30"

Dim Tijd1 As Integer
Dim Tijd2 As Integer
startUur = Left(Result, 5)
EindUur = Right(Result, 5)


Tijd1 = CDate(Datum + startUur)
Tijd2 = CDate(Datum + EindUur)

lUren = DateDiff("h", Tijd1, Tijd2)

 

[LucHeyndrickx]

Ik veronderstel dat de tijden ergens in je tabel terug te vinden zijn.
Probeer ze dan 's anders te declareren.

Dim startUur as Date
Dim EindUur as Date
Dim Tijd1 as date
Dim Tijd2 as date

' code voor result
startUur = cDate(Left(Result, 5))
EindUur = cDate(Right(Result,5))
Tijd 1 = Datum + startUur
Tijd2 = Datum + EindUur

 

[snb]

Sub M_snb()
   c00 = "07:00-16:30"
   sn = Split(c00, "-")
   MsgBox 24 * (TimeValue(sn(1)) - TimeValue(sn(0)))
End Sub

 

[OctaFish]

Dim arr as Variant
Dim lUren As Double
Dim Tijd1 As Date, Tijd2 As Date

Result = "07:00-16:30"
Tijd1 = Cdate(Datum + Split(Result, "-") (LBound(Split(Result, "-"))))
Tijd2 = Cdate(Datum + Split(Result, "-") (UBound(Split(Result, "-"))))

lUren = DateDiff("h", Tijd1, Tijd2)

 

[weswillem]

@LucHeyndrickx
Wil zo weinig mogelijk communiceren met de sheet.
Als alle 7 dagen zijn gevuld, dan pas opslaan.

@snb
Deze gebruik ik nu, weet gelijk wat er gebeurt.
Dank daarvoor. Voeg m gelijk toe aan mijn geheugensteuntje.

@Octafish
Bedankt voor het meedenken.

 

[snb]

Je had deze natuurlijk ook al zelf gevonden:

Sub M_snb()
   c00 = "07:00-16:30"
   MsgBox 24 * (TimeValue(right(c00,5)) - TimeValue(left(c00,5)))
End Sub

 

[weswillem]

Timevalue was mij ff onbekend, nu niet meer.
Had in 1e instantie ook met right en left gestoeid.
Thanx