filtering data with fuctions

[floydimf]

I dont seem to be explaining this right but i will try again

I have a user enter a date into an imput box
if the date is valid i need to run it throught a function to determine if it is a leap year or not
i have it worked out so if the valid date is divisible by four it is a leap year if it has decimals its not
i dont know where to take it from there
how can i choose that date is a leap year from
my choices being with or with out decimal
if (vbdate is ??????) then
picbox.print vbdate & " is a leap year."
else
not(vbdate)

picbox.print vbdate & " is not a leap year."
end if

[peet]

MSDN

Function LeapYear(ByVal YYYY As Long) As Boolean
  LeapYear = YYYY Mod 4 = 0 And (YYYY Mod 100 <> 0 Or YYYY Mod 400 = 0)
End Function
 
Function LeapYear2(ByVal YYYY As Long) As Boolean
   LeapYear2 = Month(DateSerial(YYYY, 2, 29)) = 2
End Function

[floydimf]

bump
due to the fact that i dont understand the commands
i need easier more basic commands
due to my lack of understanding

[peet]

don't think u will get it any easier or more basic than that

what commands do u not understand ?

[peet]

The rules for determining if a given date falls during a leap year depend on three criteria:

Is the year evenly divisible by 4? If so, it is a leap year,

unless...


Is the year evenly divisible by 100? (for example, 1500?) If so, it is not a leap year,

unless...


Is the year evenly divisible by 400? If so, it is a leap year.

that is what this function do :

Function LeapYear(ByVal YYYY As Long) As Boolean
  LeapYear = YYYY Mod 4 = 0 And (YYYY Mod 100 <> 0 Or YYYY Mod 400 = 0)
End Function

[peet]

and the mod operator is used to divide two numbers and return only the remainder.

hope that explains it all

[floydimf]

i dont understand the mod command
i havent covered that in class yet
could you give me a quick synopsis??

[peet]

Originally posted by peet
and the mod operator is used to divide two numbers and return only the remainder.

hope that explains it all

[John McKernan]

As peet explained above:

3 Mod 2 = 1. - Mod retruns only the remainder
3 / 2 = 1.5

[peet]

Yes, and here is the full story

MSDN
Mod Operator
Description

Used to divide two numbers and return only the remainder.

Syntax

result = number1 Mod number2

The Mod operator syntax has these parts:

Part
Description



result
Required; any numeric variable.

number1
Required; any numeric expression.

number2
Required; any numeric expression.




Remarks

The modulus, or remainder, operator divides number1 by number2 (rounding floating-point numbers to integers) and returns only the remainder as result. For example, in the following expression, A (result) equals 5.

A = 19 Mod 6.7
Usually, the data type of result is a Byte, Byte variant, Integer, Integer variant, Long, or Variant containing a Long, regardless of whether or not result is a whole number. Any fractional portion is truncated. However, if any expression is Null, result is Null. Any expression that is Empty is treated as 0.

See Also

Operator precedence.

Example

This example uses the Mod operator to divide two numbers and return only the remainder. If either number is a floating-point number, it is first rounded to an integer.

Dim MyResult
MyResult = 10 Mod 5                        ' Returns 0.
MyResult = 10 Mod 3                        ' Returns 1.
MyResult = 12 Mod 4.3                        ' Returns 0.
MyResult = 12.6 Mod 5                        ' Returns 3.

Example (Microsoft Excel)

This example sets the column width of every other column on Sheet1 to 4 points.

For Each col In Worksheets("Sheet1").Columns
    If col.Column Mod 2 = 0 Then
        col.ColumnWidth = 4
    End If
Next col

This example sets the row height of every other row on Sheet1 to 4 points.

For Each rw In Worksheets("Sheet1").Rows
    If rw.Row Mod 2 = 0 Then
        rw.RowHeight = 4
    End If
Next rw

This example selects every other item in list box one on Sheet1.

Dim items() As Boolean
Set lbox = Worksheets("Sheet1").ListBoxes(1)
ReDim items(1 To lbox.ListCount)
For i = 1 To lbox.ListCount
    If i Mod 2 = 1 Then
        items(i) = True
    Else
        items(i) = False
    End If
Next
lbox.MultiSelect = xlExtended
lbox.Selected = items

[floydimf]

thank you very much