Oracle da DayOfWeek

[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

[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

[husonet]

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

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.