Removing forward slash from date using vba

[litestream]

When I use:

If TextBox1.Value > 0 Then
TextBox2.Text = (7 * Val(TextBox1.Text)) + DateSerial(Year(Date), 1, 1) - 9
End If
End Sub

It returns a date in the format "16/7/2008" which is fine for the display in text box 2, but how can I convert this to "160708" format so that I can include it in my file name?

 

[DonkeyOte]

in VBA format the date to your wishes

Format(CDate(Textbox2.Text),"DDMMYY")

 

[Andrew Poulsom]

Try:

Private Sub TextBox1_Change()
    If TextBox1.Value > 0 Then
        TextBox2.Text = Format((7 * Val(TextBox1.Text)) + DateSerial(Year(Date), 1, 1) - 9, "ddmmyy")
    End If
End Sub

 

[DonkeyOte]

Andrew, I believe OP wanted to keep slashes for TB presentation but remove for purposes of use within filename.

 

[Andrew Poulsom]

Andrew, I believe OP wanted to keep slashes for TB presentation but remove for purposes of use within filename.

I agree. I read the question too quickly.

 

[MickG]

Hi, litestream

TextBox2.Text = Replace(TextBox2.Text , "/", "")

Mick

 

[litestream]

Thanks for your help