Datum en tijdstip waarvan tijdstip afronden op 10 minuten

[Robert Smidt]

Beste Forumleden,

Ik heb een vraag over een VBA-code in Excel. Wanneer ik klik op een selectievak dan verschijnt de datum en tijdstip van dat moment in een bepaalde cel. Nu is het de bedoeling dat het systeem dit afrond naar beneden en wel op: hele uren, of halve uren of op kwartieren. VB 11:22 uur wordt 11:15 uur.

Sub Selectievakje619_Klikken()
ActiveSheet.Unprotect
If [B247] = True Then
    [H247] = [COLOR="#FF0000"]Format(Date, "dd mmmm yyyy")[/COLOR]
Else
    [H247] = ""
    [N247] = ""
End If
ActiveSheet.Protect
End Sub

Alvast heel erg bedankt.

Groeten,
Robert

 

[Enigmasmurf]

Het lijkt mij eerder onwaarschijnlijk dat met "Format(Date..." ook het tijdstip zou getoond worden.
Los daarvan kan je het volgende proberen:

[H247] = WorksheetFunction.Floor(Now(), 1 / 96)

 

[snb]

Kun je svp de titel van deze draad in overeenstemming brengen met de inhoud van #1 ?

 

[Robert Smidt]

Het spijt me, ik zie net dat ik het onjuiste commando heb meegestuurd.

Dit moet zijn:

[H235] = Format(Date, "dd mmmm yyyy") & " rond " & (Format(Round(Time, 2), "hh.nn")) & " uur"

 

[Robert Smidt]

Na wat gepuzzel ben ik op de volgende code uitgekomen:

[H235] = Format(Date, "dd mmmm yyyy") & " rond " & (Format(WorksheetFunction.Floor(Now(), 1 / 96), "hh.nn")) & " uur"

Tot zover werkt het prima en wil je super bedanken voor jouw hulp, hier was ik nooit opgekomen...:thumb:

Ik ga nog even verder testen maar ben afhankelijk van het tijdstip.

 

[Enigmasmurf]

Na je voorgaande post dacht ik al dat je dat zelf op zijn juiste plaats zou krijgen...