tarih hangi güne denk geliyor

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
Sedat GÖKÇEK
Üye
Mesajlar: 28
Kayıt: 29 Tem 2005 05:33
Konum: Anakara

tarih hangi güne denk geliyor

Mesaj gönderen Sedat GÖKÇEK »

Slm,

Tarihin haftanın hangi gününe geldiğini bulmak için epeydir uğraştım ama bir çözüm bulamadım. Tabi bu çözümü delphi'de değil pascal'da yapmam gerekiyor. Vermiş olduğum link'de aylar ve yüzyıllar ile ilgili rakamları nasıl bulduklarını anlayamadım bu konuda bana yardımcı olabilirmisiniz.

Başlığın bu forumda olum olmayacağına karar veremedim. Yanlış yerde başlık açtımsa affınıza sığınıyorum.
Teşekkürler

http://www.turkzeka.com/zeka/dgbw.asp
Amerika'yı yeniden keşfetmeyelim!
Kullanıcı avatarı
omerdurmus
Üye
Mesajlar: 60
Kayıt: 11 Kas 2005 03:32
Konum: Amasya

Mesaj gönderen omerdurmus »

tablodaki verileri sbt olarak al.
örnek üzerinden işlemi anlatıyorum :
08-06-1985 benim doğum günüm cumartesi doğduğumu biliyorum. bakalım ne olacak? :)
birinci basamak toplama işlemi: (Haziran = 5, 1985in 85ini al, birde 85i 4e bölüp tam kısmını al => int(85/4)=21)
08+5+85+21 = 119
ve sonucu yediye böl
119/7=17,00
onda birler basamağı yani virgülden sonra ilk basamak yani 0ı al
1900-1999 aralığında doğduğum için 0 ekle
0+0 = 0
0. gün yok demekki ondalık kısmı yoksa birler basamağını almalıyız.yani 7.
yüzyıl payı olarak 0 ekle 7+0=7
7nin karşılığı cumartesiyi elde ettik
aynısını 09-06-1985 için tekrarlayalım ve doğruluğunu kontrol edelim
9+5+85+21=120
120/7=17,14
1+0=1 yani pazar demek ki neymiş doğru.
Önemli NOT : Eğer ondalık kısım yoksa birler basamağını almanı ben uydurdum. yani doğaçlama. sitede böyle bir uyarı yok. ama çalıştı. bu basamakları pascala çevirirsin.
...
Kullanıcı avatarı
Sedat GÖKÇEK
Üye
Mesajlar: 28
Kayıt: 29 Tem 2005 05:33
Konum: Anakara

Mesaj gönderen Sedat GÖKÇEK »

bu kısmı pascal'da yazmada veya formulüze etmede sorunum yok bunları yapıyorum. Belli bir günü sabit alıp işlemde yaptırabiliyorum. İstediğimi tam olarak anlatamadım sanırım.

Ben indisler kullanmadan bu işlemleri yapmak istemiştim
örneğin
1800 1899 için 2
1900 1999 için 0 katsayısı kullanılmış bunların nerden geldiğini anlayamadım
Mustafa İLOĞLU'na ait bir kitap buldum ondan da bazı katsayılar ve rakamlar verilmiş ama bu rakamların nerden geldiğini anlayamadım. İş biraz matematik bilgisine kaçıyor. :(
Amerika'yı yeniden keşfetmeyelim!
Kullanıcı avatarı
hdayi
Kıdemli Üye
Mesajlar: 1284
Kayıt: 29 Oca 2004 01:53
Konum: Erciyes'in eteklerinden.

Mesaj gönderen hdayi »

Kod: Tümünü seç

DayOfWeek(Tarih)
"Tarih"in haftanın hangi günü olduğunu döner.
1:Pazar
2:Pazartesi
....
7:Cumartesi

Kolay Gelsin.
Bişnev in ney çün hikâyet mîküned
Ez cüdâyîhâ şikâyet mîküned
Resim
Kullanıcı avatarı
Sedat GÖKÇEK
Üye
Mesajlar: 28
Kayıt: 29 Tem 2005 05:33
Konum: Anakara

Mesaj gönderen Sedat GÖKÇEK »

hdayi yazdı:

Kod: Tümünü seç

DayOfWeek(Tarih)
"Tarih"in haftanın hangi günü olduğunu döner.
1:Pazar
2:Pazartesi
....
7:Cumartesi

