converting date to nymber

[iamkeen]

hi

how would you format a date in a textbox on a user form so that it displays as a number.

ie today is 16/11/2009 and i want this to display as 40072.

any help much appreciated

thanks

 

[sijpie]

display as the number on the form itself (after the user typed in the date) or in a spreadsheet?

you can use the worksheet formula n(date) to give it the number. Or you can format the cell.

If you want it on the form, then label1.caption = cInt(textbox1.value)

 

[John_w]

Try the CLng function:

Sub xx()
    Dim d As Date
    d = Date
    Debug.Print d, CLng(d)
End Sub

 

[Scott Huish]

How do you get that number?

November 16, 2009 is 40133

Private Sub UserForm_Activate()
Dim d As Long
d = Date
UserForm1.TextBox1 = d
End Sub

 

[iamkeen]

thanks

i just made the number up as i wanted to know how to convert the date to a number