seconden, minuten, uren, ...

[bn2vs]

heeft er iemand ergens een werkend programma liggen waarmee je een aantal tijdseenheden kan omzetten in andere tijdseenheden?

 

[namliam]

Een werkend progromma??

Seconden * 60 = Minuten
Minuten * 60 = uren
etc??

Wat wil je precies doen?

 

[bn2vs]

Ik weet wel hoe ik seconden in minuten kan omzetten en omgekeerd, maar ik wil een prgramma waar je gelijk wat kund invullen (of het nu seconden, uren of weken zijn) en het dan word omgezet naa alle andere digen...

 

[That Guy]

Gebruik de Format() functie, zoek m op google maar op:thumb:

 

[CoD_NL]

Gebruik de Format() functie, zoek m op google maar op:thumb:

't Is maar de vraag of ie daarnaar zoekt. Ik vind de TS een beetje onduidelijk over zijn probleem.

Ik weet wel hoe ik seconden in minuten kan omzetten en omgekeerd, maar ik wil een prgramma waar je gelijk wat kund invullen (of het nu seconden, uren of weken zijn) en het dan word omgezet naa alle andere digen...

Uit bovenstaande kan ik niet halen wat jouw bedoeling is. Kun je geen voorbeeld geven ?

 

[bn2vs]

voorbeeld:

je hebt een form met de velden txtSeconden, txtMinuten en txtUren.
als je in txtSeconden een aantal seconden invult komt er in txtMinuten en txtUren de verekende waarde
als je in txtMinuten iets invult, word het ook aangepast in de 2 andere velden, idem voor txtUren

 

[CoD_NL]

voorbeeld:

je hebt een form met de velden txtSeconden, txtMinuten en txtUren.
als je in txtSeconden een aantal seconden invult komt er in txtMinuten en txtUren de verekende waarde
als je in txtMinuten iets invult, word het ook aangepast in de 2 andere velden, idem voor txtUren

Het _change event van een textbox kun je hiervoor gebruiken.
Iets in de vorm van:

'_change event van één van de velden
if strlen(txtSeconden) > 0 then
  txtMinuten = int(txtSeconden / 60)
  txtUren = int(txtSeconden / 3600)
end if

edit: wel even controleren of er uberhaubt geldige invoer is opgegeven

 

[bn2vs]

probleem is dat als ik het zo doe ik het voor elk evld opnieuw moet doen, en ik wil met meer dan 3 velden werken, dus dan word het een beetje nutteloos liggen herhalen lijkt me... vooral als je het dan volledig foolproof wil maken word het heel lang...

 

[That Guy]

use functies
*een simpel voorbeeld, werkt slecht, moet heel erg veel verbeterd worden enzovoorts*

Private/Public sub ConverTeeeeer(w2w as string, sInvoer as integer) as integer
[COLOR="seagreen"]'(...)[/COLOR]
Select case w2w
   case "sec->min"
     ConverTeeeeer = sInvoer / 60
   case "sec->uur"
    ConverTeeeeer = sInvoer / 3600
end select
[COLOR="SeaGreen"]'(...)[/COLOR]
end function

roep aan via:

  msgbox ConverTeeeeer("sec->uur', 7200)  [COLOR="SeaGreen"]  'dit moet "2" geven als t goed is :) [/COLOR]

 

[CoD_NL]

Daarvoor kun je dan toch een control array gebruiken.
Iets in de vorm van:

Private Sub txtVeld_Change(Index As Integer)
'index 0 = seconden; index 1 = minuten; etc;
  If strlen(txtVeld(Index)) > 0 Then 'veld is niet leeg
    If IsNumeric(txtVeld(Index)) Then 'numerieke waarde
      'waardes veranderen aan de hand van de huidige index
    End If
  End If
End Sub