teman teman saya ada kasus nihh.. tolong bantuannya kalo ada yang udah pernah atau tau cara mengetahui bahwa bulan ini ada berapa minggu contoh bulan oktober ada 5 minggu saya pake SQL server trimsss

wahh kayanya udah mulai tertimbun nih... tolongin donk ada yang tau ga??

hi om @alvonz, sekedar bersharing ria..mudah-mudahan membantu

// Algoritma Jumlah hari dalam satu adalah 28,29,30 dan 31
// Formula Jumlah hari div 4>4 maka akan didapat jumlah minggu sama dengan 5(jumlah hari dalam 1 bulan 29,30,31);
// Formula Jumlah hari div 4=4 maka akan didapat jumlah minggu sama dengan 4(jumlah hari dalam 1 bulan 28);
function TForm1.GetWeekInMonth: Byte;
var
  FDay : Byte;
begin
  FDay := DaysInMonth(Now); //Waktu Sekarang
  if FDay div 4=4 then  // Jika Jumlah hari dalam satu bulan div 4 sama dengan empat
    Result :=4 // Maka akan didapat jumlah minggu dalam satu bulan adalah 4
  el1se
    if FDay div 4>4 then
      Result :=5;
end;

Di payun om@alvons.....Silakan dimodifikasi sesuai dengan kebutuhan, punya daku hanya function yg sederhana sekali..jadi silahkan dilengkapi kekurangannya...semangat...........

Dear Big boss lury, refer to my Function GetWeekInMonth, i think delphi code generetor have a bugs, detail bugs Symbol "=" change to "&gt" charater "8" change to "<img src="modules/PNphpBB2/images/smiles/icon_cool.gif" alt="Cool" border="0" />" please help to arrange thanks

hehe san, yg diharapkan alvonz adalah built-in SQL function di MS-SQL :)

klu di implementasikan SQL Server Sendiri kira2 seperti ini [sql] Cretae function DaysInMonth (@day datetime) returns int as BEGIN declare @result int if datepart(month, @day) = 2 begin if datepart(year, @day) % 400 = 0 select @result = 29 else if datepart(year, @day) % 100 = 0 select @result = 28 else if datepart(year, @day) % 4 = 0 select @result = 29 else select @resul = 28 end -- if else begin select @result = case (datepart(month, @day)) when 4 then 30 when 6 then 30 when 9 then 30 when 11 then 30 else 31 end -- case end -- else return @result END -- [/sql] Setelah mengetahui jumlah hari dalam bulan baru menggunakan algoritmanya [sql] Create Function GetWeekInMonth (@month datetime) returns int as BEGIN declare @aday int declare @result int select @aday=dbo.DaysInMonth(@month) if @aday / 4 > 4 select @result=5 else if @aday / 4= 4 select @result=4 return @result END [/sql] Cara penggunaannya : [sql] select dbo.getweekInMonth(getdate()) [/sql] Nah Gimana mas @DE :D

wahh makasih sharing ilmu nya mas sansay... saya juga bersyukur adanya forum delphi ini..jadi tambah ilmu...semoga forum ini ada terus sampe cucu saya hehehehhe :mrgreen:

aku tes dulu yahhh..soalnya sekarang saya lagi di warnet blm bisa langsung tes ke MS SQL.... tapi thank sharingnya

ohh iyah tambahan @saysansay kalo pengen tahu tanggal sekrang masuk minggu keberapa dalam bulan ini contoh sekarang tgl 20/10/2008 nah kan masuknya minggu ke 4 makasih yah

wahh mulai ketimbun nihhh