Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi PC-Datum und Zeit ändern ? (https://www.delphipraxis.net/113820-pc-datum-und-zeit-aendern.html)

Delphiturbo 15. Mai 2008 10:33


PC-Datum und Zeit ändern ?
 
Hallo
mit dem Code kann ich sie anzeigen
wie kann nun das Datum und die Uhr ändern ?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FormatDateTime('dd',now)+ '.' +
                  FormatDateTime('mm',now)+ '.' +
                  FormatDateTime('yy',now)+ ' ' +
                  FormatDateTime('hh',now)+ '.' +
                  FormatDateTime('nn',now)+ '.' +
                  FormatDateTime('ss',now);

SaFu 15. Mai 2008 10:39

Re: PC-Datum und Zeit ändern ?
 
Falls du die systemzeit meinst schaumal unter SetSystemTime

Gruß Sascha

STS301 15. Mai 2008 10:40

Re: PC-Datum und Zeit ändern ?
 
= Keine Beiträge entsprechen Deinen Kriterien.

willst du die Zeit in deinem Programm ändern oder die Systemuhrzeit und das Datum

SirThornberry 15. Mai 2008 10:41

Re: PC-Datum und Zeit ändern ?
 
ist das hier dein ernst?
Delphi-Quellcode:
Edit1.Text:=FormatDateTime('dd',now)+ '.' + 
                  FormatDateTime('mm',now)+ '.' + 
                  FormatDateTime('yy',now)+ ' ' + 
                  FormatDateTime('hh',now)+ '.' + 
                  FormatDateTime('nn',now)+ '.' + 
                  FormatDateTime('ss',now);
warum rufst du die Funktion FormatDateTime mehrfach auf anstelle einmal mit den entsprechenden Parametern?

Luckie 15. Mai 2008 10:41

Re: PC-Datum und Zeit ändern ?
 
Was man so alles mit dem Stichwort Hier im Forum suchenSystemzeit im Forum findet. :?

SaFu 15. Mai 2008 10:42

Re: PC-Datum und Zeit ändern ?
 
Zitat:

PC-Datum und Zeit ändern ?
Die Überschrift sagt es eigentlich

Matze 15. Mai 2008 10:42

Re: PC-Datum und Zeit ändern ?
 
Zitat:

Zitat von STS301
= Keine Entsprechenden Kriterien

Sascha hat einen falschen Suchlink eingefügt, da dieser bereits eine Such-ID enthält, die nicht lange gültig ist. Das Schlagwort ist jedoch korrekt und mit Hier im Forum suchenSetSystemTime findet man einiges. ;)

Edit: Huch sind da viele Beiträge in der Zwischenzeit gekommen. Den roten kasten vermisse ich so langsam.

Daniel 15. Mai 2008 10:42

Re: PC-Datum und Zeit ändern ?
 
@DelphiTurbo:
Du musst Dir angewöhnen, mal einen Blick in die Hilfe-Funktion von Delphi zu werfen. Dann wüsstest Du nämlich, dass man der Funktion "FormatDateTime()" gleich den ganzen Satz an Format-Optionen mitgeben kann - ein einziger Aufruf reicht also völlig.

Dein Copy&Paste-Programmieren wird nicht zum Erfolg führen.

Delphiturbo 15. Mai 2008 10:49

Re: PC-Datum und Zeit ändern ?
 
Zitat:

Zitat von STS301
= Keine Beiträge entsprechen Deinen Kriterien.

willst du die Zeit in deinem Programm ändern oder die Systemuhrzeit und das Datum

ich möchte das Systemdatum und die Uhr über mein Button ändern

Matze 15. Mai 2008 10:50

Re: PC-Datum und Zeit ändern ?
 
Es wurde dazu bereits alles nötige geschrieben.

RavenIV 15. Mai 2008 10:53

Re: PC-Datum und Zeit ändern ?
 
Zitat:

Zitat von Daniel
@DelphiTurbo:
Du musst Dir angewöhnen, mal einen Blick in die Hilfe-Funktion von Delphi zu werfen. Dann wüsstest Du nämlich, dass man der Funktion "FormatDateTime()" gleich den ganzen Satz an Format-Optionen mitgeben kann - ein einziger Aufruf reicht also völlig.

Vor allem ist now auch eine Funktion.
Diese wird ebenso wie FormatDateTime einige mal aufgerufen.
Jeder Funktionsaufruf kostet Zeit.

P.S. Form1, Button1 und Edit1 sind keine vernünftigen Namen.

SaFu 15. Mai 2008 10:54

Re: PC-Datum und Zeit ändern ?
 
Zitat:

Zitat von Delphiturbo
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FormatDateTime('dd',now)+ '.' +
                  FormatDateTime('mm',now)+ '.' +
                  FormatDateTime('yy',now)+ ' ' +
                  FormatDateTime('hh',now)+ '.' +
                  FormatDateTime('nn',now)+ '.' +
                  FormatDateTime('ss',now);

Das geht so auch

Delphi-Quellcode:
Label1.Caption:= (FormatdateTime('dd:mm:yy:hh:nn:ss',now));

Delphiturbo 15. Mai 2008 10:56

Re: PC-Datum und Zeit ändern ?
 
Stimmt. Das wahr zuviel
Wie kann ich nun genauso wie beim auslesen, auch schreiben (zuweisen) ?

RavenIV 15. Mai 2008 10:59

Re: PC-Datum und Zeit ändern ?
 
Zitat:

Zitat von Delphiturbo
Stimmt. Das wahr zuviel
Wie kann ich nun genauso wie beim auslesen, auch schreiben (zuweisen) ?

Du wurdest schon dreimal auf die Suchfunktion hingewiesen.

Wenn Du nicht lesen kannst / willst, dann gehst Du auf diese Seite:
www.gidf.de

Sharky 15. Mai 2008 11:00

Re: PC-Datum und Zeit ändern ?
 
Zitat:

Zitat von Delphiturbo
Stimmt. Das wahr zuviel
Wie kann ich nun genauso wie beim auslesen, auch schreiben (zuweisen) ?

Ach menno,

es steht doch alles in dem Thread. Sogar mit dem passenden Suchbegriff.

BITEE lese die Beiträge der anderen auch und versuche zu lernen :!:

SaFu 15. Mai 2008 11:00

Re: PC-Datum und Zeit ändern ?
 
Schaul mal Systemzeit ändern

ich bin zwar auch net der Programmier König aber ab und zu such ich auch selber :thumb:

Delphiturbo 15. Mai 2008 11:10

Re: PC-Datum und Zeit ändern ?
 
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
  SystemTime: TSystemTime;
  NewTime, NewDate: string;
begin
  NewTime := '00:00:00';
  NewDate := '15.05.2008';
  DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);
  SetLocalTime(SystemTime);
  // Tell windows, that the Time changed!
  PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); // *
end;
:mrgreen:

Daniel 15. Mai 2008 11:27

Re: PC-Datum und Zeit ändern ?
 
Schön. Du hast mit Google gesucht und die Lösung einer anderen Internetseite 1:1 hier eingestellt. (http://www.delphitricks.com/source-c...stem_time.html)

Und nun? DelphiTurbo, solange Du nicht willens bist, Dir ein paar Grundlagen durchzulesen, wird das hier nichts mit Dir und der DP.

* geschlossen, da die Frage ja offenbar gelöst ist *


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz