Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
subtracting serial dates
Hi,
I have calendar objects populating two text boxes in my Excel vba form, with a third box to show the difference of the first two (I subtract box 1 from box 2). I am getting a mismatch error, however, and I was wondering if a change in formatting would correct this? Thanks for any help you can provide. Kind Regards, Louis === Here is my code for the form: Private Sub TextBox1_Change() End Sub Private Sub TextBox2_Change() Dim fillamt As Date fillamt = UserForm1.TextBox2 - UserForm1.TextBox1 TextBox3 = fillamt End Sub Private Sub TextBox3_Change() End Sub Private Sub UserForm_Click() End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
subtracting serial dates
I need to add that I get the error when I begin entering a date value
into box 2 (non-date, numerical values work fine). Thanks On Feb 15, 11:05 am, "ll" wrote: Hi, I have calendar objects populating two text boxes in my Excel vba form, with a third box to show the difference of the first two (I subtract box 1 from box 2). I am getting a mismatch error, however, and I was wondering if a change in formatting would correct this? Thanks for any help you can provide. Kind Regards, Louis === Here is my code for the form: Private Sub TextBox1_Change() End Sub Private Sub TextBox2_Change() Dim fillamt As Date fillamt = UserForm1.TextBox2 - UserForm1.TextBox1 TextBox3 = fillamt End Sub Private Sub TextBox3_Change() End Sub Private Sub UserForm_Click() End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
subtracting serial dates
Private Sub TextBox2_Change()
Dim dt1 As Date Dim dt2 As Date dt1 = TextBox1 dt2 = TextBox2 TextBox3 = dt2 - dt1 End Sub Hth, Merjet |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
subtracting serial dates
Private Sub TextBox2_Change()
Dim fillamt As Date fillamt = Cdate(UserForm1.TextBox2) - cdate(UserForm1.TextBox1) TextBox3 = format(fillamt, "mm/dd/yyyy") End Sub ll wrote: Hi, I have calendar objects populating two text boxes in my Excel vba form, with a third box to show the difference of the first two (I subtract box 1 from box 2). I am getting a mismatch error, however, and I was wondering if a change in formatting would correct this? Thanks for any help you can provide. Kind Regards, Louis === Here is my code for the form: Private Sub TextBox1_Change() End Sub Private Sub TextBox2_Change() Dim fillamt As Date fillamt = UserForm1.TextBox2 - UserForm1.TextBox1 TextBox3 = fillamt End Sub Private Sub TextBox3_Change() End Sub Private Sub UserForm_Click() End Sub -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Dates as Serial Values | Excel Discussion (Misc queries) | |||
Serial Dates | Excel Discussion (Misc queries) | |||
Averaging a Value between Two Serial Dates | New Users to Excel | |||
Averaging Value between Two Serial Dates | Links and Linking in Excel | |||
Averaging a Value Between Two Serial Dates | Excel Worksheet Functions |