Avatar billede bolorolo Nybegynder
01. september 2014 - 20:53 Der er 2 kommentarer og
1 løsning

Formatering af dato samt if else?

Hej

Jeg sidder og øver mig med IF og ELSE og laver for sjov (og for at lære et meget simpelt Birthday program).

Det har så vist sig at drille lidt mere end jeg havde regnet med.

Koden er således ud indtil videre:
------------------------------------------------
var
TodaysDate, Birthday : TDate;
begin
Birthday := StrToDate('12-09-2014');
TodaysDate := (Date);
if TodaysDate >= Birthday then
begin
ShowMessage('HAPPY BIRTHDAY TEDDY!');
application.Terminate;
end
else
ShowMessage('NOT YOUR BIRTHDAY TEDDY!');
application.Terminate;
end;
end.
---------------------------------------------

Bruger jeg IF og ELSE rigtigt her?

Jeg har også fundet ud af at alt efter hvilket sprog windows er
på kan datoen åbenbart være forskellig, eksempel sverige bruger de 2014-12-09 istedet for, hvordan kan man sikre sig det så virker der?
Avatar billede kroning Nybegynder
01. september 2014 - 21:11 #1
var
  FormatSettings : TFormatSettings ;
  Birthday : TDate;
begin
  FormatSettings.ShortDateFormat:='dd-mm-yyyy';
  FormatSettings.DateSeparator:='-';

  Birthday := StrToDate('12-09-2014',FormatSettings);
  if Birthday=Date then
    ShowMessage('HAPPY BIRTHDAY TEDDY!')
  else
    ShowMessage('NOT YOUR BIRTHDAY TEDDY!');

  application.Terminate;
end;
Avatar billede bolorolo Nybegynder
02. september 2014 - 22:54 #2
10000 tak for svaret.

Det gav meget mere forståelse.

lige for at være helt sikker, så kan man selv definere dateseperator, hvis man hellere ville have den som /

Så skulle koden være:
FormatSettings.DateSeparator:='-';

Og datoen

Birthday := StrToDate('12/09/2014',FormatSettings);
Avatar billede kroning Nybegynder
06. september 2014 - 14:36 #3
Ja det er rigtig, hvis du mener:
FormatSettings.DateSeparator:='/';
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester