ISDBSongData::OriginalDay
Jump to navigation
Jump to search
Property description
Day part of the full original release date. It can be 1-31 or 0 in case it is unknown.
| Scripting Object | SDBSongData |
| Value Name | OriginalDay |
| Value Type | Value |
| Database Table | Songs |
| Field Name | Year |
| Field Type | Integer |
| Tracklist Column | Date |
| Example Data | 19741023 |
Example Code
Sub For iCounter = 0 to objSongList.count - 1 'SongLists Set objSongData = objSongList.Item(iCounter) ValueOriginalDay = objSongData.OriginalDay SDB.MessageBox "Value = '" & ValueOriginalDay & "'", mtError, Array(mbOK) 'SDB.MessageBox Next ' objSongData.OriginalDay = ValueNewOriginalDay 'Commented Out For Safety ' objSonglist.UpdateAll 'Commented Out For Safety 'UpdateAll Updates db and writes tags (if checked in options) End Sub