Waar gaat hier fout

[NajKwin]

Hallo,

In bijgaand bestand een aftelkalender. Echter er gaat hier iets niet goed

bij de eerste zou 5 weken, 6 dagen, x uur, minuten, en seconden moeten staan
en bij de tweede zou het 6 weken, 0 dagen en x uur, minuten, en seconden moeten duren

Bij beide staat nu 5 weken -1 dag

Wie weet wat hier fout gaat en wat hier aan te doen.

M.v.g.
Naj

 

[AHulpje]

Tel einddatum en eindtijd bij elkaar op: G13=G10+G11
Trek daar de huidige datum/tijd van af in de Sub Tijd: Range("G14") = DateDiff("s", Range("G12"), Range("G13"))
In G14 staat nu het aantal seconden tot de eindtijd, met wat stoeien met 60, 3600 en 24 kun je daar eenvoudig het aantal weken, dagen, uren, minuten en seconden mee berekenen.

 

[HSV]

Is dit een oplossing.

In F4.

=ALS(F3>0;REST(G10-F3*7;7);DATUMVERSCHIL(I4;G10;"md")-1)

 

[NajKwin]

Dank voor het mee denken
Ga hier verder mee aan het stoeien

 

[AHulpje]

Of zo, jaar heb ik niet meegenomen, dat kun je eenvoudig zelf toevoegen.

 

[NajKwin]

Hallo Ahulpje,

mijn kennis van VBa is niet helemaal top