Automatically calculate age from birthdate

Status
Not open for further replies.
F

Fred Boer

Hi:

I have a textbox which I want to have filled with the contact person's age,

derived from birthdate using a formula. I have a formula, and have created a

working textbox. If I change the birthdate it fills in the textbox.

But...

I have existing birthdate data for contacts. The textbox does not appear to

respond to existing data. Is there a way to force the calculation when I

move from one contact to another (on menu using up/down arrows), or when I

open the form for a contact who has an existing birthdate?

Thanks!

Fred
 
I am making some progress. This works:

Item.UserProperties.Find("Age").Value = "Hello"

But this generates a "Type Mismatch" error message:

Item.UserProperties.Find("Age").Value =

IIf([Birthday]<>"None",DateDiff("yyyy",[Birthday],Date())-IIf(DateDiff("d",CDate(Month([Birthday])

& "/" & Day([Birthday]) & "/" & Year(Date())),Date())<0,1,0),"")

Still plugging away...

Thanks!

Fred

Fred Boer" <fredboer@NOyahooSPAM.com> wrote in message

news:OB$sQfR%23JHA.4560@TK2MSFTNGP05.phx.gbl...


> Hi:

> I have a textbox which I want to have filled with the contact person's
> age, derived from birthdate using a formula. I have a formula, and have
> created a working textbox. If I change the birthdate it fills in the
> textbox.

> But...

> I have existing birthdate data for contacts. The textbox does not appear
> to respond to existing data. Is there a way to force the calculation when
> I move from one contact to another (on menu using up/down arrows), or when
> I open the form for a contact who has an existing birthdate?

> Thanks!
> Fred

>
 
Hello:

I've learned that the problem is with IIF in VBScript (I thnink!).

Found this code (thanks Sue Mosher):

Public Function IIf(blnExpression, vTrueResult, vFalseResult)

If blnExpression Then

IIf = vTrueResult

Else

IIf = vFalseResult

End If

End Function

and now this expression appears to work:

Item.UserProperties.Find("Age").Value =

IIf([Birthday]<>"None",DateDiff("yyyy",[Birthday],Date())-IIf(DateDiff("d",CDate(Month([Birthday])

& "/" & Day([Birthday]) & "/" & Year(Date())),Date())<0,1,0),"")

Thanks,

Fred

"Fred Boer" <fredboer@NOyahooSPAM.com> wrote in message

news:uYSaa6R%23JHA.4692@TK2MSFTNGP02.phx.gbl...
> I am making some progress. This works:
> Item.UserProperties.Find("Age").Value = "Hello"

> But this generates a "Type Mismatch" error message:

> Item.UserProperties.Find("Age").Value =
> IIf([Birthday]<>"None",DateDiff("yyyy",[Birthday],Date())-IIf(DateDiff("d",CDate(Month([Birthday])
> & "/" & Day([Birthday]) & "/" & Year(Date())),Date())<0,1,0),"")

> Still plugging away...

> Thanks!

> Fred

> Fred Boer" <fredboer@NOyahooSPAM.com> wrote in message
> news:OB$sQfR%23JHA.4560@TK2MSFTNGP05.phx.gbl...
>
> > Hi:
>

>> I have a textbox which I want to have filled with the contact person's
> > age, derived from birthdate using a formula. I have a formula, and have
> > created a working textbox. If I change the birthdate it fills in the
> > textbox.
>

>> But...
>

>> I have existing birthdate data for contacts. The textbox does not appear
> > to respond to existing data. Is there a way to force the calculation when
> > I move from one contact to another (on menu using up/down arrows), or
> > when I open the form for a contact who has an existing birthdate?
>

>> Thanks!
> > Fred
>

>
>>

>
 
