Format date in function as value

[Unregistered]

Hi all!

I'm new to this forum and I'm not quite an expert in VBA, but I'm trying.

I use this function to get the filedate time from a file:

Function GetFileDateTime(R As Range)
Set R = R.Cells(1, 1)
GetFileDateTime = format(filedatetime(R.Value), "dd-mm-yyyy hh:nn")
End Function

This works pretty well, but the problem is as followings: the output is not a value. The above function overrrules the celltype; meaning changing the cell type to date won't work.

I would like to use the conditonal formatting to color the cells where =TODAY()-90. Due to the fact the output from the GetFileDate function isn't a date, it will not be affected.
What can I do to format the date as a value?

Thanks in advance!!

 

[Yongle]

welcome to the forum

Function GetFileDateTime(R As Range) As Date
    Set R = R.Cells(1, 1)
    GetFileDateTime = Format(FileDateTime(R.Value), "dd-mm-yyyy hh:nn")
End Function

 

[Unregistered]

welcome to the forum

Function GetFileDateTime(R As Range) As Date
    Set R = R.Cells(1, 1)
    GetFileDateTime = Format(FileDateTime(R.Value), "dd-mm-yyyy hh:nn")
End Function

Wow..that easy.....? Thanks a lot!