...

Arsip: ngatasi error untuk seting tgl yg beda pada DataTimePiker

 
user image
more 19 years ago

lela

saya bikin program di delphi yang untuk tanggalnya itu saya pake kompnen DateTimePicker, karena program ini ditujukan untuk Client-Server, pas saya coba di komp yang lain dengan settingan tanggal yang berbeda, eh ternyata ga bisa, gimana dong solusinya???? ---->rieut yeuh alias blenger keblinger , :roll:
user image
more 19 years ago

DelphiExpert

Kalo componen TDateTimePickernya ngga' masalah mbak. Dia compatible di run di mana aja tapi utk formatnya dia ngeliat di regional settings masing2 komputer. Yang jadi masalah tuh format date-time datanya pada waktu nge-assign. Pake fungsi FormatDateTime aja paling mudah, atau set variable global-nya delphi utk format date-time.
user image
more 19 years ago

saysansay

Kalo componen TDateTimePickernya ngga' masalah mbak
Ane Masih Meragukan Nech status Nya..Wakakaakka Mbak/Mas Lela (Jarang2 Ada Progremer ce ane survey) Tinggal Setting properties DateTimePickernya aja.....DiDateformat Buat Server dan Client Disamakan DsShort Or DsLong selesai Dech Masalahnya...wakakakakaak Dijamin Nga bakal Erorrr Walau Setttingan Tglnya beda...wkakakaakkak
user image
more 19 years ago

lela

buat mas saysansay, thanks ya ama saranya, tapi klo masih penasaran ama status akun tinggal add aja [email protected] di friendstermu. buat temen temen yang lain jangan bosan ya jawab pertanyan2 saya, makacih
user image
more 19 years ago

cyber_hecker

kekekeke... masalah yang mbak lela temui, persis kayak yang ku alami dulu :P. beda format di setiap komputer. kan kadang mbingun in kalo di komputer yang satu format tanggal nya dd/mm/yy eh di komputer yang lain malah mm/dd/yy. kan gak seru :D sekarang untuk pengisian tanggal diriku menggunakan MaskEdit ditambah dengan fungsi buatan sendiri. kira-kira fungsinya kayak gini : 
function myConvertDate(sDate: String): TDateTime;
var
  fShort, fLong: String;
begin
  fShort := ShortDateFormat;
  fLong := LongDateFormat;
  ShortDateFormat := 'dd/MM/yy';
  LongDateFormat := 'dd/MM/yyyy';
  try
    Result := StrToDateTime(sDate);
  except
    Result := Now;
    ShowMessage('tanggal salah');
  end;
  LongDateFormat := fLong;
  ShortDateFormat := fShort;
end;
trus pada maskEdit onExit di beri perintah 
begin
  MaskEdit1.Text := FormatDateTime('dd/MM/yyyy',myConvertDate(MaskEdit1.Text));
end;
yah kira-kira kayak gitu deh. dan kalo listing programnya salah harap maklum. karena belum ku uji coba. habis di warnet seh :P. untuk menyimpan ke database. biasanya diriku menggunakan fungsi convert. jadi kira-kira kayak gini : 'CONVERT(DATETIME,'+QuotedStr(MaskEdit1.Text)+',103)' << jadi apapun yang terjadi.. tetep menggunakan format indonesia. gak ngaruh dengan setting komputer. :P mungkin pakar-pakar yang lain ada yang bisa memberi saran yang lebih baik ? :P. habis gue juga belon nemu cara yang lebih baik lagi neh....
user image
more 19 years ago

saysansay

Setelah Baca2 Testi Mbak lela..ternyata Asyik Juga lela Or Joya Suka Telat Kul...wakakakakak Orgnya Pendiam rada Bodor....Wakaakakaak Thank's bofore For Mbak Joya,,,Or Lela...ternyata teman MasJackriper Ya...Dibandung Lagi wakakakaak Satu aliran...Nice to meet u Joya...Semangat
user image
more 16 years ago

julius

Untuk settingan global di aplikasi kita supaya tidak berubah ubah, mungkin seperti ini : 

  DecimalSeparator  := ',';
  ThousandSeparator := '.';
  DateSeparator     := '-';
  ShortDateFormat   := 'dd-MMM-yyyy';
  LongDateFormat    := 'dd-MMMM-yyyy';
  ShortTimeFormat   := 'HH:mm';
  LongTimeFormat    := '  HH:mm';
  CurrencyString    := 'Rp. ';
  CurrencyDecimals  := 0;
  ShortMonthNames[1] := 'Jan';
  ShortMonthNames[2] := 'Feb';
  ShortMonthNames[3] := 'Mar';
  ShortMonthNames[4] := 'Apr';
  ShortMonthNames[5] := 'Mei';
  ShortMonthNames[6] := 'Jun';
  ShortMonthNames[7] := 'Jul';
  ShortMonthNames[8] := 'Agt';
  ShortMonthNames[9] := 'Sep';
  ShortMonthNames[10] := 'Okt';
  ShortMonthNames[11] := 'Nov';
  ShortMonthNames[12] := 'Des';
  LongMonthNames[1] := 'Januari';
  LongMonthNames[2] := 'Februari';
  LongMonthNames[3] := 'Maret';
  LongMonthNames[4] := 'April';
  LongMonthNames[5] := 'Mei';
  LongMonthNames[6] := 'Juni';
  LongMonthNames[7] := 'Juli';
  LongMonthNames[8] := 'Agustus';
  LongMonthNames[9] := 'September';
  LongMonthNames[10] := 'Oktober';
  LongMonthNames[11] := 'November';
  LongMonthNames[12] := 'Desember';
Biasanya sih naruhnya di main form / form utama pada saat oncreate. tapi mesti dilihat juga dalam penggunaan query terutama field yg Tdatetime.jadi pada saat insert atau update formatnya mest disesuaikan dengan format di database.
more ...
  • Pages:
  • 1
|
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Last Articles

Last Topic

Random Topic

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