help me

[davyquyo]

how do i say this

i want a script that clavulates if a number can be split by 4 or not if rest =0 then it should be true

si if 2004/4=0 this should be true but how do i say this in the coreect script

it's hard to explain for me

i want to calculate how many days our second month has this year and next year and so on

[MartinLiss]

Public Function LastDayOfMonth(ByVal TheDate As Variant) As Integer
 
    LastDayOfMonth = DatePart("d", DateAdd("d", -1, DateAdd("m", 1, DateAdd("d", -DatePart("d", TheDate) + 1, TheDate))))
 
End Function

Usage:
MsgBox LastDayOfMonth("2/2004")

[kebo]

First, try using a better subject than "help me."

I think what you are looking for is the MOD operator. The MOD operator devides two numbers and returns the remainer.
For example----
4 mod 2 = 0
4 mod 3 = 1

so if your numbers are X & Y then

Dim blnResulstAreZero as Boolean

blnResulstAreZero  = (X MOD Y = 0)

'or you could say
blnResulstAreZero = False
if X MOD Y = 0 then blnResulstAreZero = True

HTH
kevin