litestream
Active Member
- Joined
- Jul 24, 2006
- Messages
- 323
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?
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?