int to time

Mesaj gönderen **pro_imaj** » 01 Ara 2005 05:20

Merhaba;

integer bir değeri nasıl saate çevirebilirim acaba.

edit4.text:=(TimeToStr(StrToint(edit3.text)));

bu şekilde yaptığımda her zaman 00:00:00 sonucunu veriyor.

Teşekkür ederim.

Mesaj gönderen **fduman** » 01 Ara 2005 05:23

Nasıl birşey o değer? Göndersene... Integer olan.

Mesaj gönderen **fduman** » 01 Ara 2005 05:27

Eğer tahmin ettiğim gibi ise:

IntegerDeğer div 60 = Saat
IntegerDeğer mod 60 = Dakika

Normalde TTime Double olarak yani floating point sayı tanımlanmıştır. Bir yazılımda ben de Integer tuttuğunu görünce böye bir hesap ile saat ve dakikayı elde etmiştim.

Mesaj gönderen **pro_imaj** » 01 Ara 2005 05:31

Merhaba @coderlord hocam

Kod: Tümünü seç

Vtde bu şekilde tutuyor hocam galiba bu değer 17:46 ya eşit olması gerekiyor hocam.

Not: Bu saçma olay ara yazılım yaptığım için oluşuyor. Tarih alanlarınıda sayı olarak vtye yazdırıyorlar ne hikmetse ama tarih çevriminde bir sorun yok saatte ufak bir ayrıntı var galiba.

Teşekkür ederim.
Saygılarımla

Mesaj gönderen **pro_imaj** » 01 Ara 2005 05:38

Merhaba;
işin garip tarafı bu değeri excele yapıştırıp orada çevir saat dendiğindede delphideki gibi 00:00:00 sonucunu veriyor. Oysaki tarih alanıda sayı olarak tutuluyor excele götürüp çevir tarih dediğimde sorunsuzca çeviriyor.

Tarihteki mantık 1900+... diye gidiyor ya saatte

Saygılarımla
Teşekkür ederim

Mesaj gönderen **fduman** » 01 Ara 2005 05:41

Olay Double'ı algıladığı için şöyle yaptım.

Kod: Tümünü seç

ShowMessage(TimeToStr(0.63981));

Bu arada tamsayı kısmını hiç kaale almıyor. Sanırım tamsayıda tarih tutuluyor. Ondalık kısma göre bunun cevabı: 15:21:19 çıkıyor.

Yani nasıl çevireceksin.

ShowMessage(TimeToStr(StrToFloat('0,63981'))); gibi..

Mesaj gönderen **fduman** » 01 Ara 2005 05:42

Bu yanıt doğru olmayabilir. Program ile bu değerleri karşılaştırman lazım. Belki farklı bir algoritma kullanılıyor.

Benim mod'lu hesabın burada işleyeceğini sanmıyorum.

Mesaj gönderen **pro_imaj** » 01 Ara 2005 05:46

Merhaba @coderlord hocam;

Kod: Tümünü seç

edit4.text:=(TimeToStr(StrToFloat('0,'+edit3.text)));

Verdiğin destekten ve çözümden dolayı çok teşekkür ederim baya moralimi bozmuştu bu olay.

Teşekkürler.
Saygılarımla
Çalışmalarınzıdaki başarılarınız daim olması dileğiyle.

Kolay gelsin.

Mesaj gönderen **pro_imaj** » 01 Ara 2005 05:51

Merhaba;

Hocam bir sorun var. Sizin belirtiğiniz şekilde çevirme işlemini yapıyorum sizinde belirttiğiniz gibi sonuç olarak
Sayı =63981
Çevrim Değeri =15:21:19
Halbuki = 17:46 olması gerekiyor nedeni ise aynı değer için ilgili programa girip bakıyorum ve bu sonucu veriyor (bu kayıdı ben oluşturdum ve programı verdii saat doğru)

@coderlord hocam belki ufak bir ayrıntı daha vardır. Ben biraz delphi helpe göz atayım.

Saygılarımla