Kolay Gelsin.
Arkadaşım teşekkür ederim. Ben bunu biliyorum ben sorunun cevabını da istemiyorum. Daha önce verdiğim linkde rakamlar ve katsayılar var bunların nereden geldiğini bilen varmı demiştim. Başlığı yanlış yere açmış olabileceğimi söyledim. Pascalda işlem yapacağım için DatOfWeek komutu işimi görmez ama SysUtils'den bu function baktım işe yararmı diye ama sonuç bulamadım ilgilinize teşekkürler.
Amerika'yı yeniden keşfetmeyelim!
Kullanıcı avatarı
huseyinert
Üye
Mesajlar: 233
Kayıt: 19 Nis 2005 06:49
Konum: Bartın

Mesaj gönderen huseyinert »

s.a arkadaşlar
basit bir yol düşündüm forma bir timer koyup işlemi bi butona atayıp girilen tarihi bilgisayarın saati yapıp o tarihe ayarlayabiliriz ve o günü bulabiliriz.
label1.captino:=FormatDateTime('dddddd ',date);
işlem bitincede şimdiki tarihi önceden bi değişkene alıp tekrar ayarlayabiliriz bu şekilde olur ama tabiki farklı bi yöntem
:lol:

kolay gelsin
"Kula bela gelmez Hak yazmayınca,Hak bela yazmaz kul azmayınca..." MEVLANA
Kullanıcı avatarı
hdayi
Kıdemli Üye
Mesajlar: 1284
Kayıt: 29 Oca 2004 01:53
Konum: Erciyes'in eteklerinden.

Mesaj gönderen hdayi »

Pascal'ın ve DElphi'nin referans tarihi 31.12.1899'dur (yanlış hatırlıyor olabilirim). Tarih bilgisini tutarken hesaplarken referans tarihinden itibaren geçen gün sayısını esas alır.

Sen de kendine bir referans tarihi alıp, onun gününe 1 dersen, istenilen tarih ile refereans tarih arasındaki farkın 7 ile bölümünde kalanını bulursun mod 7 üzerine 1 eklersin sana günü döner.
dateofweek de aynı mantık ile çalışıyor.
Bişnev in ney çün hikâyet mîküned
Ez cüdâyîhâ şikâyet mîküned
Resim
Glen
Üye
Mesajlar: 277
Kayıt: 12 Eki 2005 11:58

Mesaj gönderen Glen »

Zender Algoritmasini arayin. Tarihin hangi güne denk geldigini bulma olayi, ancak 1552 ve sonrasinda calisiyor.. Ayrica Ocak ve Subat ayini bir onceki yilin 13. ve 14. üncü ayi olarak kabul edip hareket ediceksiniz..

Kolay gelsin


// 1952 yazmisim, 1552 olacakti o.
Kullanıcı avatarı
onselder
Üye
Mesajlar: 54
Kayıt: 09 Şub 2005 05:56
Konum: samsun
İletişim:

Mesaj gönderen onselder »

bende bir ajanda vardı.ajandanın sonunda dogum gününün hangi güne geldiğini bulmak için 2-3 tablo koymuşlar gün,ay ve seneye göre hangi gün oldugunu (pzt,sal,car...) bulabiliyordun. istersen tarayıp upload edebilirim...
aLonE CoDeR
Kıdemli Üye
Mesajlar: 1223
Kayıt: 26 Nis 2005 04:08

Mesaj gönderen aLonE CoDeR »

Selamlar.
Verdiğiniz linkteki formül dikkatimi çekti.IQ soruları da genelde bu şekilde bir yapı kullanılarak hazırlanıyor.Şunu ciddi olarak iddia ediyorum ki bu tarz şeyler aslında gerçek bir IQ testi OLAMAZLAR ve bence bu örnekte de olduğu gibi genel olarak saçma bir formüldür.Bakınız;
FORMÜL’DEKİ RAKAMLARIN AÇIKLAMASI

15 : Gün

2 : Mayıs

74 : Doğum yılının son iki rakamı

18 : 74’ün 4’e bölümündeki bölüm

7 : Sabit bölen

15,5 : Sonuç

5 : Onda birler basamağı

0 : Yüzyıl sayısı
sizce burada baz alınan değerler mantıklı mı?
Cevapla