ISDBSongData::OriginalYear

CoClass SDBSongData, Interface ISDBSongData

Property Get/Let OriginalYear As Long

Property description

Year part of the full original date. Note that if you set this value, you automatically erase OriginalMonth and OriginalDay to 0. So, if you want to set the full date this way, you have to set Year first and only then Month and Day. Also, do not set OriginalMonth and OriginalDay if OriginalYear is not set since it yields strange result.

OriginalYear

Scripting Object	SDBSongData
Value Name	OriginalYear
Value Type	Value
Database Table	Songs
Field Name	OrigYear
Field Type	Integer
Tracklist Column	Original Date
Example Data	19740000

Example Code

Complete script

Sub

  For iCounter = 0 to objSongList.count - 1                                    'SongLists
      Set objSongData = objSongList.Item(iCounter)
      ValueOriginalYear = objSongData.OriginalYear
      SDB.MessageBox "Value = '" &  ValueOriginalYear & "'", mtError, Array(mbOK)    'SDB.MessageBox
  Next
' objSongData.OriginalYear = ValueNewOriginalYear 'Commented Out For Safety
' objSonglist.UpdateAll              'Commented Out For Safety                 'UpdateAll
                         Updates db and writes tags (if checked in options)
End Sub