01. september 2014 - 20:53Der 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?
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!');
Ja det er rigtig, hvis du mener: FormatSettings.DateSeparator:='/';
Synes godt om
Ny brugerNybegynder
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.