Tijd omzetten naar goeden avond, Morgen Middag enz.

[keersmaekers]

Beste,
Kan er iemand mij verder opweg helpen?
Voor een welkomst pagina in een offerte programma tracht ik de vermelding Goedemorgen bij morgen Goedeavond bij avond enz. te laten verschijnen.
Ik ben tewerk gegaan met de functie =NU() en met "ALS" "VERTIKAAL ZOEKEN"
Vert zoeken werkt maar reageert niet op de verandering van de datum.

In bijlage mijn bestandje
Dank bij voorbaat,
Bekijk bijlage .Start.xlsxBekijk bijlage .Start.xlsx

 

[sylvester-ponte]

hallo keersmaekers

de de functie NU() geeft de datum en de tijd.
de datum staat voor de komma ( dat is het gehele getal ).
de tijd staat achter de komma ( dat is het decimale deel ).
om de tijd alleen te krijgen moet je dus het decimale deel hebben.
dat kan bv. door de functie =REST(D4;1) in E4 te zetten.
zie voorbeeld:Bekijk bijlage Start(2.xlsx
groet sylvester

 

[keersmaekers]

Bedankt dit werkt perfect

Beste Sylvester

Uitstekend dit werkt hier kan ik perfect mee verder.
Hartelijk dank hiervoor

Groeten,

 

[robdgr]

Waarom niet gewoon in één keer:

="Goede"&KIES(INTEGER(UUR(NU())/6)+1;"nacht";"morgen";"middag";"navond")

Met de volgende code breng je het blad met die formule kort in beeld:

Private Sub Workbook_open()
    Sheets("Welkom").Visible = True
    Sheets("Welkom").Select
        Application.Wait (Now + TimeValue("0:00:01"))
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("samenvatting per rekening").Select
        Range("B1").Select

        
End Sub

 

[sylvester-ponte]

="Goede"&KIES(INTEGER(UUR(NU())/6)+1;"nacht";"morgen";"middag";"navond")

deze tijds_indeling is niet die van keersmaekers

deze komt er redelijk in de buurt:

=VERT.ZOEKEN(REST(NU();1);{0;"Goedenacht"\0,1881944;"Goedemorgen"\0,479846111;"Goedemiddag"\0,7083333;"Goedeavond"\0,9798611;"Goedenacht"};2;WAAR)

groet sylvester