How do you add the values of a date ? dd , mm ,yyyy together

[Panchovia]

Hi

I am trying to get a number from a date with the following code with out any succes
Alias_Date number: Val([Alias_date],"dd")+Val([Alias_date],"MM")+Val(Alias_date],"yyyy")

 

[dhookom]

It would help if you provided some sample values and desired outputs.
Since today is July 14, 2015 it looks like you want 14 + 7 + 2015 which = 2037 which makes no sense. Do you want a number of 14072015? If so, try

Val(Format([Alias_date],"ddmmyyyy"))

Duane
Hook'D on Access
MS Access MVP

 

[SkipVought]

Maybe the OP wants...

Dim DateString As String
DateString = Format([Alias_date],"ddmmyyyy")

...which is all numeric characters, but is NOT a Date NUMBER

 

[dhookom]

Very confusing since the OP stated "trying to get a number".

Duane
Hook'D on Access
MS Access MVP

 

[SkipVought]

Well 14072015 LOOKS like a number. I'm just guessing.

 

[Panchovia]

Hi Dhookom
That is exactly what I want
14+7+2015 =2037
After that I want to add 2+0+3+7

For you it doesn't make any sense for me it does.

So don't bother what is the code to accomplish this

 

[SkipVought]

Well what code have you tried?

Where are you stuck?

BTW, what's the business case for this exersize?

 

[strongm]

>14+7+2015 =2037

Sure?

 

[SkipVought]

This looks like an academic exersize.

 

[dhookom]

My bad on the 2037.

I would create a small user-defined function and save it in a module named "modConversions"

Public Function NumFromDate(datDate As Date) As Long
    Dim intFirst As Integer
    Dim strFirst As String
    Dim intI As Integer
    intFirst = Day(datDate) + Month(datDate) + Year(datDate)
    strFirst = CStr(intFirst)
    For intI = 1 To 4
        NumFromDate = NumFromDate + Val(Mid(strFirst, intI, 1))
    Next
End Function

You can use this function anywhere in Access that you would use any other function.

Duane
Hook'D on Access
MS Access MVP

 

[SkipVought]

Duane: a gift!

 

[dhookom]

Skip, I don't have the patience to teach/coach at the moment.

Duane
Hook'D on Access
MS Access MVP

 

[SkipVought]

@Duane, I think it's a classroom assignment.

 

[dhookom]

My initial thought was this might be a type of weird checksum calculation that validated some data entry. It's difficult to tell

Duane
Hook'D on Access
MS Access MVP

 

[strongm]

> might be a type of weird checksum calculation that validated some data entry. It's difficult to tell
>So don't bother what is the code

Indeed. And apparently we probably shouldn't worry out pretty little heads about this ...

 

[SkipVought]

Got to admit, mine's not so pretty!

 

[dhookom]

Mine either, Skip.

Duane
Hook'D on Access
MS Access MVP