
Eu queria dar algo útil...ela me pediu algo semiótico... de valor sentimental... Demorei p/ pensar em alguma coisa que ela fasse realmente gostar... resolvi manter o presente útil... e o presente semiótico? bom esse post vai ser o presente... resolvi usar um pouco das minhas habilidades computacionais para declarar o meu amor por ela...
Escolhi a foto de um lugar muito especial... na foto está marcado na parte de baixo o ponto em amarelo o exato lugar do nosso primeiro bjo que localizei usando o
Google Earth
Além disso fiz tb uma coisa que não fazia a muito tempo p/ ela... um programa feito especialmente p/ ela... este em especial é bem útil tb, basta dar um duplo clique na foto que ele diz a quanto tempo estou ao lado da pessoa mais preciosa da minha vida... ela adora os programas q faço p/ ela... poucas pessoas percebem o sentimento q pode ter nisso, mas programação é a minha arte... se eu fosse pintor pintaria um quadro dela... existe muito sentimento em um programa como esse! :)
Segue código fonte em Delphi:
procedure TForm1.Image1DblClick(Sender: TObject);
var
primeiro_bjo: TDatetime;
hoje: TDatetime;
begin
primeiro_bjo := Strtodatetime('11/07/1999');
hoje := now;
memo1.Lines.add('Celebramos o nosso amor por: ');
memo1.lines.Add(inttostr(YearsBetween(primeiro_bjo, hoje)) + ' anos');
memo1.lines.Add(inttostr(MonthsBetween(primeiro_bjo, hoje)) + ' meses');
memo1.lines.Add(inttostr(WeeksBetween(primeiro_bjo, hoje)) + ' semanas');
memo1.lines.Add(inttostr(DaysBetween(primeiro_bjo, hoje)) + ' dias');
memo1.lines.Add(inttostr(HoursBetween(primeiro_bjo, hoje)) + ' horas');
memo1.lines.Add(inttostr(MinutesBetween(primeiro_bjo, hoje)) + ' minutos');
memo1.lines.Add(inttostr(SecondsBetween(primeiro_bjo, hoje)) + ' segundos');
memo1.Lines.add('');
memo1.Lines.add('E celebraremos ainda muito mais por toda a nossa vida!');
memo1.Lines.add('Te amo Carol!');
end;