MEMBUAT TANGGAL DAN JAM DIGITAL With VB.6.0

Membuat Tanggal digital

Menggunakan  tool : MaskEdBox1

 

Masukkan kode berikut di form Active

Option Explicit

    Dim t$

    Dim thn$, bln$, tgl$

    t = MaskEdBox1.Text

    If t <> "__/__/__" Then

        thn = Right(t, 4)

        bln = Mid(t, 4, 2)

        tgl = Left(t, 2)

       

        If IsDate(thn & "-" & bln & "-" & tgl) = False Then

                 MaskEdBox1.Text = Format(Now, "dd/MM/yyyy")

        End If

    End If

Membuat jam digital :

Dengan tool timer seeting interval = 1

Label.untuk text nya.

Doublek timer  tersebut isikan code berikut :

 

Option Explicit

Private Sub timer_Timer()

Label1.Caption = Time

End Sub

jam versi 24jam.rar

SELAMAT MENCOBA 

silahkam download projeknya disini : tanggal.zip

silahkam download projeknya disini   ":Jam digital.zip



download tuturialnya disini Membuat_Tanggal_digital.pdf"