problem function date add into datepicker on userform

[abdelfattah]

hi
i have problem add years and months days is ok i have textbox1= days textbox2= months textbox3= years when i choose in datepicker1= date then add months an years to datepicker2
this is my simple code

Private Sub CommandButton2_Click()
    datepicker2 = DateAdd("d", textbox1.Text, datepicker1)
     datepicker2 = DateAdd("M", textbox2.Text, datepicker1)
      datepicker2 = DateAdd("YYYY", textbox3.Text, datepicker1)
End Sub

 

[abdelfattah]

about your question yes textbox3= days yes now it works but not completely the years is wrong it supposes 6/01/2022 not 6/01/2026

 

[Rick Rothstein]

Are your years, months and days TextBoxes supposed to represent the same time period? In other words, are you entering 744 into the days TextBox and you have code showing what that number would be in months or (not and) years? If so, then all you have to do is add it to the start date (with days, you do not need to use DateAdd as VBA knows how to add days to dates directly)...

datepicker2 =datepicker1 + TextBox1.Value

where I am guessing TextBox1 is your "days" TextBox (if I guessed wrong, then use the correct TextBox in place of my TextBox1)

 

[abdelfattah]

i can say 744 entering into the days and 24 into months and 2 into years so the days and months and years are separated each them

 

[Rick Rothstein]

I am sorry, but I do not understand what you are trying to say. Let try something different. How did the numbers 744, 24 and 2 get into your TextBoxes? Did you type each one individually? Or do you have code filling them in for you somehow?

 

[abdelfattah]

i have this code fill them

Private Sub CommandButton1_Click()
Dim strD As Date
Dim endD As Date
Dim diff, DIFF2, DIFF3 As Integer
strD = TextBox1.Value
endD = TextBox2.Value
diff = DateDiff("D", strD, endD)
diff1 = DateDiff("M", strD, endD)
DIFF2 = DateDiff("yyyy", strD, endD)
Me.TextBox3.Value = diff
Me.TextBox4.Value = diff1
Me.TextBox5.Value = DIFF2 
end sub

 

[Rick Rothstein]

Okay, that is kind of what I thought. Did you try the single code line I posted in Message #22 yet? It should add the correct amount of time to datepicker1 and give you the date you want in datepicker2.

 

[abdelfattah]

it's unbelievable, rick this simple line code works perfectly , it causes headache for 3 days to do that and it takes many hours on the internet .i don't find anything , thanks rick so much but i have a simple question why my original code doesn't work by use dateadd and dante's code barly works , so it is useless function ,do you have any idea ?

 

[abdelfattah]

hi rick i face another problem about the days in datediff i know no why it supposes = 15 days not 440

 

[abdelfattah]

the days and a new dat are wrong

the right should this

 

[abdelfattah]

if still is not clear this is my file
adddate __.xlsm