{"id":193,"date":"2007-05-12T16:53:13","date_gmt":"2007-05-12T14:53:13","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/datetime-time-parse\/"},"modified":"2007-05-12T16:53:15","modified_gmt":"2007-05-12T14:53:15","slug":"datetime-time-parse","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/datetime-time-parse\/","title":{"rendered":"DateTime: Time Parse"},"content":{"rendered":"<p>[code lang=&#8221;delphi&#8221;]\/\/ First we need to create a record<br \/>\ntype TimeParse = record<br \/>\n     timeDay  : Integer;<br \/>\n     timeHour : Integer;<br \/>\n     timeMin  : Integer;<br \/>\n     timeSec  : Integer;<br \/>\nend;<\/p>\n<p>\/\/ Now here is the function<br \/>\nfunction TForm1.DoTime(TheSeconds : Integer) : TimeParse;<br \/>\nbegin<br \/>\nResult.timeHour := 0;<br \/>\nResult.timeMin := 0;<br \/>\nResult.timeDay := 0;<br \/>\nResult.timeSec := 0;<br \/>\n\/\/ Get days<br \/>\n  While TickVal > 86399 Do<br \/>\n    Begin<br \/>\n     Result.timeDay := Result.timeDay+ 1;<br \/>\n     TickVal := TickVal &#8211; 86400;<br \/>\n    End;<br \/>\n\/\/ Get hours<br \/>\n  While TickVal > 3599 Do<br \/>\n    Begin<br \/>\n     Result.timeHour := Result.timeHour + 1;<br \/>\n     TickVal := TickVal &#8211; 3600;<br \/>\n    End;<br \/>\n\/\/ Get minutes<br \/>\n  While TickVal > 59 Do<br \/>\n    Begin<br \/>\n     Result.timeMin := Result.timeMin + 1;<br \/>\n     TickVal := TickVal &#8211; 3600;<br \/>\n    End;<br \/>\n\/\/ Whats left over are seconds<br \/>\n   Result.timeSec := TickVal;<br \/>\nend;<\/p>\n<p>\/\/Call it like this<br \/>\nVar<br \/>\n  FTimeParse :  TimeParse;<br \/>\nbegin<br \/>\n FTimeParse := DoTime(tmpTime);<br \/>\nend;<br \/>\n[\/code]<\/p>\n<p>[tags]Delphi, Misc, DateTime[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"<p>[code lang=&#8221;delphi&#8221;]\/\/ First we need to create a record type TimeParse = record timeDay : Integer; timeHour : Integer; timeMin : Integer; timeSec&hellip;<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[114,75,107],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-37","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/193"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=193"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/193\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=193"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=193"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=193"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}