StringToDate konvertering

Du sætter ShortDate variablen til det format du gerne vil køre med når du starter dit program

Hvad så med alle andre programmer, vil de ikke blive påvirket af dette ?

Eks.:

var
  Format: String;
begin
  Format := ShortDateFormat; //Hent format fra lokal PC
  if Format <> 'dd-MM-yyyy' then //Lav det om hvis det er anderledes end det vi ønsker
    ShortDateFormat := 'dd-MM-yyyy';

  //Din kode !

  if Format <> ShortDateFormat then //Tilbage til org. hvis vi har ændret det
    ShortDateFormat := Format;
end;

Snowball

Morten_s: Jo, det er derfor klogt kun at ændre det mens du har brug for det. Li'som jeg lige har vist :)

Snowball

Du kan bruge StrToDateTime
Den bruger såvidt jeg ved altid formatet mm/dd/yy hh:mm:ss
og du kan så bruge DecodeDate på resultatet.
Det kræver naturligvis at du bytter om på mm og dd og tilføjer et tilfældigt tidspunkt.
Ombytning:
NyFormat=copy(GlString,4,2)+'/'+copy(GlString,1,2)+'/'+copy(GlString,7,2);
Husk at yy med to tal giver et årstal mellem 1900 og 1999

Ellers må du ind og læse variablen 'ShortDateFormat'


Det nemmeste er nok:

GlDateFormat := ShortDateFormat;
NewDate := insert('20',DatoStr,7); (*ændrer format til 06-02-2002*)
ShortDateFormat := 'dd-mm-yyyy';  (*Så er man sikker på året*)
DatoTDate := StrToDate(NewDate);
ShortDateFormat := GlDateFormat;  (*Ændrer tilbage til det oprind.*)

DecodeDate(Present, Year, Month, Day);så virker det

Så er alle problemer løst

Dennis

Det er kun for din aktuelle app., du kan læse mere i hjælpen

dp142> DecodeDate vender den forkerte vej, jeg har Year, Month, Day i 3 strenge og skal have en sikker konvertering til en TDate

Sådan her skal det gøres EncodeDate er den rigtige

TimeStr := Copy(TmpStr, 21, 2)+':'+Copy(TmpStr, 24, 2)+':'+Copy(TmpStr, 27, 2);
        DateStr := Copy(TmpStr, 12, 2)+'-'+Copy(TmpStr, 15, 2)+'-'+Copy(TmpStr, 18, 2);
        dd := StrToInt(Copy(TmpStr, 12, 2));
        MM := StrToInt(Copy(TmpStr, 15, 2));
        yyyy := StrToInt('20'+Copy(TmpStr, 18, 2));
        DatoDate := EncodeDate(yyyy, MM, dd);
        Insert;
        FieldByName('IntId').AsInteger := IdSelectedInt;
        FieldByName('AlDate').AsDateTime :=  DatoDate;

Tak til dp142 som burde have haft pointene