' Playing with date and time
' String date format here are DD/MM/YY
' Depending on your Windows setting, you may have to edit this script.

app.ClearTrace

MyDate = "19/10/1999"
app.trace "This date is a string = " & MyDate
MyShortDate = CDate(MyDate)
app.trace "Converted to a real date object = " & MyShortDate
k = app.DateToTimeValue(MyShortDate)
app.trace "MyAlbum date/time value = " & k
newDate = app.TimeValueToDate(k)
app.trace "Back to a date = " & newDate

MyTime = "16:35:47"
app.trace "Now, with time (string) = " & MyTime
MyShortTime = CDate(MyTime)
app.trace "Converted to a real time object = " & MyShortTime
k = app.DateToTimeValue(MyShortTime)
app.trace "MyAlbum date/time value = " & k
newDate = app.TimeValueToDate(k)
app.trace "and back to a date = " & newDate


MyDateTime = "19/10/1999 16:35:47"
app.trace "A full date and time = " & MyDateTime
MyShortDate = CDate(MyDateTime)
app.trace "Converted to a real date object =" & MyShortDate
k = app.DateToTimeValue(MyShortDate)
app.trace "MyAlbum date/time value = " & k
newDate = app.TimeValueToDate(k)
app.trace "and back to a date = " & newDate