Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Tijdoptellen met resultaat in userform  (gelezen 8963 keer)

0 leden en 1 gast bekijken dit topic.

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Tijdoptellen met resultaat in userform
« Gepost op: 30 augustus 2019, 11:11:30 »
Goedendag helpers en oplossers,

Ik zit met een uitdaging waar ik zelf niet goed uit kom. Ik voer allerlei gegevens in middels een userform en na invoer krijg ik op mijn userform info terug waar ik wat aan heb. Zo telt hij ook bepaalden tijden bij elkaar op die dan bijvoorbeeld als output heeft
Citaat
1.03125000000001

dit zou ik dan graag in tijdsformaat willen terug zien in het userform als

Citaat
24:45:00

echter slaat hij na 24 uur door naar 00:45:00 met de volgende vba code:

I_91 = Format(I_91, "hh:mm:ss")
iemand enig idee hoe ik kan zorgen dat er gewoon in uren doorgeteld wordt?

Mijn dank is alvast weer onmetelijk :D
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 Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Tijdoptellen met resultaat in userform
« Reactie #1 Gepost op: 30 augustus 2019, 11:31:49 »
De VBA-functie Format herkent geen 24+ formatering.
Probeer het eens op deze manier.
I_91 = Application.Text(I_91, "[h]:mm:ss")
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Tijdoptellen met resultaat in userform
« Reactie #2 Gepost op: 30 augustus 2019, 12:06:04 »
Dank voor je respons,

Dit genereert een foutmelding:
Citaat
Fout -2147352571 (80020005) tijdens uitvoering.

Kan de eigenschap value niet instellen. type komen niet overeen.

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: Tijdoptellen met resultaat in userform
« Reactie #3 Gepost op: 30 augustus 2019, 12:22:48 »
Ik heb als tussenoplossing gekozen om eerst de optelling weg te schrijven naar een verborgen cel en dan in te lezen in mijn userform, dan werkt het in elk geval wel.

Maar mocht er iemand een VBA oplossing weten dan hou ik mij gaarne aanbevolen ;)
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 Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Tijdoptellen met resultaat in userform
« Reactie #4 Gepost op: 30 augustus 2019, 12:25:26 »
Daarvoor heb ik of een voorbeeldbstand nodig of de code die je nu gebruikt om die waarde te genereren.
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Tijdoptellen met resultaat in userform
« Reactie #5 Gepost op: 30 augustus 2019, 12:40:27 »
Dat is geen probleem,

Het gaat om de subs Maand en Kwartaal.

Mocht je vragen hebben dan hoor ik het wel ;)

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 pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Tijdoptellen met resultaat in userform
« Reactie #6 Gepost op: 30 augustus 2019, 13:33:33 »
Hoi Johan,

Die 1.03... is in eerste instantie een tekst. Als je er eerst een getal van maakt vooraleer naar een "tekstdatumformaat" om te zetten moet dat lukken:
I_91 = Application.Text(CDbl(I_91), "[h]:mm:ss")
Groetjes,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Tijdoptellen met resultaat in userform
« Reactie #7 Gepost op: 30 augustus 2019, 14:56:53 »
Pitufo,

HELD :D Deze werkt inderdaad helemaal top

Allebei zeer bedankt voor het meedenken en oplossen.
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