Delphi Split Datetime
ShowMessage('Year: ' + IntToStr(AYear));
ShowMessage('Month: ' + IntToStr(AMonth));
ShowMessage('Day: ' + IntToStr(ADay));
ShowMessage('Hour: ' + IntToStr(AHour));
ShowMessage('Minute: ' + IntToStr(AMinute));
ShowMessage('Second: ' + IntToStr(ASecond));
Colorful Copperhead