Oracle da DayOfWeek

Oracle veritabanı ve SQL komutlarıyla ilgli sorularınızı sorabilirsiniz. Delphi tarafındaki sorularınızı lütfen Programlama forumunda sorunuz.
Cevapla
Kullanıcı avatarı
hark
Üye
Mesajlar: 23
Kayıt: 19 Haz 2003 01:38
Konum: İstanbul

Oracle da DayOfWeek

Mesaj gönderen hark »

merhaba

oracle de Dayofweek fonksyonu veya muadili bir baska fonk. varmi acaba
asil olarak yapmak istedigim ise verilen tarih degerinin haftanin kacinci gunu oldugunu bulabilmek
herkese kolay gelsin
Kullanıcı avatarı
naile
Admin
Mesajlar: 1873
Kayıt: 11 Haz 2003 10:11

Mesaj gönderen naile »

Sql Server DateName diye bir fonksiyon var, hangi gün olduğunu veriyor, belki işine yarar (oracle da varsa tabi :) )

Kod: Tümünü seç

SELECT DATENAME(dw, '28-06-2004')
Dönen değer : Pazartesi
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

Hark Kardeş bak oracle öğretmedin bana database kısmına çevirmek sana kaldı benden algoritması senden çevirmesi. :wink:

Uses kısmına Math unitini eklemeyi unutmayalım.

Kod: Tümünü seç

Function IntPart(FloatNum:Double):Double;
Begin
    if FloatNum < -0.0000001 Then
        Result:= Ceil(FloatNum -0.0000001)
    Else
        Result:= Floor(FloatNum +0.0000001);

End;
function HaftaGunu(Gun:Integer):String;
Begin
        if Gun = 0 Then
           Result := 'Pazartesi'
	Else
        if Gun = 1 Then
           Result := 'Salı'
	Else
        if Gun = 2 Then
           Result := 'Çarşamba'
        Else
	if Gun = 3 Then
           Result := 'Perşembe'
        Else
	if Gun = 4 Then
           Result := 'Cuma'
        Else
	if Gun = 5 Then
           Result := 'Cumartesi'
        Else
	if Gun = 6 Then
           Result := 'Pazar';

End;

procedure TForm1.Button1Click(Sender: TObject);
var
    Tarih, IslenenTar:TDateTime;
    Gun, Ay, Yil: Word;
    Son:Integer;
begin
    Tarih := DateTimePicker1.Date;
    DecodeDate(Tarih, Yil, Ay, Gun);
    IslenenTar := IntPart((1461*(Yil + 4800 + IntPart((Ay-14)/ 12)))/ 4) + IntPart((367*(Ay-2-12*(IntPart((Ay-14)/ 12))))/ 12)-IntPart((3*(IntPart((Yil+4900+IntPart((Ay-14)/ 12))/ 100)))/ 4)+Gun-32075;
    Son:= StrToInt(FloatToStr(IslenenTar));
    Son := Son Mod 7;
    ShowMessage(HaftaGunu(Son));
end;
Kolay Gelsin...
İyi Geceler.

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
Cevapla