Loading ...
Sorry, an error occurred while loading the content.

Re: [indoprog-vb] jumlah waktu

Expand Messages
  • Donny Maha Putra
    coba silahkan lihat dan pelajari listing di bawah ini semoga bisa membantu Option Explicit Public gf_dtTime As Date Private Sub cmdMulai_Click() Periksa
    Message 1 of 3 , Aug 1, 2002
    • 0 Attachment
      coba silahkan lihat dan pelajari listing di bawah ini semoga bisa membantu

      Option Explicit
      Public gf_dtTime As Date

      Private Sub cmdMulai_Click()
      'Periksa apakah data yang dimasukkan berupa
      'sebuah tanggal yang valid...

      If IsDate(txtBDate.Text) Then
      'Jika benar, conversi ke teks tsb ke tipe data tanggal
      'dan assign-kan ke variabel global Time

      gf_dtTime = CDate(txtBDate.Text)
      If CDate(txtBDate.Text) > CDate(txtFDate.Text) Then
      MsgBox "Tanggal Awal tidak mungkin lebih" & vbCrLf & _
      "besar dari Tanggal Akhir..." & vbCrLf & _
      "Silahkan perbaiki!", vbCritical, "Tanggal Awal?"
      txtBDate.SetFocus
      SendKeys "{Home}+{End}"
      Exit Sub
      End If
      Else
      'Jika tidak benar, tampilkan pesan kesalahan
      MsgBox "Anda harus memasukkan tanggal yang benar !", vbCritical,
      "Data error"
      'Kembalikan kursor ke textbox
      txtBDate.SetFocus
      'Posisikan kursor mulai dari awal textbox
      txtBDate.SelStart = 0
      'Sorot teks yang error tersebut
      txtBDate.SelLength = Len(txtBDate.Text)
      'Keluar dari prosedur ini
      Exit Sub
      End If

      'Aktifkan control Timer jika benar...
      Timer1.Enabled = True
      End Sub

      Private Sub Form_Load()
      txtFDate = Format(Date, "dd/mm/yyyy")
      End Sub

      Private Sub Timer1_Timer()
      Dim WaktuDalamDetik As Long
      Dim WaktuDalamHari As Long
      Dim WaktuDalamBulan As Long
      Dim WaktuDalamTahun As Long
      Dim h1 As Long
      Dim m1 As Long
      Dim s1 As Long
      Dim tampung As String
      Dim sisa As Long
      Dim Durasi As Long

      On Error Resume Next
      'Hitung selisih tanggal dalam hitungan detik
      WaktuDalamDetik = DateDiff("s", gf_dtTime, Now)

      'Hitung seleish tanggal dalam hitungan hari
      WaktuDalamHari = DateDiff("d", gf_dtTime, Now)

      'Hitung selisih tanggal dalam hitungan bulan
      WaktuDalamBulan = DateDiff("m", gf_dtTime, Now)

      'Hitung selisih tanggal dalam hitungan tahun
      WaktuDalamTahun = DateDiff("yyyy", gf_dtTime, Now)

      'Tampilkan ke layar hasilnya...
      lblAgeSecs.Caption = Format(CStr(WaktuDalamDetik), "#,#")
      lblAgeDays.Caption = Format(CStr(WaktuDalamHari), "#,#")
      lblAgeMonths.Caption = Format(WaktuDalamBulan), "#,#")
      lblAgeYears.Caption = Format(CStr(WaktuDalamTahun ), "#,#")

      Durasi = WaktuDalamDetik
      h1 = Durasi \ 3600 'pembagian bil bulat (jam)
      sisa = Durasi Mod 3600 'sisa pembagian
      m1 = sisa \ 60 'sisa jam dibagi 60 (menit)
      s1 = sisa Mod 60 'sisa bagi menit (detik)
      tampung = "" & h1 & ":" & m1 & ":" & s1 & ""
      lblTimeHour.Caption = Format(h1, "#,#")
      lblTimeMinute.Caption = m1
      lblTimeSecond.Caption = s1

      End Sub

      Private Sub txtBDate_Change()
      cmdmMulai.Default = True
      End Sub


      salam,

      donie

      ----- Original Message -----
      From: "kusnadi ren ekon up v" <kusnadi@...>
      To: <indoprog-vb@yahoogroups.com>
      Sent: Thursday, August 01, 2002 1:48 PM
      Subject: [indoprog-vb] jumlah waktu


      > Rekan - rekan yth,
      > saya beginner di vb, bagaimana caranya mendapatkan jumlah selisih waktu,
      > contoh :
      > Start : tgl.21/6/2003 - jam 14.30
      > Finish : tgl 22/6/2003 - jam 10.41
      > Berapa jam,menit ,(detik) yang dibutuhkan dari start s/d finish
      >
      > terimakasih
      >
      >
      > [Non-text portions of this message have been removed]
      >
      >
      >
      > Didukung oleh :
      >
      > Penta COM
      > (Training, Hardware, Software, Design)
      > Jl. Samosir No. 21
      > Telp. 061-4154281
      > Medan 20211 - Sumatera Utara
      > Indonesia
      >
      >
      >
      > Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
      >
      >
    Your message has been successfully submitted and would be delivered to recipients shortly.