huidige datum met een vaste tijd

[willie76]

Hallo fourmleden,

In een spreadsheet heb ik een knop ingebouwd waaraan een macro hangt die in een bepaalde cel de huidge datum neerzet.
Dit heb ik bereikt door de functie TODAY() te gebruiken.
Nu wil ik graag dat er ook een tijd bijkomt, maar wel zo dat het de vaste tijd van 12:00:00 uur wordt.
Dus de functie NOW() is ontoereikend, want die neemt ook de huidige tijd over.

Ik wil dus een soort van NOW-functie maar dan met de vaste tijd van 12:00:00 uur en dat samen in één cel.

Wie weet hoe je dit het makkelijkste, via macro/vba oplost ????

alvast bedankt voor jullie hulp

 

[spaarie]

Willie76,
Is dit wat?

=TEKST.SAMENVOEGEN(TEKST(VANDAAG();"dd-mm-jjjj");" 12:00:00")

Zal de vertaling erbij zoeken

Als het goed is, is dit de vertaling

=CONCATENATE(TEXT(TODAY();"dd-mm-yyyy");" 12:00:00")

 

[willie76]

hallo spaarie,

Ja en Nee,

Hij komt nu wel idd met de tekst, maar rekent er niet mee !!!
Ik wil graag ook kunnen rekenen met de tijd van 12:00:00 uur

 

[Roncancio]

Wil je het via VBA of een formule doen?

Via VBA.

Range("A1").Value = Date & " 12:00:00"

Via een Excelformule.

=TEKST(VANDAAG();"dd-mm-jjjj")&" 12:00:00"

Met vriendelijke groet,


Roncancio

 

[roeljongman]

willie,

net als er een functie is voor de datum is er natuurlijk ook een functie voor de tijd
en omdat het allebei getallen oplevert kun je ze gewoon optellen

=TODAY()+TIME(12;00;00)

let even op de scheidingstekens, time() is een formule dus je moet de puntkomma als scheidingsteken gebruiken.
(ik gebruik 8 van de 10 keer nog steeds de dubbele punt bij tijdformules en dan vraag ik me steeds weer af waarom ik een foutmelding krijg :shocked: > )

edit: goed lezen is ook een vak, ik had niet gezien dat je het via VBA wilde doen, de oplossing van rob, hieronder is wel een mooie..

 

[robdgr]

Voor dubbelklikken in een bepaald gebied:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [A1:A18]) Is Nothing Then Target.Value = Date + TimeValue("12:00pm"): Cancel = True
End Sub

Dit levert een getal op waarmee je verder kunt rekenen.

 

[sylvester-ponte]

=TODAY()+TIME(12;00;00) is natuurlijk prima
=TODAY()+0.5 werkt ook