AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Aus Wert ein Datum konventieren

Aus Wert ein Datum konventieren

Ein Thema von ByTheTime · begonnen am 11. Dez 2011 · letzter Beitrag vom 12. Dez 2011
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#11

AW: Aus Wert ein Datum konventieren

  Alt 11. Dez 2011, 21:40
Wie ich schon gezeigt habe, hat es damit nichts zu tun.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Question_mark

Registriert seit: 20. Okt 2004
54 Beiträge
 
Delphi 2009 Professional
 
#12

AW: Aus Wert ein Datum konventieren

  Alt 11. Dez 2011, 22:40
Hallo,

Zitat von ByTheTime:
In Excel steht das dann als 11:24:35 PM.
Sieht schon sehr nach amerikanischer Formatierung aus, da steht AM/PM ....

Zitat von Luckie:
Wie ich schon gezeigt habe, hat es damit nichts zu tun.
Dann warten wir doch einfach mal ab, ob ByTheTime in der Lage ist, sein Betriebssystem zu identifizieren.

Wenn nicht, dann kann und will ich ihm auch nicht weiterhelfen.

Gruß

Question_mark

Geändert von Question_mark (11. Dez 2011 um 22:43 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#13

AW: Aus Wert ein Datum konventieren

  Alt 11. Dez 2011, 22:52
Hallo,

Zitat von ByTheTime:
In Excel steht das dann als 11:24:35 PM.
Sieht schon sehr nach amerikanischer Formatierung aus, da steht AM/PM ....

Zitat von Luckie:
Wie ich schon gezeigt habe, hat es damit nichts zu tun.
Dann warten wir doch einfach mal ab, ob ByTheTime in der Lage ist, sein Betriebssystem zu identifizieren.

Wenn nicht, dann kann und will ich ihm auch nicht weiterhelfen.

Gruß

Question_mark
Wenn man jemanden helfen möchte, dann sollte man zuhören oder in diesem Medium lesen:
In Excel geht 11:24:35 rein: Excel.Cells[i + c, 2].Value := Table1Zeit.Value; In Excel steht das dann als 11:24:35 PM.
Aus Excel heraus mit SZeit := (Excel.Cells[e, 2].Value); kommt es als: 0,435295749386401(nur Bsp.)
Da wird also ein Float-Wert (als String) zurückgeliefert.
Was soll das also bitte schön mit irgendeiner Regions-Einstellung zu tun haben?

Die Lösung würde so aussehen:
Delphi-Quellcode:
var
  lTime : TTime;

  lTime := StrToFloat( Excel.Cells[e, 2].Value );
Wenn Value von Typ Variant ist dann sollte es sogar so funktionieren:

Delphi-Quellcode:
var
  lTime : TTime;

  lTime := Excel.Cells[e, 2].Value;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)

Geändert von Sir Rufo (11. Dez 2011 um 22:54 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#14

AW: Aus Wert ein Datum konventieren

  Alt 11. Dez 2011, 23:02
@Question_mark
er braucht doch nur Datum als Float/TDate und Zeit als Float/TTime lesen und verwenden.
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
ByTheTime

Registriert seit: 24. Sep 2011
Ort: Frankfurt
297 Beiträge
 
Delphi XE2 Architect
 
#15

AW: Aus Wert ein Datum konventieren

  Alt 12. Dez 2011, 18:42
Ich denke nicht das das was mit MUI zutun hat, habe Win7 HP und als Microsoft-Partner bekommt man min. Prof.
Das mit dem Float werde ich mal ausprobieren (:S, hatte es schon im Hinterkopf). Das habe ich aber bis jetzt nicht gemacht, da ich gehört habe, das man die ersten 2 Stellen wohl nicht braucht (Null und Komma), sowie alles was nach der Achten steht (ist mir völlig unverständlich). Naja, kann leider gerade nicht an mein Delphi, werde mein Ergebniss spätestens morgen mal posten.
Lukas
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#16

AW: Aus Wert ein Datum konventieren

  Alt 12. Dez 2011, 19:51
Für die Speicherung eines Datum/Zeitwertes sind mir 2 Verfahren bekannt:

1. Float-Wert (u.a. in Delphi benutzt)

1Tag = 24h = 100% = 1.0
12h = 50% = 0.5
etc.

2. Auch ein Float-Wert, aber
Code:
JJJJMMDD.HHNNSSZZZ
Dadurch wird der 12.12.2011 20:46:33.562 zu 20111212.204633562
Ein reiner Zeitwert 20:46:33.562 ist dann 0.204633562
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#17

AW: Aus Wert ein Datum konventieren

  Alt 12. Dez 2011, 20:07
wo hast Du Nr 2. her? Zum rechnen taugt der irgendwie gar nicht....
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Benutzerbild von Wolfgang Mix
Wolfgang Mix

Registriert seit: 13. Mai 2009
Ort: Lübeck
1.222 Beiträge
 
Delphi 2005 Personal
 
#18

AW: Aus Wert ein Datum konventieren

  Alt 12. Dez 2011, 21:35
Vielleicht hilft dies weiter

http://www.delphipraxis.net/142643-p...it-delphi.html
Angehängte Dateien
Dateityp: zip Zeitstempel.zip (205,5 KB, 3x aufgerufen)
Wolfgang Mix
if you can't explain it simply you don't understand it well enough - A. Einstein
Mein Baby:http://www.epubli.de/shop/buch/Grund...41818516/52824
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 08:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz