Vraag : Hulp die notulen toevoegen aan tijdwaarde

Ik probeer om een functie van het treintijdschema in Vooruitzichten te ontwikkelen gebruikend VBA. Ik heb een serie met het folowing waardenaantal einden, „houd 1 tegen“, houden de notulen van vertrek, „2“, notulen van vertrek etc… tegen. Zo zou een voorbeeld…

vTimes code zijn

The = van de Serie (9, de „Station1“, 0, „Station2“, 26, „Station3“, 56, „Station4“, 73, „Station5“, 85) ik met ben dat die dDep neemt (vertrektijd) en dan toevoeg de waarden van de serie voor munites na vertrek 0, 26, 56, 73, 85 en vertoningen het correct als hh worstel: mm.

Thanks voor uw help.
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Sub TestTrains ()

    Schemerige I als Geheel
    Schemerige vTimes als Variant
    Schemerige dDep als Datum
    Schemerige sStr als Koord

    vTimes = Serie (9, „Paddington“, 0, „Lezing“, 26, „Swindon“, 56, „Chippenham“, 73, „Bath Spa“, 85)
    dDep = Formaat (InputBox („hoe laat om te vertrekken“ & vTimes (1), „Vertrek“), „hh: mm“)
    sStr = ""
    Voor I = 1 aan vTimes (0) Stap 2
        sStr = sStr & vTimes (I) & „(“ & TimeValue (dDep + (vTimes (I + 1))) & „)“
    Volgende I
    MsgBox (sStr)
Sub van het eind

Antwoord : Hulp die notulen toevoegen aan tijdwaarde

Hallo, Charltp5.

Dit zou het moeten doen.  Ga de notulen tot ConvertToTime over en het zal de uren en de notulen terugkeren.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Functie ConvertToTime (intMinutes als Geheel) als Koord
    Schemerige intHours als Geheel, intRemainder als Geheel
    intHours = intMinutes/60
    Als intHours > 0 toen
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours & „: “ & StrZero (intRemainder, 2)
    Anders
        ConvertToTime = „: “ & StrZero (intMinutes, 2)
    Eind als
De Functie van het eind

Functie ConvertToTime (intMinutes als Geheel) als Koord
    Schemerige intHours als Geheel, intRemainder als Geheel
    intHours = intMinutes/60
    Als intHours > 0 toen
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours & „: “ & StrZero (intRemainder, 2)
    Anders
        ConvertToTime = „: “ & StrZero (intMinutes, 2)
    Eind als
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us