[vb] tes

Viewer

  1. Private Sub cmdHitung_Click()
  2.     waktu_saat_ini = Time
  3.     d = Val(Text2.Text)
  4.     waktu_tambah = d / (24 * 60)
  5.     waktu_setelah_tambah = waktu_saat_ini + waktu_tambah
  6.     Text3 = waktu_setelah_tambah
  7. End Sub
  8.  
  9. Private Sub Form_Load()
  10.     waktu_saat_ini = Time
  11.     Text1 = waktu_saat_ini
  12. End Sub

Editor

You can edit this paste and save as new:


File Description
  • tes
  • Paste Code
  • 20 Sep-2021
  • 307 Bytes
You can Share it: