benpinterya benpinterya> Terima kasih atas pencerahan dari rekan-rekan benpinterya> Aplikasi A sudah jadi dibuat oleh pihak luar, Aplikasi B dibuat oleh benpinterya> team kami, dan kami tidak tahu caranya merubah lewat VB
benpinterya> ChipMunks: benpinterya> rubah lagi regional settingnya lewat aplikasi yang dibikin pake VB -->> Aplikasi A sudah jadi dibuat oleh pihak luar, Aplikasi B dibuat benpinterya> oleh team kami, dan kami tidak tahu caranya merubah lewat script VB benpinterya> indra gunawan : benpinterya> Kalau dari postingan anda, berarti anda sudah memiiki script untuk benpinterya> merubah region kan?? Tinggal dirubah aja script nya menjadi English benpinterya> dan Indonesia, dan panggilnya sesuai kebutuhan aja (firstload nya benpinterya> dan log offnya) -->> Aplikasi A sudah jadi dibuat oleh pihak luar, Aplikasi B dibuat benpinterya> oleh team kami, dan kami tidak tahu caranya merubah lewat script VB benpinterya> liungs : benpinterya> Pasti karena eSPT ya ? :) benpinterya> Coba lihat2 code di bawah (silakan modifikasi sendiri sesuai logika benpinterya> yg anda inginkan - kalau di sini, memunculkan dialog box supaya user benpinterya> memilih regional setting yg sesuai, sama seperti eSPT) -->> Terima kasih untuk script vbnya, nanti saya akan coba benpinterya> MIn_Feng : benpinterya> iya betul tuh kayanya.. benpinterya> emang e-spt bikin pusing tuh.. benpinterya> mesti ubah2 regional setting... -->> sebenarnya bukan dari e-spt, tapi program jadi yang kami beli benpinterya> Gunawan doang : benpinterya> 'http://www.planet-source-code.com/vb/scripts/ShowCode.asp? benpinterya> txtCodeId=50804&lngWId=1 -->> Terima kasih untuk referensinya, nanati saya akan coba ini dari milist sebelah hehehe alasan u ingin ganti setting regionalnya apa karna bermasalah di format tanggalnya ya? kalo iya u bisa coba code berikut untuk mengganti format tanggal : misal kalo United State kan format tanggalnya defaulnya 'M/d/yyyy' akan dirubah menjadi 'dd/MM/yyyy' (format indonesia) Option Explicit Private Const LOCALE_SSHORTDATE = &H1F Private Const LOCALE_SDATE = &H1D Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal LOCALE As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long Private Sub Command1_Click() Dim dwLCID As Long dwLCID = GetSystemDefaultLCID() If SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "dd/MM/yyyy") = False Then MsgBox "Ganti format tanggal gagal" Exit Sub End If If SetLocaleInfo(dwLCID, LOCALE_SDATE, "/") = False Then MsgBox "Ganti separator gagal" Exit Sub End If End Sub Salam, ChipMunks (Copy Paste Programmer) mailto: [EMAIL PROTECTED] Yahoo : Henqy Skype : Hengky_Purnomo
