world war 2

[lior03]

helo
i need to create a udf that will calculate how many days passed between
09/01/1939 and a given date
[VBA]
Function ww2(d As Date) As Integer
If d < 1 / 9 / 1939 Or d > 8 / 9 / 1945 Then
d = 0
Else
ww2 = d - DateSerial(1939 / 9 / 1)
End If
End Function
[/VBA]
please help

[stanl]

maybe, use datediff

Function TestDates ( pDate1 as Date) as Long
pDate2 = '09/01/1939'
TestDates = DateDiff("d", pDate1, pDate2)
End Function

Stan

[mdmackillop]

[vba]Function ww2(d As Date) As Integer
If d < 16688 and d > 14489 Then
ww2 = d - 14489
Else
ww2 = 0
End If
End Function
[/vba]

[Bob Phillips]

Why?

a simple subtractiuon will do it

=A1-"1939-09-01"