hoeveel dagen heeft een maand

[don42]

Hallo allemaal,

wie kan mij de code geven voor het aantal dagen dat een maand heeft (VBA)
zonder VBa

=DAG(LAATSTE.DAG(B2;0))

verder had ik deze nog gevonden:

Range("g3").Value = Application.WorksheetFunction.EoMonth(Range("b2"), 0)

dit geeft de laatste dag van een maand aan



don

 

[Cobbe]

Kan je hier mee verder?

VBA:
LastDay_Month = DateSerial(Year([A1]), Month([A1]), 0)
Functie:
=DAG(DATUM(JAAR(A1);MAAND(A1)+1;)) 
en
=LAATSTE.DAG(A1;0)

 

[don42]

hoi Cobbe,
als ik jouw code gebruik krijg ik de laatste datum van de maand ervoor
tik ik 1-4-2015 in is het resultaat 31-3-2015
graag zou ik zien dat het resultaat 30 was (omdat april 30 dagen heeft)
functie:

=DAG(LAATSTE.DAG(B2;0))

(excel 2013)
Geeft dit resultaat maar kan dat ook in VBA?

Met google vond ik

 Application.WorksheetFunction.day(EoMonth(Range("b2"), 0)

in b2 staat dan gewoon een datum!
maar ik krijg het niet werkend

Don

 

[Cobbe]

Dan tel je toch 1 bij de gegeven maand.

=DAG(DATUM(JAAR(A1);MAAND(A1)+1;))

en in VBA voor de laatste dag van de maand van de gegeven datum


[C1] = DateSerial(Year([a1]), Month([a1]) + 1, 0)
[D1].FormulaLocal = "=DAG(DATUM(JAAR(A1);MAAND(A1)+1;))"

 

[don42]

Ik wil geen datum maar een getal
Voor 1-2-15 Is dat 28
Voor 1-3-15 is dat 31



Geen datum maar een getal hoeveel dagen een maand heeft
Don

 

[VenA]

Maanden met 32 dagen? verklaar je nader. En waarom maak je gebruik van verschillende tekens om de datums aan te duiden?

 

[don42]

Hi hi ik tik het in vanaf mijn iPhone vandaar de tik fout
Maar de vraag is gewoon het aantal dagen wat een maand lang is

Sorry voor het slordige bericht
Don

 

[Cobbe]

Gebruik dan deze functie:

Public Function aantaldagen(cel As Range)
Dim m As Integer, y As Integer, aantaldagen As Integer
    m = Month(cel)
    y = Year(cel)
    aantaldagen = DateSerial(y, m + 1, 1) - DateSerial(y, m, 1)
End Function

aan te roepen via Aantaldagen(cel met datum)

 

[don42]

Hoi cobbe,
Dit is dus wat ik zocht
Vol in de roos
Dankjewel maar weer:thumb:

 

[HSV]

Iets simpeler.

 Range("A1") = Day(Application.EoMonth(Range("B2"), 0))

 

[Cobbe]

Werkte nog niet in oudere versies.

 

[snb]

dat was toch altijd
voor maart:

sub M_snb()
  msgbox day(dateserial(2015,4,0))
End Sub

 

[jffry101]

Kan dat niet gewoon op deze manier?

=DAG(DATUM(JAAR(VANDAAG());A1+1;0))

Met in A1 het maandnummer.

Edit: Ik las het verkeerd, ik dacht dat TS op zoek was naar een niet-VBA oplossing.