datum en tijd op een later tijdstip laten verspringen

[pasan]

hallo

ik heb in een cel de huidige datum staan =vandaag()
Wat ik nu graag wil is dat de huidige weergegeven datum 8 uur achter loopt
dus niet om oo.oo uur verspringt maar 08.00 uur smorgens

een andere cel laat van deze datum waarde, dag, maand, jaar de dag zien "dddd"

dit is in excel 2000

 

[popipipo]

=nu()-1/3

Werkt dit?

 

[pasan]

dank je popipipo
heb het net getest op een office 2010 en het werkt, vanacht ook ff testen op office 2000 maar zal wel geen probleem zijn.

 

[pasan]

de uitkomst van jou formule is duidelijk
maar die deling /3 niet helemaal
zou je deze mischien kunnen uitleggen?
3*8=24

 

[popipipo]

3*8=24

Ik denk dus dat je het begrijpt, maar voor de zekerheid:
Voor een datum notatie ziet excel een 1 als 1 dag dus 24 uur
8 uur is 1/3 dag
dus min 8 uur is gelijk aan min 1/3

 

[pasan]

okee dank je voor de uitleg deze vraag opgelost

 

[pasan]

het werkt prima maar waar ik niet aan gedacht heb is het volgende.
omstreeks 8 uur in de ochtend moet het mapje opgeslagen worden met de datum van die zelde cel als naam
maar als ik een paar dagen later het zelfde mapje weer open kijk ik natuurlijk tegen de verkeerde datum aan in het werkblad
zou het opslaan dan via vba code moeten gebeuren en dat alle formules als values gekopieerd worden

 

[Warme bakkertje]

Je slaat de nagel op de kop.

 

[pasan]

hahah ik heb mn huiswerk klaar liggen dank je voor je steun
Deze opmerking is positief bedoeld en ik hoop als ik de eerste opzet gemaakt heb ik deze aan jou mag voorleggen

ik zal er een nieuwe vraag van maken deze vraag blijft opgelost

 

[pasan]

gevonden denk ik

met dit stukje code kopieer ik blad 1 naar de gekozen locatie

Sub macro1()

Application.ScreenUpdating = False
'Deze code is geschreven door Zapatr

Sheets("blad1").copy



With ActiveWorkbook

Application.DisplayAlerts = False
.SaveAs "G:\zelf gemaakte exel bestanden\" & Range("m1").Value & ".xls"
.Close
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True

End Sub

zover zogoed maar toen liep ik tegen het volgende probleem aan met de formule

=nu()-1/3

de uitkomst van deze formule wilde ik gebruiken als naam voor het nieuw op te slaan workbook. cel ("m1")
=nu() geeft de datum en tijd weer en de tijd wordt door ":" gescheiden en dat is nu het probleem bij het kopieeren de dubbele punt veroorzaakt een foutmelding
dit heb ik opgelost denk ik met de volgende code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("k1").FormulaR1C1 = "=now()-1/3"
    Range("k1").NumberFormat = "d/mm/yy;@"
    Range("m1").Value = Range("k1").Text
End Sub

en ................. ut werkt tenminste in excel 2010 ik hoop dat het ook werkt in excel 2000

 

[pasan]

ik wilde er eerst een nieuwe vraag van maken maar omdat de formule =nu()-1/3 het probleem was heb ik mn oplossing toch hier geplaatst

 

[Warme bakkertje]

Als je onderstaande regel gebruikt krijg je dan niet hetzelfde resultaat, maar zonder al die kunstgrepen ?

.SaveAs "G:\zelf gemaakte exel bestanden\" & Format(DateValue(Now - 1 / 3), "dd-mm-yyyy") & ".xls"

 

[pasan]

je hebt gelijk zoals gewoonlijk:d
korter en sneller.:thumb::thumb::thumb:


bedankt Warme bakkertje