change datestamp from yyyy-mm-dd to yymmdd

[jst_se]

I have an auto inserted datestamp when I open a workbook. The dateformt
is yyyy-mm-dd (example: 2004-07-22), and I wonder if there are any way
to convert it to yymmdd (example: 040722)?
Here's the VBA source I use to get the datestamp:

Private Sub Workbook_Open()
If Sheets("dayreport").Range("T5") = "" Then
Sheets("dayreport").Range("T5") = Date
Else
End If
End Sub

 

[Ron de Bruin]

Hi

You can use the format function
MsgBox Format(Now, "yymmdd")

 

[Frank Kabel]

Hi
try
Private Sub Workbook_Open()
with Sheets("dayreport").Range("T5")
If .value = "" Then
.value = Date
.numberformat="YYMMDD"
End If
end with
End Sub

 

[jst_se]

Thank you, Frank! That works just fine

Hi
try
Private Sub Workbook_Open()
with Sheets("dayreport").Range("T5")
If .value = "" Then
.value = Date
.numberformat="YYMMDD"
End If
end with
End Sub