Status
Not open for further replies.
< Re: how to access current text selection | Macro to Run Rules >
Similar threads
Thread starter Title Forum Replies Date
X Run macro automatically when a mail appears in the sent folder Using Outlook 5
J Calendar events created on iPhone automatically changing default alert from 'None' to 'Time of Event' Using Outlook.com accounts in Outlook 0
Z Automatically adjust Outlook Reading Pane from bottom to right depending on portrait or landscape window Using Outlook 1
G Automatically delete email when a condition is met Outlook VBA and Custom Forms 1
Hornblower409 Automatically or Manually Backup Multiple Versions of VbaProject.OTM Outlook VBA and Custom Forms 1
B Outlook 2019 Automatically move email after assigning category Using Outlook 4
G automatically choosing "add to autocorrect" option Using Outlook 0
L Why are some email automatically going to "archive" Using Outlook 2
Z Outlook 365 Automatically assign categories to incoming mail in a shared folder Round Robin Outlook VBA and Custom Forms 1
G Automatically delete messages in the synchronization folder Outlook VBA and Custom Forms 3
C Automatically Insert Recipient Name from To Field Outlook VBA and Custom Forms 4
E Remove flag automatically Using Outlook 4
T Outlook 365 Move newly created tasks automatically on save. Outlook VBA and Custom Forms 1
M Outlook 365 Switching from AOL to Yahoo automatically Using Outlook 5
P Print attachments automatically and move the mail to an existing folder called "Ted" Outlook VBA and Custom Forms 4
B Zoom automatically next email item (VBA) Outlook VBA and Custom Forms 2
Paul Hobbs Automatically accept "Empty Folders" prompt Outlook VBA and Custom Forms 6
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
D Custom Search Folders not refreshing/updating automatically Using Outlook 0
M Automatically add senders first name to a greeting Outlook VBA and Custom Forms 1
C Add Form to Appointments Received, Automatically Outlook VBA and Custom Forms 6
J Automatically forward email and apply template Outlook VBA and Custom Forms 0
Y Outlook 2013 Stop Outlook from automatically assigning categories to Tasks Using Outlook 0
O Forward a email with modified body Automatically. Outlook VBA and Custom Forms 0
A How to open a specific link automatically with outlook 2016 Outlook VBA and Custom Forms 6
P Automatically Categorize Meetings once they are accepted Outlook VBA and Custom Forms 5
W Automatically open attachments without automatically printing them Using Outlook 0
N How to set automatically the default or user defined Quickstyle Templates by Answer in Outlook Using Outlook 1
O Run macro automatically at sending an email Using Outlook 11
D Outlook 2016 automatically increment anniversaries Using Outlook 1
T Office 2013 no longer updating automatically Using Outlook 2
B Automatically Forward Emails and Remove/Replace All or Part of Body Outlook VBA and Custom Forms 8
D Print attachments automatically and moves the mail to a new folder Outlook VBA and Custom Forms 9
A How to open a specific link automatically with outlook Outlook VBA and Custom Forms 13
L Automatically Insert Recipient Name from To Field Outlook VBA and Custom Forms 33
N how to sync automatically when outlook opens Using Outlook 10
A Sort emails into subfolders based on sender and deleting emails automatically Outlook VBA and Custom Forms 3
undercover_smother Automatically Forward All Sent Mail and Delete After Send Outlook VBA and Custom Forms 10
C Need VBA code to automatically save message outside outlook and add date Outlook VBA and Custom Forms 1
stephen li VBA Outlook send mail automatically by specified outlook mail box Outlook VBA and Custom Forms 1
R Make Enter Network Password Prompt Go Away Automatically Using Outlook 0
I Print Automatically Attachments Outlook VBA and Custom Forms 3
S Automatically selecting folders and deleting messages in Outlook VBA Outlook VBA and Custom Forms 7
M Outlook 2016 Rules Not Working Automatically Using Outlook 5
Diane Poremsky Automatically create a task when sending a message Using Outlook 0
D Is it possible to automatically send an email when it is moved to a folder? Exchange Server Administration 1
A Automatically send email based on drop-down field? Outlook VBA and Custom Forms 2
M Automatically create event in calendar when task is created Outlook VBA and Custom Forms 1
Diane Poremsky Create Appointment From Email Automatically Using Outlook 0
Cameron Piper Automatically update custom forms across multiple computers Outlook VBA and Custom Forms 1

Similar threads

Back
Top