Arsip: tanya date

 
user image
more 18 years ago

brodien

hlo semua saya baru gabung di sini mau nanya.. saya punya combobox nama bulan dlm bahasa indon...januari ......des gimana caranya misal dari combobox itu aku mau tau 2 atau 5 bulan setelahnya ???????? :oops: makasih tlong scripnya sekalian...ya
user image
more 18 years ago

cyber_hecker

kekekekeke :P. singkat aja deh...
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  nBulan, nNextMonth : Integer;
begin
  try
    nBulan := StrToInt(Edit1.Text);
  except
    on e: Exception do begin
          ShowMessage(e.ClassName +#10#13+ e.Message);
          nBulan := 0;
    end;
  end;
  nNextMonth := ComboBox1.ItemIndex + nBulan;
  if nNextMonth > 11 then
    nNextMonth := nNextMonth - 12;
  Edit3.Text := ComboBox1.Items[nNextMonth];
end;
koding diatas adalah berfungsi mencari nama bulan berikutnya sesuai dengan interval bulan yang diberikan. bila nilai intervalnya 2, maka akan dicari 2 bulan kedepan setelah nilai bulan yang terdapat pada comboBox.
user image
more 18 years ago

boy_borland

post dari kang cyber pasti dah bisa jawab pertanyaan kamu... buat nambah-nambah, cobain deh fungsi incMonth(DateTime, Int) contoh : showmessage(datetostr(incMonth(date,3))); klo date=28/12/2005, maka hasilnya akan jadi 28/02/2006
user image
more 18 years ago

brodien

ok pak udah bisa tu pak makasih ya... :lol: tapi mau nanya lagi nih pak 1 aku punya table pake mysql lewat odbc isi table tuh nama bulan dalam bahasa indonesia ..januari ..desember nah pas tak query tak tampilkan di dbgrid .. tampilnya gak urut dari atas bulan januari ...kebawah desember .. tapi acak pas tak orderby dia ngurut abjad ,bukan urut bulan gimana tuh pK 2.AKU DAPAT SCRIPT UNTIKform fullscren aku pake xp tapi kenapa taskbarnya gak mau hilang jadi gak benar2 fullscren maksih lagi :oops: :oops: :oops: :oops:
user image
more 18 years ago

LuriDarmawan

tentu saja, lha wong yang diisi nama bulannya, bukan angka bulan.
user image
more 18 years ago

EkoIndri

bos, kasih solusi donk................ klo mySQL aq g tahu (g pernah sentuh soale) menurutku, mending order by angka bulan dikombinasikan dengan case aja.(klo di MS SQL)
user image
more 18 years ago

LuriDarmawan

yup, order by tetep berdasar angka bulan saja, ini lebih enak. untuk kemudian menjadi nama-bulan, itu cukup bermain di GUI saja. dari combobox, khan terdapat properti itemindex juga, nah.. itemindex+1 sudah sama dengan angka-bulan kok.
user image
more 18 years ago

imunk

coba gini :
select (case when bulan='Januari' then 1 when bulan='Februari' then 2..........) as bulan from table order by bulan
moga membantu... peace...
user image
more 18 years ago

brodien

udah pak..... akire tabel saya saya tambahin satu kolom lagi untuk mengurut kan.. tapi klo mau buat ... tabel berwarna ..berdasarkan nama bulan gimana ya.. :oops: :oops: :oops: nanya melulu :oops: :oops:
user image
more 18 years ago

brodien

walah pak maaf pa ya nany algi nih :oops: ternyata setelah ganti tahun ...hasil pengurutan bulan nya gak sesuai dengan maksud saya ... jadi ceritanya begini .. saya mau nampilkan bulan sekarang dan 2 bulan sebelumnya denagn urutan bulan yang sebenarnya..misal..sekarang januari di tabel mau saya 1.nopember2005 ==>nilai dari indexitem+1 combobox =11 2.desember2005 =12 3.januari2006 =1 tapi ternyata yang tampil (order by nilai indexitem(aku tambahkan satu kolom lagi di tabel untuk mengurutkan) 1.desember2005 =>12 2.nopember2005 =>11 3.januari2006 =>1 ========================== 1.klo mengambil nilai dari ttimestamp untuk mengurutkan bisa gak ya gimana caranya pak/buk(ada ibuk nya gak ya)? :lol: /bapak semua kayak STM 2.gimana caranya nampilkan ttimestam ke string atau ngak pake pengurutan pake double/tdatetime bisa gak ya? klo bisa giman caranya aku .............aku juga bingung nih pokoke gimana lah caranya supaya bisa urut sepeti contoh di atas berpatokan pada isian combobox(namabulan dalama bahasa indonesia) makasih pak ya................ya........... :oops: :oops:
more ...
  • Pages:
  • 1
  • 2
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com