Vereenvoudigen van deze formule

[Fubi]

=ALS(B3="";0;(MAAND(VANDAAG())=1)+DAG(VANDAAG())+(MAAND(VANDAAG())=2)*SOM(30+DAG(VANDAAG()))+(MAAND(VANDAAG())=3)*SOM(59+DAG(VANDAAG()))+(MAAND(VANDAAG())=4)*SOM(90+DAG(VANDAAG()))+(MAAND(VANDAAG())=5)*SOM(120+DAG(VANDAAG()))+(MAAND(VANDAAG())=6)*SOM(151+DAG(VANDAAG()))+(MAAND(VANDAAG())=7)*SOM(181+DAG(VANDAAG()))+(MAAND(VANDAAG())=8)*SOM(212+DAG(VANDAAG()))+(MAAND(VANDAAG())=9)*SOM(243+DAG(VANDAAG()))+(MAAND(VANDAAG())=10)*SOM(273+DAG(VANDAAG()))+(MAAND(VANDAAG())=11)*SOM(304+DAG(VANDAAG()))+(MAAND(VANDAAG())=12)*SOM(334+DAG(VANDAAG())))


Bv B3 = 7/4/04 dan word de uitkomst 97

na controle klopt deze formule helemaal niet :8-0:

Indien het Maand 1 is zou hij enkel de dag moeten tellen.
Is het maand 2 zou hij aantal dagen van vorige maand + de dag van deze maand moeten optellen.
Zodoende word 7 april =
31 Januari
+28 februari (29-2 telt niet, word dag 366)
+31 Maart
+ 7 April
----
97

 

[MayNiak666]

Ik neem aan dat je wilt weten de hoeveelste dag van het jaar het vandaag is. Dat kan redelijk eenvoudig met de volgende formule:
=VANDAAG()-DATUM(JAAR(VANDAAG())-1;12;31)

Succes...

 

[Fubi]

=ALS(MAAND(VANDAAG())=3;SOM(VANDAAG()-DATUM(JAAR(VANDAAG())-1;12;31)-1);VANDAAG()-DATUM(JAAR(VANDAAG())-1;12;31))

Indien het een schrikkeljaar is, werkte de vorige formule niet juist, aangezien 29/2 niet mocht geteld worden.
Nu nog toevoegen dat op 29/2 hij er 366 van maakt.

thx :thumb:

 

[MayNiak666]

Ik begrijp niet zo goed waarom 29/2 in eerste instantie niet meegeteld mag worden, terwijl je uiteindelijk wel wilt weten hoeveel dagen er in het jaar zitten.
Misschien kun je e.e.a. iets toelichten...

 

[Fubi]

Aangezien elke dag een vaste dagcode heeft, en 29/2 slechts 1x in de 4 jaar voorkomt word deze dus aangeduid door dagcode 366.


6 December heeft dus altijd als dagcode 340, zelfs als het een schrikkeljaar is.

 

[Fubi]

Nu zou ik graag een macro maken en deze aan een button linken.

De macro zou nu eerst en vooral in Cel D1 een dagcode moeten zetten, beginnende met L, daarna het jaartal (1 cijfer, nu dus 4), daarna de dagcode (3 cijfers,bv 001 of 109 vandaag) .

Daarna zou hij dit bestand moeten opslaan, in een directory welke genoemd is naar de eerste 3 cijfers uit cel E1, en dit bestand opslaan als bv L109.500 TEST , waarbij 500 de eerste 3 cijfers uit cel E1 zijn.

En alsof dit nog niet genoeg is zou hij indien dit bestand reeds bestaat, er een 2 moeten achter zetten.


/me is totaal verloren

 

[jzeedijk]

Hoi Fubi,

Het jaartal omzetten naar een letter:
=teken(64+jaar(D1)-1992):' (2004=L)

De formule voor de juiste datumwaarde:
=D1-DATUM(JAAR(D1)-1;12;31)-(D1>DATUM(JAAR(D1);2;29))*(DATUM(JAAR(D1);12;31)-DATUM(JAAR(D1)-1;12;31)=366)+(DATUM(JAAR(D1);12;31)-DATUM(JAAR(D1)-1;12;31)=366)*(D1=DATUM(JAAR(D1);2;29))*305

E1 is simpel en de tekst erachter ook.

Het totaal (onooglijke formule):
=teken(64+jaar(D1)-1992)&D1-DATUM(JAAR(D1)-1;12;31)-(D1>DATUM(JAAR(D1);2;29))*(DATUM(JAAR(D1);12;31)-DATUM(JAAR(D1)-1;12;31)=366)+(DATUM(JAAR(D1);12;31)-DATUM(JAAR(D1)-1;12;31)=366)*(D1=DATUM(JAAR(D1);2;29))*305&"."&E"&" TEST"&F1

waarbij F1 staat voor de xe versie van het bestand. Misschien eenvoudiger om er een tijdnotatie van te maken: bijv. F1=Uur() of F1=Uur()&Minuut()

Op die manier kun je ook redelijk unieke bestandsnamen maken.

Jeroen

 

[Fubi]

=TEKST.SAMENVOEGEN("L";ALS(JAAR(NU()) < 2010;RECHTS(JAAR(NU());1);RECHTS(JAAR(NU());2));ALS(C2<10;TEKST.SAMENVOEGEN("00";C2);ALS(EN(C2>9;C2<100);TEKST.SAMENVOEGEN("0";C2);C2)))


Nu zoek ik enkel nog een manier om het bestand op te slaan onder de nr die op cel D2 staat, en dit in de directory bv: I:\files\150\ waarbij de directory 150 afhankelijk is van de eerste 3 cijfers in cel E2

 

[jzeedijk]

Hoi Fubi,

Via Excel kan dat niet, je zult je geluk moeten beproeven in VBA hiervoor.

Naam = Range("D2")&"\"&Range("E2")&"\"&Range("F2")
ActiveWorkbook.SaveAs Filename:=Naam

Waarbij in F2 de naam van de file staat.

De bovenstaande code kun je onderbrengen in een knop, een macro of in de programmacode van een werkblad.

Jeroen

 

[Fubi]

:thumb:

Hartelijk dank, wederom :love: