Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Dag van het jaar  (gelezen 1853 keer)

0 leden en 1 gast bekijken dit topic.

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Dag van het jaar
« Gepost op: 17 april 2018, 08:19:18 »
Hallo helpers en oplossers,

Voor mijn project wil ik weten hoeveelste dag van het jaar het is, dit lukt ten delen met de volgende code:

nudate = "1-1-2018"
mydate = TxtDatum.Value - nudate
InfdgNmr.Value = mydate

maar de uitkomst is niet een heel getal maar een getal die naar waarschijnlijkheid ook de tijdsaanduiding in zich meedraagt

Citaat
106,340138888889

Hoe kan ik zorgen dat er simpel een heel getal voor de dag van het jaar komt te staan?

Mijn dank is alvast vooruitgesneld :)
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Dag van het jaar
« Reactie #1 Gepost op: 17 april 2018, 08:27:34 »
Sorry, ik kreeg ineens de ingeving om
nudate = "1-1-2018"
mydate = DateValue(TxtDatum.Value) - nudate
InfdgNmr.Value = mydate

te gebruiken en dat werkt zoals ik het wens... deze is dus wederom opgelost...
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline alfa

  • Lid
  • *
  • Berichten: 83
  • Oplossing.be
Re: Dag van het jaar
« Reactie #2 Gepost op: 17 april 2018, 09:43:44 »
Voor mijn project wil ik weten hoeveelste dag van het jaar het is....
Je kunt dat (desgewenst) ook zonder vba berekenen.
Na invoer van onderstaande de celeigenschappen op "standaard" zetten.
=VANDAAG()-"01-01-2018"
of
=VANDAAG()-43101
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Dag van het jaar
« Reactie #3 Gepost op: 17 april 2018, 11:23:51 »
Hoi alfa,

Dank, maar voor mijn project wil ik die uitkomst in een userform zichtbaar hebben, dus vba.

evengoed dank voor je input  :thumbsup:
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

 


www.combell.com