Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

VBA Excel en datumnotatie

henrih
5 antwoorden
  • Wie kan me helpen met het volgende probleem?
    Ik heb een formulier gemaakt, waarin op een label met de naam LbDatum de systeemdatum wordt weergegeven met de instructie:
  • je zou een kunnen proberen na elke wijzging de celeigenschappen opnieuw te zetten

    Activecell.Offset(rijen,0).value=LbDatum.Caption
    activecell.NumberFormat="dd-mm-yyyy"

    hoe staan de region settings van excel en windows zelf, hier heb ik ook al de meest vreemde situaties meegemaakt.

    ik neem aan dat je datum ophoogt met nieuwedatum=DateAdd("d",aantal,datum)


    Peter
  • Hallo Henrih,

    Wat jij nu doet is tekst weer omzetten naar datum formaat. Dat gaat bij mij ook wel eens fout. Ik denk dat je het beste de datum kan opslaan in een variabele en die datum op de worksheet zetten i.p.v. de datum van het label. Zo hoef je niet steeds om te switchen van datumformaat-middel naar tekst naar datumformaat-kort.

    Groeten, Wouter
  • Dank voor het meedenken. Ik ben er nog niet echt mee verder gegaan. Eerste probeersel leveren helaas nog niet het gewenste sesultaat. Ik heb het vermoeden dat de oplossing waarschijnlijk gezocht moet worden in het verschil tussen de Europese datumnotatie (d-m-y) van Windows/Excel en de Amerikaanse van VBA (m-d-y)
  • Probeert eens met de functie [b:ee49282655]DateSerial()[/b:ee49282655].

    Bijvoorbeeld:
    [code:1:ee49282655]
    Dim myDate As Date
    myDate = DateSerial(2003, 10, 25)
    [/code:1:ee49282655]

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.