R help - Nov 2012 - problem with Erlang function

I'm beginner with R language

My goal is to write a function that takes an input Erlang entering your

? Name

? Name

? Date of birth.

The program will calculate age and display output

first
I do know the system date (month, day, year)

I find with Sys.Date ()


I found a function. net to calculate the age



Protected Sub calcul_age()
    Dim datetimenow = DateTime.Now
    Dim datedenaissance = CDate(TbDn.Text)
    Dim age As Integer
    age = CInt(Now.Year - datedenaissance.Year)
    If (datedenaissance.Month > Now.Month) Then
    age = age - 1
    End If
    If ((datedenaissance.Month = Now.Month) And (datedenaissance.Day >
Now.Day)) Then
    age = age - 1
    End If
    Me.Label3.Text = " Age : " & age & " ans"
    End Sub




So I need to find the equivalent of this function with R language


so I think that I will start by :

affichage<-function()
{

print( "enter the first name" )
firstname <-  scan(nmax=1)
print( "enter the last name" )
 lastname <-  scan(nmax=1)
print( "enter the date of birth" )
dateofbirth <-  ........  here start the problem

........
............


}



--
View this message in context:
http://r.789695.n4.nabble.com/problem-with-Erlang-function-tp4649303.html
Sent from the R help mailing list archive at Nabble.com.

On Mon, Nov 12, 2012 at 1:49 PM, alen <tarhouni_wael at hotmail.fr>
wrote:
> I'm beginner with R language
>
> My goal is to write a function that takes an input Erlang entering your
>
> ? Name
>
> ? Name
>
> ? Date of birth.
>
> The program will calculate age and display output
>
> first
> I do know the system date (month, day, year)
>
> I find with Sys.Date ()
>
>
> I found a function. net to calculate the age
>
>
>
> Protected Sub calcul_age()
>     Dim datetimenow = DateTime.Now
>     Dim datedenaissance = CDate(TbDn.Text)
>     Dim age As Integer
>     age = CInt(Now.Year - datedenaissance.Year)
>     If (datedenaissance.Month > Now.Month) Then
>     age = age - 1
>     End If
>     If ((datedenaissance.Month = Now.Month) And (datedenaissance.Day >
> Now.Day)) Then
>     age = age - 1
>     End If
>     Me.Label3.Text = " Age : " & age & " ans"
>     End Sub
>
>
>
>
> So I need to find the equivalent of this function with R language
>
>
> so I think that I will start by :
>
> affichage<-function()
> {
>
> print( "enter the first name" )
> firstname <-  scan(nmax=1)
> print( "enter the last name" )
>  lastname <-  scan(nmax=1)
> print( "enter the date of birth" )
> dateofbirth <-  ........  here start the problem
>
> ........
> ............
>
>
> }
Hi Alen,

I'm afraid I'm confused: how does this tie into Erlang? Do you mean
the distribution or the programming language?

As to the question you've posed, try taking a look at

? readline

? as.Date (because readline gives you a character string)

Then take the difference between Sys.Date() and their DOB -- truncate
to a year and that's your answer.

Cheers,
Michael