Programmable Column: Handy Formulas

[EMathews3]

Purpose: Identify picture files where the File-Modified-Date needs to be re-set to equal the Picture-Date.
Method: Convert Modified-Date and Picture-Date to strings in format YYYY-MM-DD. Return a string indicating the date-strings are equal or need fixing.

Code: Select all

If (
        Str(DPart(${Modified},Year))
+ "-" + 
If (Len(Str(DPart(${Modified},Month))) = 2,
        Str(DPart(${Modified},Month)),
  "0" + Str(DPart(${Modified},Month))
)
+ "-" + 
If (Len(Str(DPart(${Modified},Day))) = 2,
        Str(DPart(${Modified},Day)),
  "0" + Str(DPart(${Modified},Day))
)
=
        Str(DPart(${Picture Date},Year))
+ "-" + 
If (Len(Str(DPart(${Picture Date},Month))) = 2,
        Str(DPart(${Picture Date},Month)),
  "0" + Str(DPart(${Picture Date},Month))
)
+ "-" + 
If (Len(Str(DPart(${Picture Date},Day))) = 2,
        Str(DPart(${Picture Date},Day)),
  "0" + Str(DPart(${Picture Date},Day))
)
, "(ok)", "Fix-Me")

[nikos]

why don't you just subtract the dates? (returns difference in days)

Code: Select all

if(abs(${Modified} - ${Picture Date}) > 1, changed, same)

[EMathews3]

Yep, that optimization works well. The first formula was also a learning exercise.