saya sudah coba mr. Kid, tp debug di baris ke-3 (mark with >).
FYI control textbox bernama jth_tempo, jadi saya modif mjd spt ini
Private Sub jth_tempo_Change()
Dim lChar As Long
Dim sText As String
> sText = CStr(CLng(Replace$(jth_tempo.Text, "-", vbNullString)))
lChar = Len(sText)
Select Case lChar
Case 5, 6
sText = Left$(sText, 4) & "-" & Mid$(sText, 5, 2)
If Not IsDate(sText & "-01") And lChar = 6 Then
jth_tempo.Text = Left$(sText, 6)
Else
jth_tempo.Text = sText
End If
Case 7, 8
sText = Left$(sText, 4) & "-" & Mid$(sText, 5, 2) & "-" &
Mid$(sText, 7, 2)
If Not IsDate(sText) And lChar = 8 Then
jth_tempo.Text = Left$(sText, 9)
Else
jth_tempo.Text = sText
End If
End Select
End Sub
kira2 apanya yg salah ya?
2013/2/15 Mr. Kid <[email protected]>
> **
>
>
> Untuk yang date.
> Syaratnya, input dalam format YYYYMMDD :: 4 digit tahun diikuti 2 digit
> bulan dan diakhiri 2 digit tanggal (total input = 8 digit selalu)
> Dipilih format input ini agar tidak terbentur masalah regional setting
> komputer yang bisa jadi berbeda antar komputernya.
>
> Misal nama control textbox adalah txtTgl
> Pada event change txtTgl diberi script :
> Dim lChar As Long
> Dim sText As String
>
> sText = CStr(CLng(Replace$(txtTgl.Text, "-", vbNullString)))
> lChar = Len(sText)
> Select Case lChar
> Case 5, 6
> sText = Left$(sText, 4) & "-" & Mid$(sText, 5, 2)
> If Not IsDate(sText & "-01") And lChar = 6 Then
> txtTgl.Text = Left$(sText, 6)
> Else
> txtTgl.Text = sText
> End If
> Case 7, 8
> sText = Left$(sText, 4) & "-" & Mid$(sText, 5, 2) & "-" &
> Mid$(sText, 7, 2)
> If Not IsDate(sText) And lChar = 8 Then
> txtTgl.Text = Left$(sText, 9)
> Else
> txtTgl.Text = sText
> End If
> End Select
>
> Wassalam,
> Kid.
>
> 2013/2/15 Eko NS <[email protected]>
>
>> **
>>
>>
>> misi para mastah excel,
>>
>> ane ada sedikit kesulitan dalam pembuatan makro & ingin bantuan dari para
>> mastah.
>>
>> dalam userform ane ingin ketika input data angka akan secara otomatis
>> tampil dengan pemisah titik (.) dan untuk tanggal terpisahkan dengan strip
>> (-) antara tanggal, bulan & tahun.
>> maksud ane tampilan tersebut langsung dapat terlihat ketika isi userform,
>> bukan pada tabel hasilnya.
>>
>> terima kasih.
>>
>>
>> _
>>
>
>
>
--
* * Eko Nur Subagyo*
*
*
* Subdit Pinjaman Daerah*
* Ditjen Perimbangan Keuangan - Kemenkeu*
* Jl. DR. Wahidin No. 1 Jakarta*
