Terima kasih untuk mderator VB & mr. Purwedi K, atas
jawabannya.
namun saya masih belum mengerti setelah sintak
procedure ini saya letakkan di form kenapa masih ada
error di baris pertama ini ?
> Private Declare Function GetUserDefaultLCID% Lib
> "kernel32" ()
>
> Private Declare Function SetLocaleInfo Lib
> "kernel32" Alias
> "SetLocaleInfoA" (ByVal locale As Long, ByVal LCType
> As Long, ByVal
> lpLCData As String) As Boolean
>
> Public Sub SetShortDateFormat(sShortDate As String)
> Dim iRet As Long, locale As Long
> locale = GetUserDefaultLCID()
> iRet = SetLocaleInfo(locale, LOCALE_SSHORTDATE,
> sShortDate)
> If iRet Then
> Debug.Print "successfully change system
> short date format"
> End If
> End Sub
apakah private delcare nya harus di taruh di module
atau dimana ?
Terima kasih .
--- Purwedi Kurniawan <[EMAIL PROTECTED]>
wrote:
> coba gunakan procedure berikut ini:
>
> '----
> Private Declare Function GetUserDefaultLCID% Lib
> "kernel32" ()
>
> Private Declare Function SetLocaleInfo Lib
> "kernel32" Alias
> "SetLocaleInfoA" (ByVal locale As Long, ByVal LCType
> As Long, ByVal
> lpLCData As String) As Boolean
>
> Public Sub SetShortDateFormat(sShortDate As String)
> Dim iRet As Long, locale As Long
> locale = GetUserDefaultLCID()
> iRet = SetLocaleInfo(locale, LOCALE_SSHORTDATE,
> sShortDate)
> If iRet Then
> Debug.Print "successfully change system
> short date format"
> End If
> End Sub
> '--------
> ' contoh:
> ' setshortdateformat "dd-mm-yyyy"
> '
>
> Regards...
> On 6/10/05, budi budi <[EMAIL PROTECTED]> wrote:
> > saya baru pertama kali melihat dan menuli dalam
> member
> > ini , dan sebelumnya saya ucapkan terima kasi
> kepada
> > vb moderator.
> >
> > saya ingin tanyakan kepada teman temang siapa tau
> bisa
> > bantu saya.
> >
> > setting format tanggal yang saya inginkan
> DD-MM-YYYY ,
> > yang secara otomatis dapat mempengaruhi control
> panel.
> >
> > sebagai conoh , sewaktu form tersebut blm di klik
> ,
> > format masih mm-dd-yyyy, setelah form tsb di buka
> maka
> > format tanggal untuk pc tsb menjadi dd-mm-yyyy
> >
> > semoga mailing list vb + moderator dapat membantu
> saya
> >
>
__________________________________
Discover Yahoo!
Have fun online with music videos, cool games, IM and more. Check it out!
http://discover.yahoo.com/online.html
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
