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
>
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/
