Vergelijken 2 tijden (verschillende opmaak)

[Stone52]

Hallo,

In 2 cellen heb ik apart een datum en een tijd ingevuld.
Nu wil ik met VBA vergelijken of het tijd-gedeelte van
NU() of Vandaag() groter / kleiner is dan de zelf ingevulde tijd.

Kan iemand mij op weg helpen ?

 

[modbeek]

er van uit gaande dat jij de tijd in B2 zet (en datum bijv. in A2) kan je de volgende formule gebruiken:

=ALS(OF(UUR(B2)<UUR(NU());EN(UUR(B2)=UUR(NU());MINUUT(B2)<=MINUUT(NU())));"Vroeger";"Later")

als ik jou goed begrijp speelt datum geen rol toch? als dat wel het geval is kan het namelijk makkelijker.

eventueel kan je het ding uitbreiden met de functie SECONDE maar dat mag je zelf uitpuzzelen dan

oh, zie dat je VBA zei ipv excel, zelfde idee in ieder geval maar dan worden het de engelse functiecalls.

 

[Stone52]

Ondertussen e.e.a. uitgeprobeerd, maar het wil niet vlotten.

Het zelf ingevulde veld heeft (in VBA) bv de waarde 0,5678901234,
terwijl het tijd-gedeelte (NU() ) bv de waarde "20:29" teruggeeft.
De vergelijking is hiermee onzinnig. Hoe stem ik het formaat van
beide op elkaar af zodat ze vergelijkbaar zijn.

Iemand een suggestie ?

 

[bandito bob]

In excel en VBA is tijd altijd een getal. Alleen de opmaak kan verschillend zijn.
Tik in een cel maar eens in cel A1: 12:00 en in cel A2: 0,5. Zet vervolgens in een cel de formule: =A1=A2.
Het resultaat zal WAAR zijn, omdat 0,5 staat voor een halve dag wat 12 uren zijn.

Ik ben geen VBA kenner, maar ik neem aan dat je ook in VBA met deze 2 tijden gewoon kunt rekenen.

 

[trucker10]

Ondertussen e.e.a. uitgeprobeerd, maar het wil niet vlotten.

Het zelf ingevulde veld heeft (in VBA) bv de waarde 0,5678901234,
terwijl het tijd-gedeelte (NU() ) bv de waarde "20:29" teruggeeft.
De vergelijking is hiermee onzinnig. Hoe stem ik het formaat van
beide op elkaar af zodat ze vergelijkbaar zijn.

Iemand een suggestie ?

Waarom post je al niet wat je al hebt ? Nu moeten we gaan simuleren wat waar staat enz.......

 

[Warme bakkertje]

Function Controle(c0) As Variant
    Controle = IIf(Time > c0, "Groter", "Kleiner")
End Function

Mvg

Rudi

 

[Stone52]

Hierbij een voorbeeld van wat ik via de VBA vergelijking probeer te bereiken.

@Warme bakkertje: met je functie kom ik niet verder.
Kan je hem in een bredere context trekken (hoe aan te roepen) ?

 

[Warme bakkertje]

Bij deze

Mvg

Rudi

 

[Stone52]

Rudi,

Dank voor je reactie. Ik ben er uit.

Jan