A
Alia
How could I use the function edate in Access 2003?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
D
Douglas J. Steele
EDate is an Excel function, not an Access one. This doesn't mean that you
can't use it, but you'd have to go through Excel to use it, which can be
inefficient.
See http://support.microsoft.com/kb/198571 for details. (Don't worry that it
only lists Access 2000: it applies to Access 2003 as well)
You might want to see whether you can program the same functionality in
Access, though.
can't use it, but you'd have to go through Excel to use it, which can be
inefficient.
See http://support.microsoft.com/kb/198571 for details. (Don't worry that it
only lists Access 2000: it applies to Access 2003 as well)
You might want to see whether you can program the same functionality in
Access, though.
J
John W. Vinson
How could I use the function edate in Access 2003?
As Douglas says... not very easily.
Could you explain what data you're working with and what you are trying to
accomplish, in real-life terms? There may well be a pure Access/VBA solution
which does not need EDate.
John W. Vinson [MVP]
J
James A. Fortune
Alia said:How could I use the function edate in Access 2003?
Maybe:
'---Begin Module Code---
Public Function EDate(dtStart As Date, lngMonths As Long) As String
Dim dtTemp As Date
Dim lngDays As Long
dtTemp = DateAdd("m", lngMonths, dtStart)
lngDays = DateDiff("d", DateSerial(1899, 12, 30), dtTemp)
EDate = "equals " & CStr(lngDays) & " or " & Format(dtTemp, "mm/dd/yy")
End Function
'---End Module Code---
Examples:
MsgBox(EDate(#01/15/91#, 1) => 'equals 33284 or 02/15/91'
MsgBox(EDate(#03/31/91#, -1) => 'equals 33297 or 02/28/91'
MsgBox (EDate(#3/29/2007#, -1)) => 'equals 39141 or 02/28/07'
Note that this function does not use Int(dtTemp).
James A. Fortune
[email protected]