need to add current time to exported excel file

[tommy_mo]

Hello folks-

I need to know how to add the current time to a .xls file that is exported from access. I already have the date, but can't seem to figure out how to add the current time. I'm not a programmer by any means, so I'm sure the answer is fairly obvious. Thanks for your help.

'light log
    strDirectoryPath = "\\Odo\odo_shared\Zap\ZAP4\Raw\PDA Light Log\" + CStr(Me.Combo78)
    strDTSaved = Format(DATE, "MMdd")
    strQueryName = "LightlogExportToExcel"
    strExcelDetail = strDirectoryPath & "\" & Me.Combo78 & " " & "Light Log" & " " & strDTSaved & ".xls"

Cheers. Tom

 

[boblarson]

strCurrentTime = Format(Date,"hhnnss")
strExcelDetail = strDirectoryPath & "\" & Me.Combo78 & " " & "Light Log" & " " & strDTSaved & strCurrentTime & ".xls"