Outlook Technologies

Outlook Forms

Looking for help with Outlook programming projects — VSTO, add-ins, VBA, custom Outlook forms, etc.? You′ve come to the right place!

NEW! >> Subscribe to this site via RSS. For more RSS options, see the complete list of feeds on our main news page.

Code level: intermediate Code area: Code Essentials Printer Friendly Version
Title: Get the earliest of a series of dates
Description: Sometimes you may want to track the earliest of a series of due dates, as discussed at in the thread at http://www.outlookcode.com/threads.aspx?forumid=3&messageid=367. You could expand this code to handle more dates as needed.
Date: 26-Feb-2003 12:35
Code level: intermediate
Code area: Code Essentials
Posted by: Sue Mosher
Body: Function EarliestDate(date1, date2, date3, date4) Dim dteDate If date1 <> #1/1/4501# Then dteDate = date1 End If If DateDiff("d", dteDate, date2) < 0 Then dteDate = date2 End If If DateDiff("d", dteDate, date3) < 0 Then dteDate = date3 End If If DateDiff("d", dteDate, date4) < 0 Then dteDate = date4 End If EarliestDate = dteDate End Function
All 0comments

name email