Date and Time Part 3 - TDateTimePicker component

[@AhmedShoulah]

Thanks for great videos I am watching from Egypt.

[@masterpilotg4]

How would you determine whether a year is a leap year or not and outputting it onto a label

[@MrLongITandCAT]

The video (link below) shows how to determine a leap year. Does that help? kzbin.info/www/bejne/lXXLoXawe793ba8

[@ALG397]

Thank you very much When we click on the Tab button of the TDateTimePicker component the cursor move from the left to the right How we can do the opposite i mean when i click on the cursor it moves from the right to the left

[@MrLongITandCAT]

I'm not sure what you are referring to?

[@ALG397]

@@MrLongITandCAT I mean insert the year first then the month and the day with tab and numbers shift the cursor with the tab button from right to left

[@zahza2707]

How would you convert a birth date in the format of an ID number to a a date that can be used in calculations?

[@MrLongITandCAT]

You would need to extract each element (year,month,day) and use encodedate (See previous video links in description). Example: sId := //id number in string format iYear := 2000 + StrToInt( Copy( sID, 1, 2) ) ; //assuming you dealing people born in 2000 or later iMonth := StrToInt( Copy( sID, 3, 2) ) ; iDay := StrToInt( Copy( sID, 5, 2) ) ; dBirthDate := EncodeDate( iYear, iMonth, iDay ) ; //dBirthDate is variable of type TDate

[@paigeturner3977]

Mr Long, How do I subtract two dates from each other? If I want to get the person's age. How do I code to let it use the current date and subtract the person's date of birth to get their age, by using the year, month and day?

[@MrLongITandCAT]

If you subtract TWO dates, the answer will be the number of days between those two days. So then you can divide that answer by 365 (or 365.25) to get the convert it to years. I would trunc this answer so you remove the decimal part. To get the current date you just have to use the Date function. So for example: var dBirthday : TDate ; iAge : integer ; begin dBirthday := EncodeDate( 2000, 11, 21 ) ; //this gives dBirthday a date. you can use edit controls to get each individual value for year, month and day or you can skip the encodedate option and get it from the DateTimePicker component. iAge := Trunc( (Date - dBirthday) / 365 ) ; //Hope that helps

[@paigeturner3977]

@@MrLongITandCAT Thank you so much sir! It does help.😭😭

[@paigeturner3977]

@@MrLongITandCAT Sir, I wrote a three hour practical today and this came in!!!! Thanks for answering in time even though you made this video almost a year ago🙏🙏

[@MrLongITandCAT]

@@paigeturner3977 Happy to help 😁 and well done to you for wanting to find out. You prepared well 😀

[@Thamri_Saddam_Hussein]

thank u

[@MoonGirl-my4zn]

You should explain the FormatDateTime

[@MrLongITandCAT]

There is an explanation in part 1 of the Date and Time series. This video is Part 3. Part 1 and the exact part of the video can be viewed here: kzbin.info/www/bejne/hKHQmn9tr8aIrLc

[@Thamri_Saddam_Hussein]

how can use TDateTimePicker in Data base (Link TDateTimePicker with column type : Date)