rekenen met een bepaalde waarde.

[jeroenSturm]

hallo mensen,

ik ben al een poosje aan het prutsen en proberen maar ik kom er niet echt uit..

ik wil graag reken met een tijd. de tijd haal ik uit 2 dropdownboxjes genaamd; vertrek en aankomst.
de tijd notatie staat zo ##:## bv. 0:30 of 15:00
nu wil ik die van elkaar aftrekken zodat er een getal overblijft..
maar hoe doe ik dat ik heb nu

intTotaal= aankomst - vertrek

maar dit werkt niet want hij geeft de foutmelding "type mismatch"

hoe kan ik dit oplossen ??


alvast bedankt

 

[spaarie]

Jeroen,
##:## = geen tijdnotatie
"u:mm" = tijdnotatie

En als je aankomst - vertrek wil zien in uren moet je die vermenigvuldigen met 24.
Dus (aankomst-vertrek)*24 = aantal uren

Heb je ook nagedacht dat als je 's avonds vertrekt en 's ochtends aankomt dat aankomst kleiner is dan vertrek?

BTW: Is andwoorden onder in je handtekening serieus geschreven?

 

[jeroenSturm]

hoe kan ik het best mijn tijden in mijn dropdownboxjes zetten ?
nu zet ik alles zelf in mijn dropdownbox d.m.v.

   With cmd_aankomst
   .AddItem "00:00"
   .AddItem "00:30"
   .AddItem "01:00"
   .AddItem "01:30"
   .AddItem "02:00"
   .AddItem "02:30"
   .AddItem "03:00"
   .AddItem "03:30"
   .AddItem "04:00"
   .AddItem "04:30"
   .AddItem "05:00"
   .AddItem "05:30"
   .AddItem "06:00"
   .AddItem "06:30"
   .AddItem "07:00"
   .AddItem "07:30"
   .AddItem "08:00"
   .AddItem "08:30"
   .AddItem "09:00"
   .AddItem "09:30"
   .AddItem "10:00"
   .AddItem "10:30"
   .AddItem "11:00"
   .AddItem "11:30"
   .AddItem "12:00"
   .AddItem "12:30"
   .AddItem "13:00"
   .AddItem "13:30"
   .AddItem "14:00"
   .AddItem "14:30"
   .AddItem "15:00"
   .AddItem "15:30"
   .AddItem "16:00"
   .AddItem "16:30"
   .AddItem "17:00"
   .AddItem "17:30"
   .AddItem "18:00"
   .AddItem "18:30"
   .AddItem "19:00"
   .AddItem "19:30"
   .AddItem "20:00"
   .AddItem "20:30"
   .AddItem "21:00"
   .AddItem "21:30"
   .AddItem "22:00"
   .AddItem "22:30"
   .AddItem "23:00"
   .AddItem "23:30"
End With

ik kon eingelijk niks anders bedenken

 

[snb]

Dat kan handiger:

ComboBox1.List = [index(Text(time(0,30*(row(1:48)-1),0),"hh:mm"),)]

 

[jeroenSturm]

aah dankje maar hoe kan ik het het beste berekenen inc vanaf bv. 23:00 uur tot 3:00 uur ???

alvast bedankt

 

[snb]

Gebruik de redenering als de eindtijd kleiner is dan de begintijd....

 

[jeroenSturm]

oke die redenering gebruik ik maar ik kan nog steeds niet rekenen als ik

totaal = eindtijd - begintijd

doe geeft hij type mismatch foutmelding...

 

[spaarie]

Oplossing?

totaal = IIf(begin <= eind, eind - begin, 24 - begin + eind)

 

[jeroenSturm]

dankje spaarie maar het lukt nog steeds niet doordat hij nog steeds type mismatch foutmelding geeft , ik denk dat er ergenst nog geconverteerd moet worden o.i.d.
maar hoe en naar wat ??

 

[spaarie]

Bij mij werkt dit in ieder geval...

    With Sheets(1)
        begin = .Range("A1")
        eind = .Range("B1")
        totaal = IIf(begin <= eind, eind - begin, 24 - begin + eind)
        .Range("C1") = Format(totaal, "hh:mm")
    End With

 

[jeroenSturm]

en wat vul je dan in A1 en B1 in want hier heb ik natuurlijk nog steeds niks aan......

 

[snb]

Gebruik de redenering: als ik een voorbeeldbestand in het forum plaats maak ik het helpers een stuk makkelijker....

 

[jeroenSturm]

bedankt voor de hint ik heb een voorbeeld bestandje gemaakt.
hopelijk maakt dit het wat duidelijker...

 

[snb]

Private Sub cmd_aankomst_Change()
  begin = CDate(cmd_vertrek.Value)
  eind = CDate(cmd_aankomst.Value)
 
  Label23.Caption = Format(IIf(begin <= eind, eind - begin, 24 - begin + eind), "hh:mm")
End Sub

gebruik voor een combobox de prefix: cmb
voor een commandbutton: cmd

 

[jeroenSturm]

Dankjewel allemaal