AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

got longint expected ansistring

Ein Thema von Nisbo · begonnen am 10. Mär 2005 · letzter Beitrag vom 11. Mär 2005
 
Nisbo

Registriert seit: 10. Mär 2005
191 Beiträge
 
Delphi 5 Standard
 
#5

Re: got longint expected ansistring

  Alt 11. Mär 2005, 07:48
mmm da wären wir wieder beim thema Function

habe es jetzt so gelöst und funktioniert Prima:

Delphi-Quellcode:
procedure TForm3.Button2Click(Sender: TObject);
var
   Ausgabe : string;
   Eingabe : string;
   Zeitverschiebung : integer;
   iTime : integer;
   NormalesDatum : tDateTime;
   hh, mm, ss, ms : word;

const
  FirstOf1970 = 25569; // in Sekunden seit 30.12.1899 bis 01.01.1970 (WinZeit -> UnixZeit)
  OneDay = 86400; // Sekunden
  OneHour = 3600; // Sekunden
  OneMinute = 60; // Sekunden

begin
   if Edit1.Text = 'then Edit1.Text := FormatDateTime('dd.mm.yyyy', now);
   if Edit2.Text = 'then Edit2.Text := '00:00';
   if Edit3.Text = 'then Edit3.Text := '0';

   Eingabe := Edit1.Text + ' ' + Edit2.Text; // Datum und Zeit zusammenfuegen
   NormalesDatum := StrToDateTime(Eingabe); // Eingabe in Datumsformat umwandeln
   Zeitverschiebung := strtoint(Edit3.Text) * OneHour; // Zeitverschiebung berechnen

   DecodeTime(NormalesDatum, hh, mm, ss, ms);

   iTime := (Trunc(NormalesDatum) - FirstOf1970) * OneDay; // Tage seit 1.1.1970 in Sekunden abziehen
   iTime := iTime + (hh * OneHour); // Stunden
   iTime := iTime + (mm * OneMinute); // Minuten
   iTime := iTime + ss; // Sekunden
   iTime := iTime + Zeitverschiebung; // Zeitverschiebung beachten

   if iTime < 0 then iTime := 0; // nur positive Ausgabe

   Ausgabe := inttostr(iTime);
   Edit4.Text := Ausgabe;
end;
so schaut das ganze in der Eingabe aus:
Angehängte Grafiken
Dateityp: gif unixdatum_571.gif (7,5 KB, 7x aufgerufen)
Jens
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:32 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-2025 by Thomas Breitkreuz