Weet iemand hoe ik d.m.v. ofsow de laatste dag van de maand kan bereken?
Zoiets als lastdayofmonth(21-10-00)=31
Heeft iemand een tip?
Zoiets als lastdayofmonth(21-10-00)=31
Heeft iemand een tip?
De eerste van de volgende maand nemen en daar 1 van aftrekken? 
Oracle heeft gewoon een functie LAST_DAY(), wie weet heet ie ook wel zo in Access.
Oracle heeft gewoon een functie LAST_DAY(), wie weet heet ie ook wel zo in Access.
/u/3813/100_8985_ICON2.JPG?f=community)
Option Explicit
Private Enum Months
cJanuari = 1
cFebruari
'...
End Enum
Public Function LastDay(Month As Integer, Year As Integer) As Integer
Select Case Month
Case cJanuari, cMaart, cMei, cJuli, cAugustus, cOktober, cDecember
LastDay = 31
Case cFebruari:
If IsSchrikkel(Year) Then
LastDay = 29
Else
LastDay = 28
End If
Case Else: LastDay = 0
End Select
End Function
Public Sub Main()
Dim nMaxDay As Integer
nMaxDay = LastDay(Month(Now), Year(Now))
End Sub
Effe wachte voor de functie IsSchrikkel(...)
Private Enum Months
cJanuari = 1
cFebruari
'...
End Enum
Public Function LastDay(Month As Integer, Year As Integer) As Integer
Select Case Month
Case cJanuari, cMaart, cMei, cJuli, cAugustus, cOktober, cDecember
LastDay = 31
Case cFebruari:
If IsSchrikkel(Year) Then
LastDay = 29
Else
LastDay = 28
End If
Case Else: LastDay = 0
End Select
End Function
Public Sub Main()
Dim nMaxDay As Integer
nMaxDay = LastDay(Month(Now), Year(Now))
End Sub
Effe wachte voor de functie IsSchrikkel(...)
Somniferous whisperings of scarlet fields. Sleep calling me and in my dreams i wander. My reality is abandoned (I traverse afar). Not a care if I never everwake.
Public Function IsSchrikkel(Year As Integer) As Boolean
If (Year Mod 4) = 0 Then
IsSchrikkel = True
If (Year Mod 100) = 0 Then
IsSchrikkel = False
If (Year Mod 400) = 0 Then
IsSchrikkel = True
End If
End If
Else
IsSchrikkel = False
End If
End Function
Gelieve deze functie aan te vullen/verbeteren o 2k specialisten
[intermezzo]
..Het jaar 2000 is, ondanks tegenstrijdige berichten, een schrikkeljaar. We hebben het schrikkeljaar 2000 te danken aan Paus Gregorius XIII, die in 1582 zijn kalenderbesluit uitvaardigde. Hij stelde dat jaartallen deelbaar door 100 geen schrikkeljaar zijn, tenzij ze ook deelbaar zijn door 400. Dat betekent dus dat 1700, 1800 en 1900 geen schrikkeljaren waren, maar 1600 en 2000 wel! Door dit besluit blijft de lente rond 21 maart beginnen...
[/intermezzo]
If (Year Mod 4) = 0 Then
IsSchrikkel = True
If (Year Mod 100) = 0 Then
IsSchrikkel = False
If (Year Mod 400) = 0 Then
IsSchrikkel = True
End If
End If
Else
IsSchrikkel = False
End If
End Function
Gelieve deze functie aan te vullen/verbeteren o 2k specialisten
[intermezzo]
..Het jaar 2000 is, ondanks tegenstrijdige berichten, een schrikkeljaar. We hebben het schrikkeljaar 2000 te danken aan Paus Gregorius XIII, die in 1582 zijn kalenderbesluit uitvaardigde. Hij stelde dat jaartallen deelbaar door 100 geen schrikkeljaar zijn, tenzij ze ook deelbaar zijn door 400. Dat betekent dus dat 1700, 1800 en 1900 geen schrikkeljaren waren, maar 1600 en 2000 wel! Door dit besluit blijft de lente rond 21 maart beginnen...
[/intermezzo]
Somniferous whisperings of scarlet fields. Sleep calling me and in my dreams i wander. My reality is abandoned (I traverse afar). Not a care if I never everwake.
Wel ff controleren he? Zit gegarandeerd nog een fout in die ik niet heb gevonden
Somniferous whisperings of scarlet fields. Sleep calling me and in my dreams i wander. My reality is abandoned (I traverse afar). Not a care if I never everwake.
En ja hoor...rev 1.01
Public Function LastDay(Month As Integer, Year As Integer) As Integer
Select Case Month
Case cJanuari, cMaart, cMei, cJuli, cAugustus, cOktober, cDecember:
LastDay = 31
Case cFebruari:
If IsSchrikkel(Year) Then
LastDay = 29
Else
LastDay = 28
End If
Case cApril, cJuni, cSeptember, cNovember:
LastDay = 30
Case Else: LastDay = 0
End Select
End Function
Public Function LastDay(Month As Integer, Year As Integer) As Integer
Select Case Month
Case cJanuari, cMaart, cMei, cJuli, cAugustus, cOktober, cDecember:
LastDay = 31
Case cFebruari:
If IsSchrikkel(Year) Then
LastDay = 29
Else
LastDay = 28
End If
Case cApril, cJuni, cSeptember, cNovember:
LastDay = 30
Case Else: LastDay = 0
End Select
End Function
Somniferous whisperings of scarlet fields. Sleep calling me and in my dreams i wander. My reality is abandoned (I traverse afar). Not a care if I never everwake.
Pagina: 1