Arsip: ada yang tau cara ada berapa minggu dalam bulan

 
user image
more 12 years ago

alvonz

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
user image
more 12 years ago

alvonz

wahh kayanya udah mulai tertimbun nih... tolongin donk ada yang tau ga??
user image
more 12 years ago

saysansay

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...........
user image
more 12 years ago

saysansay

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
user image
more 12 years ago

DelphiExpert

hehe san, yg diharapkan alvonz adalah built-in SQL function di MS-SQL :)
user image
more 12 years ago

saysansay

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
user image
more 12 years ago

alvonz

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:
user image
more 12 years ago

alvonz

aku tes dulu yahhh..soalnya sekarang saya lagi di warnet blm bisa langsung tes ke MS SQL.... tapi thank sharingnya
user image
more 12 years ago

alvonz

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
user image
more 12 years ago

alvonz

wahh mulai ketimbun nihhh
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com