{"id":711,"date":"2024-09-12T02:41:21","date_gmt":"2024-09-12T05:41:21","guid":{"rendered":"https:\/\/code4delphi.com.br\/blog\/?p=711"},"modified":"2024-11-12T02:20:47","modified_gmt":"2024-11-12T05:20:47","slug":"feliz-dia-do-programador-2024","status":"publish","type":"post","link":"https:\/\/code4delphi.com.br\/blog\/feliz-dia-do-programador-2024\/","title":{"rendered":"Feliz dia do programador 2024"},"content":{"rendered":"\n

<\/p>\n\n\n\n

Ol\u00e1, caro leitor! Hoje \u00e9 um dia muito especial.<\/p>\n\n\n\n

O Dia do Programador \u00e9 celebrado no 256\u00ba dia do ano, o que corresponde ao dia 13 de setembro em anos normais e ao dia 12 de setembro nos anos bissextos.<\/p>\n\n\n\n

Essa data teve origem na R\u00fassia, em 2002, e foi escolhida por um motivo especial: o n\u00famero 256. Esse n\u00famero representa a quantidade de valores distintos que podem ser armazenados em um byte de oito bits, sendo bastante familiar aos programadores. Al\u00e9m disso, ‘256’ em hexadecimal \u00e9 ‘100’ (‘0x100’), a maior pot\u00eancia de 2 menor que 365, o n\u00famero de dias em um ano.<\/p>\n\n\n\n

Deixamos aqui nossos parab\u00e9ns a todos os programadores, especialmente aos programadores Delphi. <\/p>\n\n\n\n

E voc\u00ea, programador Delphi, sabia dessa curiosidade? Que tal criar uma fun\u00e7\u00e3o para verificar se estamos em um ano bissexto?<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n
<\/path><\/path><\/svg><\/span>
uses<\/span><\/span>\n  System.DateUtils;<\/span><\/span>\n  <\/span><\/span>\nfunction<\/span> <\/span>TForm1.EhAnoBissexto<\/span>(<\/span>const<\/span> AAno: <\/span>Integer<\/span>): <\/span>Boolean<\/span>;<\/span><\/span>\nbegin<\/span><\/span>\n  <\/span>Result<\/span> := ((AAno <\/span>mod<\/span> <\/span>4<\/span> = <\/span>0<\/span>) <\/span>and<\/span> (AAno <\/span>mod<\/span> <\/span>100<\/span> <> <\/span>0<\/span>)) <\/span>or<\/span> (AAno <\/span>mod<\/span> <\/span>400<\/span> = <\/span>0<\/span>);<\/span><\/span>\nend<\/span>;<\/span><\/span>\n<\/span>\nprocedure<\/span> <\/span>TForm1.Button1Click<\/span>(Sender: TObject);<\/span><\/span>\nvar<\/span><\/span>\n  LDia: <\/span>Integer<\/span>;<\/span><\/span>\n  LMsg: <\/span>string<\/span>;<\/span><\/span>\nbegin<\/span><\/span>\n  LDia := <\/span>13<\/span>;<\/span><\/span>\n  <\/span>if<\/span> EhAnoBissexto(YearOf(Now)) <\/span>then<\/span><\/span>\n    LDia := <\/span>12<\/span>;<\/span><\/span>\n<\/span>\n  LMsg := <\/span>'<\/span>Hoje n\u00e3o \u00e9 o dia do programador<\/span>'<\/span>;<\/span><\/span>\n  <\/span>if<\/span>(MonthOf(Now) = <\/span>9<\/span>)<\/span>and<\/span>(DayOf(Now) = LDia)<\/span>then<\/span><\/span>\n    LMsg := <\/span>'<\/span>Feliz dia do programador!!!<\/span>'<\/span>;<\/span><\/span>\n<\/span>\n  ShowMessage(LMsg);<\/span><\/span>\nend<\/span>;<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n
Neste exemplo, mostramos como criar sua pr\u00f3pria fun\u00e7\u00e3o chamada EhAnoBissexto<\/strong><\/code> para verificar se um ano \u00e9 bissexto. No entanto, o Delphi j\u00e1 oferece uma fun\u00e7\u00e3o nativa para isso, chamada IsLeapYear<\/strong><\/code>. Portanto, n\u00e3o \u00e9 necess\u00e1rio criar a fun\u00e7\u00e3o EhAnoBissexto<\/strong><\/code>, bastando utilizar a fun\u00e7\u00e3o nativa para alcan\u00e7ar o mesmo resultado.<\/p>\n\n\n\n
<\/path><\/path><\/svg><\/span>
procedure<\/span> <\/span>TForm1.Button3Click<\/span>(Sender: TObject);<\/span><\/span>\nbegin<\/span><\/span>\n  <\/span>if<\/span> IsLeapYear(YearOf(Now)) <\/span>then<\/span><\/span>\n    ShowMessage(<\/span>'<\/span>O ano informado \u00e9 bissexto<\/span>'<\/span>)<\/span><\/span>\n  <\/span>else<\/span><\/span>\n    ShowMessage(<\/span>'<\/span>O ano informado N\u00c3O \u00e9 bissexto<\/span>'<\/span>);<\/span><\/span>\nend<\/span>;<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n
Fico por aqui, pessoal. Um abra\u00e7o e at\u00e9 a pr\u00f3xima!<\/p>\n\n\n\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
Ol\u00e1, caro leitor! Hoje \u00e9 um dia muito especial. O Dia do Programador \u00e9 celebrado no...<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_exactmetrics_skip_tracking":false,"_exactmetrics_sitenote_active":false,"_exactmetrics_sitenote_note":"","_exactmetrics_sitenote_category":0,"footnotes":""},"categories":[1],"tags":[],"class_list":["post-711","post","type-post","status-publish","format-standard","hentry","category-geral"],"_links":{"self":[{"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/posts\/711","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/comments?post=711"}],"version-history":[{"count":4,"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/posts\/711\/revisions"}],"predecessor-version":[{"id":792,"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/posts\/711\/revisions\/792"}],"wp:attachment":[{"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/media?parent=711"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/categories?post=711"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/code4delphi.com.br\/blog\/wp-json\/wp\/v2\/tags?post=711"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}