/
Forside
/
Teknologi
/
Udvikling
/
Delphi/Pascal
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Delphi/Pascal
#
Navn
Point
1
oldwiking
603
2
jrossing
525
3
rpje
520
4
EXTERMINA..
500
5
gandalf
460
6
gubi
270
7
DJ_Puden
250
8
PARKENSS
230
9
technet
210
10
jdjespers..
200
TimeToStr(Time) ??
Fra :
Nils Thøger Møller
Dato :
22-07-02 23:13
Jeg har et program, hvor jeg skal bruge UTC tiden i stedet for Dansk normal
tid.
Hvordan får jeg trukket 2 timer fra tiden i Delphi 5, findes der en smart
måde til dette ?
Jeg bruger følgende stump kode...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text := TimeToStr( Time );
// Edit2.Text := TimeToStr( Time - ??? ); // Skal vise UTC tiden i stedet
for Dansk normal tid
end;
Hilsen
Nils
Harald (
22-07-2002
)
Kommentar
Fra :
Harald
Dato :
22-07-02 23:49
"Nils Thøger Møller" <bentbit@hotmail.com> skrev i en meddelelse
news:ahhvtm$4e3$1@sunsite.dk...
> Jeg har et program, hvor jeg skal bruge UTC tiden i stedet for Dansk
normal
> tid.
> Hvordan får jeg trukket 2 timer fra tiden i Delphi 5, findes der en smart
> måde til dette ?
>
> Jeg bruger følgende stump kode...
>
> procedure TForm1.Timer1Timer(Sender: TObject);
> begin
> Edit1.Text := TimeToStr( Time );
> // Edit2.Text := TimeToStr( Time - ??? ); // Skal vise UTC tiden i stedet
> for Dansk normal tid
> end;
F.eks. sådan, bemærk at jeg bruger Now i stedet for Time da det ellers ikke
vil virke hvis klokken er mellem 00:00 og 02:00:
Edit2.Text:=TimeToStr(Now-2*(1/24));
eller sådan så det også virker mht. sommertid:
var
SystemTime : TSystemTime;
begin
GetSystemTime(SystemTime);
Edit2.Text:=TimeToStr(SystemTimeToDateTime(SystemTime));
end;
I Delphi 6 kan man gøre sådan, ved ikke om det virker i Delphi 5. Uniten
IdGlobal skal tilføjes til uses. Denne virker også mht. sommertid:
Edit2.Text:=TimeToStr(Now-OffsetFromUTC);
Mvh
HK
Søg
Alle emner
Teknologi
Udvikling
Delphi/Pascal
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177496
Tips :
31968
Nyheder :
719565
Indlæg :
6408490
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.