Ændring af dato i Delphi

Når du i delphi spørger efter datoes kommer den tilbage fx sådan her: 17-10-2001.

Du kan få datoes idag ved at bruge date functionen, fx: Showmessage(datetostr(date));


Jeg forstår desværre ikke helt dit spørgsmål, så jeg kan ikke hjælpe dig mere - men det er vidst også alt hvad man skal vide om det :|

Du kan også bruge functionen DateTimeToString(), den tager en format string med som parameter så du kan bestemme hvordan du vil havde din dato formateret

brug copy() functionen.
Tag fx. datoen 17-10-01:
dette er skabolonen for ALLE dato ellers kan Delphi ikke arbejde med dem.

Først vil vi have 17 til at stå først. Det gør vi med:

S := Copy(DateToStr(DinDato), 1, 2);
hvor S er en string. Her kopiere vi de to første tegn ud af datoen.

herefter:

S := S + \'/\';
så putter vi så / på.

og så:

S := S + Copy(DateToStr(DinDato), 4, 2);

nu kopiere vi så måneden ud, og på samme måde med årstallet.

Det er lidt gætterig for jeg sidder ikke med min Delphi, men giv mig lidt tid til at strikke en fuld kode sammen.

her er et lille svar (glemmer altid at sætte Svar til :>)

Også den lette måde :

VAR
  MyDato : String;
begin
  DateTimeToString(MyDato,\'dd-mm-yyyy\',Date);
  ShowMessage(MyDato);
end;

Der er ingen grund til at opfinde flere dybe talerkener end højst nødvendigt

/Martin

Nu har jeg fundet ud af hvordan man gemmer den aktuelle dato i en variabel, men jeg vil også gerne vide hvordan man ændrer computerens dato, hvilket rent faktisk står nævnt i mit spørgsmål.

api funktionen SetSystemTime(); sætter computer dato og tid