[VB] Rekenen met tijd

[kaandorp]

Ik heb nu dit:

code:

Private Sub Form_Load()
    Dim TimeStart As Date
    Dim TimeEnd As Date
    Dim TimePassed As Date
    Dim TimeRemain As Date
    Dim TimeTotal As Date
    Dim PercDone
            
    TimeStart = "08:00:00"
    TimeEnd = "16:30:00"
    TimeTotal = TimeEnd - TimeStart
    TimePassed = TimeEnd - TimeStart - Time()
    TimeRemain = TimeEnd - Time()
    PercDone = (Time() / TimeTotal) * 100%
End Sub

En daar moet een percentage uitkomen voor hoeveel de dag al verstreken is. Maar er komt iets heel vaags uit (167,4343)
Iemand een idee?

[whoami]

Wat doet dat %-teken achter .. * 100 ? Ik zou het eens weglaten ...

[kaandorp]

Sorry.. Hoort er ook niet achter.

Zonder dat % is de uitkomst 168,983660130719.

Lijkt me niet oke.

[DigiK-oz]

Hmmmmm, je bent aan het rekenen met strings

Kijk eens naar de functie DATEDIFF in vb ....

[whoami]

Waarom deel je door timetotal ipv te delen door te eindtijd?

[kaandorp]

Het moet een progresbar worden die de tijd van mijn werkdag aangeeft

Dus ik neem total omdat ik anders de hele dag krijg.

En de datediff... Krijg ik dan een tijd terug of niet? Want daar heb ik niks aan.
Ik moet het dus voor elkaar zien te krijgen dat

Begintijd 12:00:00
Eindtijd 13:00:00
Huidige tijd 12:30:00

Eindresultaat 50%!

[jvdmeer]

code:

TimePassed = TimeEnd - TimeStart - Time()
           16:30 -  8:00 - 12:00  = -4:30

Vreemd antwoord


Het moet zijn:

code:

TimePassed = Time() - TimeStart
         12:00 -     8:00 = 4:00[/i]

Klopt beter.

code:

PercDone = (Time() / TimeTotal) * 100%
        12:00  /    8:30  (reken ik niet uit want klopt niets van.

Moet zijn:

code:

PercDone = (TimePassed / TimeTotal) * 100%
             4:00  /    8:30  * 100% =50%

[whoami]

((huidigetijd - eindtijd) / (eindtijd - begintijd)) * 100

[Aetje]

Goed, ik zal 't ff vertalen, hoe de comp het leest..
TimeStart = "08:00:00"
TimeEnd = "16:30:00"
TimeTotal = TimeEnd - TimeStart
TimePassed = TimeEnd - TimeStart - Time()
TimeRemain = TimeEnd - Time()
PercDone = (Time() / TimeTotal) * 100%

TimeStart (Wordt lagere floatwaarde)
TimeEnd (Wordt hogere floatwaarde)
TimeTotal (Wordt verschil floatwaarden)

PercDone (Wordt huidige tijd (float) gedeeld door TimeTotal (float)
Hier gaat het fout. Time() is geen linear verband, op de range die jij selecteerd. Time is een floatwaarde, van 0 tot 1, die loopt van middernacht tot middernacht. Dus ga maar na wat je doet.

[henkleerssen]

Nee je moet converteren naar double.. De doubles worden dan een getal van 0 tot 1 waarbij 1 dus 24 uur is (een dag). Rekent ook wat lekkerderder.. hier is de code die wel werkt...

code:

 Function PercentageDone() As Double
    Dim TimeStart As Date
    Dim TimeEnd As Date
    Dim TimePassed As Double
    Dim TimeTotal As Double
    Dim TimeRemain As Double
    Dim PercDone As Double
            
    TimeStart = "08:00:00"
    TimeEnd = "16:30:00"
    TimeTotal = CDbl(TimeEnd - TimeStart)
    TimeRemain = CDbl(TimeEnd - Time())
    TimePassed = TimeTotal - TimeRemain
    PercentageDone = CDbl((TimePassed / TimeTotal) * 100)
End Function

Voor het gemak kun je de timestart en timeend variabelen ook als parameter gebruiken van de PercentageDone functie.. maar dat moet jij weten...

[henkleerssen]

Op maandag 15 april 2002 14:22 schreef sjis het volgende:
Hmmmmm, je bent aan het rekenen met strings

Kijk eens naar de functie DATEDIFF in vb ....

Datediff werkt niet.. dus...
Strings .. tja.. je kunt het beste een soort van typecast doen (moeilijk woord van C(++))... oftewel gewoon de variable converteren... VB doet dat ook (zie TimeStart = "08:00:00" ) .. en automagisch pakt die het goed op (net zoiets als Perl)... maar niet altijd.. daarbij moet je VB helpen zeg maar..

[Janoz]

Basis wiskunde.. Reken anders gewoon eens op een papiertje uit wat jij wilt, en je ziet gelijk waar het mis gaat.......

Vorige topic was ook al dicht gegaan.. Hierin staat nog simpelere wiskunde.... Je hebt mazzel dat ik net in bespreking was