ofenX · Mesaj gönderen **ofenX** » 01 Ara 2005 06:13

Merhaba,
Aradaki fark 2 saat 25 dakika. Bu delphiturkiye ye bakarken de problem oluyor. Bazen aramızda 2 saat 17 dakika fark oluyor.

Belki siz terminalin makinasına bakıyorsunuz. Ama saati serverinkine göre yazıyor.

Buna bir bakın.

Kolay gelsin.

Mesaj gönderen **pro_imaj** » 01 Ara 2005 06:16

ofenX yazdı:Merhaba,
Aradaki fark 2 saat 25 dakika. Bu delphiturkiye ye bakarken de problem oluyor. Bazen aramızda 2 saat 17 dakika fark oluyor.

Belki siz terminalin makinasına bakıyorsunuz. Ama saati serverinkine göre yazıyor.

Merhaba hocam Dediğiniz olay biraz farklı ben denemeleri kendi makinamda yapıyorumprogramıda öyle yani böyle bir durum söz konusu olması muhtemel ddeğil. @coderlord hocamın önerdiği virgülden sonra vakasının bir detayı daha olmalı sanırım helptede pek açıklayıcı bilgi yok. Aynı veri için ara yazılım yaptığım programdan bakıyorum doğru saati gösteriyor benim çevirdiğim ise farklı

Saygılarımla
Teşekkür ederim.

Mesaj gönderen **sadettinpolat** » 01 Ara 2005 07:04

ilginç bi konuymuş
araştırıken toryy de bu örneği buldum.

Kod: Tümünü seç

function TimeToText(T: Integer): string;
var
  H, M, S: string;
  ZH, ZM, ZS: Integer;
begin
  ZH := T div 3600;
  ZM := T div 60 - ZH * 60;
  ZS := T - (ZH * 3600 + ZM * 60);
  if ZH <10 then H := '0' + IntToStr(ZH)
  else
    H := IntToStr(ZH);
  if ZM <10 then M := '0' + IntToStr(ZM)
  else
    M := IntToStr(ZM);
  if ZS <10 then S := '0' + IntToStr(ZS)
  else
    S := IntToStr(ZS);
  Result := H + ':' + M + ':' + S;
end;

http://www.swissdelphicenter.ch/torry/s ... php?id=401

http://delphi.about.com/cs/adptips2003/ ... 0403_5.htm
-bu daha güzelmiş...-

Kod: Tümünü seç

Caption :=TimeToText(63981); //caption = 17:46:21

ofenX · Mesaj gönderen **ofenX** » 01 Ara 2005 07:43

Ben de neden kaynaklandığını araştırırken 1 vereyim fark ne kadar diye bakayım dedim.

Kod: Tümünü seç

 
S := FormatDateTime('hh:mm:ss:zzz', strtofloat(edit1.text));
  showmessage( s);

0,1 için için çıkan sonuç 2:24:00:000 yani sonuçtaki fark. saati alırken 100 üzerinden hesaplamamız gerekir ama daha bağlantıyı kuramadım. 100 üzerinden derken

Kod: Tümünü seç

0,25   6 saate karşılık geliyor. 
0,75  18:00 e karşılık geliyor.

Ben bu yoldan gidiyorum. Belki çözen olur mantığını.

İyi çalışmalar.

Mesaj gönderen **sadettinpolat** » 01 Ara 2005 07:56

aslında mesele -benim açımdan- time değişkeninin tam olarak ne tuttuğunu bilmemekmiş. saliseyide tutuyor sanıyordum ama sadece saat:dakika:saniye tutuyormuş. yukarıdaki kodlar bunu gösteriyor. kaç saniye bir dakika, kaç dakika da bir saat ettiğini bildiğimize göre geriye kalan ufak bir çevrim işi yapmak.

0,25 te ise virgülden sonraki 5 basamak dikkate alınıyor.

25000 / 60 = 416,6 dakika
416 / 60 = 6,9 saat

Mesaj gönderen **fduman** » 01 Ara 2005 08:08

Bravo. Olay budur sadettin.