Visual Basic 6.0 bukan hanya sebuah program untuk membuat program berbasis database namun bisa di terapkan untuk kebutuhan lainya, seperti program Jadwal sholat ini untuk muslim. Jadwal sholat adalah program jadwal sholat pada komputer yang terdiri dari 5 waktu yaitu : Isya, Subuh, Dzuhur, Asyar, Magrib yang disesuaikan dengan format waktu pada komputer anda. Terdiri dari 5 Teks format defaut waktu yang sudah di masukan dan siap untuk di edit. Dalam program yang harus di sediakan yaitu 1 Form kosong dan 1 Module
Yang berminat dengan Kode program nya saya udah simpan di Group Tutorial Visual basic Indonesia
Desain Form program Jadwal sholat 5 waktu dengan Vb 6
Penulisan Kode program Aplikasi Jadwal sholat,
Klik Form FrmJadwal dan tampil editor untuk penulisan kode program
Private Sub Form_Load()
Dim namasholat As WaktuSholat
Me.Caption = "Jadwal Sholat : " & Now()
Sholat Now(), 0, namasholat
TxtIsya(0).Text = namasholat.Isyak
txtsubuh(1).Text = namasholat.Subuh
txtdzuhur(2).Text = namasholat.Dhuhur
txtAsyar(3).Text = namasholat.Asar
TxtMagrib(4).Text = namasholat.Magrib
End Sub
Listing kode program Module
Option Explicit
Type WaktuSholat
Subuh As String
Dhuhur As String
Asar As String
Magrib As String
Isyak As String
End Type
Public Sub Sholat(waktu As Date, Selisih As Integer, namasholat As WaktuSholat)
Dim wektu, A, W, T, P, U, V, S, R, Q, JamP, JamQ, JamR, JamS, JamT, MenitP, MenitQ, MenitR, MenitS, MenitT
Select Case Month(waktu)
Case 1
Select Case Day(waktu)
Case 1
A = "3:59:00,11:36:00,15:00:00,17:52:00,19:06:00"
Case 2
A = "3:59:00,11:36:00,15:00:00,17:52:00,19:06:00"
Case 3
A = "3:59:00,11:36:00,15:00:00,17:52:00,19:06:00"
Case 4
A = "3:59:00,11:36:00,15:00:00,17:52:00,19:06:00"
Case 5
A = "3:59:00,11:36:00,15:00:00,17:52:00,19:06:00"
Case 6
A = "4:01:00,11:39:00,15:04:00,17:55:00,19:10:00"
Case 7
A = "4:01:00,11:39:00,15:04:00,17:55:00,19:10:00"
Case 8
A = "4:01:00,11:39:00,15:04:00,17:55:00,19:10:00"
Case 9
A = "4:01:00,11:39:00,15:04:00,17:55:00,19:10:00"
Case 10
A = "4:01:00,11:39:00,15:04:00,17:55:00,19:10:00"
Case 11
A = "4:04:00,11:41:00,15:04:00,17:55:00,19:10:00"
Case 12
A = "4:04:00,11:41:00,15:04:00,17:55:00,19:10:00"
Case 13
A = "4:04:00,11:41:00,15:04:00,17:55:00,19:10:00"
Case 14
A = "4:04:00,11:41:00,15:04:00,17:55:00,19:10:00"
Case 15
A = "4:04:00,11:41:00,15:04:00,17:55:00,19:10:00"
Case 16
A = "4:07:00,11:43:00,15:05:00,17:57:00,19:11:00"
Case 17
A = "4:07:00,11:43:00,15:05:00,17:57:00,19:11:00"
Case 18
A = "4:07:00,11:43:00,15:05:00,17:57:00,19:11:00"
Case 19
A = "4:07:00,11:43:00,15:05:00,17:57:00,19:11:00"
Case 20
A = "4:07:00,11:43:00,15:05:00,17:57:00,19:11:00"
Case 21
A = "4:10:00,11:44:00,15:06:00,17:59:00,19:12:00"
Case 22
A = "4:10:00,11:44:00,15:06:00,17:59:00,19:12:00"
Case 23
A = "4:10:00,11:44:00,15:06:00,17:59:00,19:12:00"
Case 24
A = "4:10:00,11:44:00,15:06:00,17:59:00,19:12:00"
Case 25
A = "4:10:00,11:44:00,15:06:00,17:59:00,19:12:00"
Case 26
A = "4:12:00,11:45:00,15:05:00,17:59:00,19:12:00"
Case 27
A = "4:12:00,11:45:00,15:05:00,17:59:00,19:12:00"
Case 28
A = "4:12:00,11:45:00,15:05:00,17:59:00,19:12:00"
Case 29
A = "4:12:00,11:45:00,15:05:00,17:59:00,19:12:00"
Case 30
A = "4:12:00,11:45:00,15:05:00,17:59:00,19:12:00"
Case 31
A = "4:12:00,11:45:00,15:05:00,17:59:00,19:12:00"
End Select
Case 2
Select Case Day(waktu)
Case 1
A = "4:14:00,11:46:00,15:04:00,17:59:00,19:12:00"
Case 2
A = "4:14:00,11:46:00,15:04:00,17:59:00,19:12:00"
Case 3
A = "4:14:00,11:46:00,15:04:00,17:59:00,19:12:00"
Case 4
A = "4:16:00,11:46:00,15:02:00,17:58:00,19:08:00"
Case 5
A = "4:16:00,11:46:00,15:02:00,17:58:00,19:08:00"
Case 6
A = "4:16:00,11:46:00,15:02:00,17:58:00,19:08:00"
Case 7
A = "4:16:00,11:46:00,15:02:00,17:58:00,19:08:00"
Case 8
A = "4:16:00,11:46:00,15:02:00,17:58:00,19:08:00"
Case 9
A = "4:17:00,11:46:00,15:00:00,17:57:00,19:07:00"
Case 10
A = "4:17:00,11:46:00,15:00:00,17:57:00,19:07:00"
Case 11
A = "4:17:00,11:46:00,15:00:00,17:57:00,19:07:00"
Case 12
A = "4:17:00,11:46:00,15:00:00,17:57:00,19:07:00"
Case 13
A = "4:17:00,11:46:00,15:00:00,17:57:00,19:07:00"
Case 14
A = "4:19:00,11:46:00,14:58:00,17:56:00,19:05:00"
Case 15
A = "4:19:00,11:46:00,14:58:00,17:56:00,19:05:00"
Case 16
A = "4:19:00,11:46:00,14:58:00,17:56:00,19:05:00"
Case 17
A = "4:19:00,11:46:00,14:58:00,17:56:00,19:05:00"
Case 18
A = "4:19:00,11:46:00,14:58:00,17:56:00,19:05:00"
Case 19
A = "4:21:00,11:46:00,14:54:00,17:55:00,19:04:00"
Case 20
A = "4:21:00,11:46:00,14:54:00,17:55:00,19:04:00"
Case 21
A = "4:21:00,11:46:00,14:54:00,17:55:00,19:04:00"
Case 22
A = "4:21:00,11:46:00,14:54:00,17:55:00,19:04:00"
Case 23
A = "4:21:00,11:46:00,14:54:00,17:55:00,19:04:00"
Case 24
A = "4:22:00,11:46:00,14:50:00,17:53:00,19:03:00"
Case 25
A = "4:22:00,11:46:00,14:50:00,17:53:00,19:03:00"
Case 26
A = "4:22:00,11:46:00,14:50:00,17:53:00,19:03:00"
Case 27
A = "4:22:00,11:46:00,14:50:00,17:53:00,19:03:00"
Case 28
A = "4:22:00,11:46:00,14:50:00,17:53:00,19:03:00"
Case 29
A = "4:22:00,11:46:00,14:50:00,17:53:00,19:03:00"
End Select
Case 3
Select Case Day(waktu)
Case 1
A = "4:22:00,11:44:00,14:47:00,17:53:00,19:00:00"
Case 2
A = "4:22:00,11:44:00,14:47:00,17:53:00,19:00:00"
Case 3
A = "4:22:00,11:44:00,14:47:00,17:53:00,19:00:00"
Case 4
A = "4:22:00,11:44:00,14:47:00,17:53:00,19:00:00"
Case 5
A = "4:22:00,11:44:00,14:47:00,17:53:00,19:00:00"
Case 6
A = "4:22:00,11:43:00,14:49:00,17:49:00,18:58:00"
Case 7
A = "4:22:00,11:43:00,14:49:00,17:49:00,18:58:00"
Case 8
A = "4:22:00,11:43:00,14:49:00,17:49:00,18:58:00"
Case 9
A = "4:22:00,11:43:00,14:49:00,17:49:00,18:58:00"
Case 10
A = "4:22:00,11:43:00,14:49:00,17:49:00,18:58:00"
Case 11
A = "4:22:00,11:42:00,14:51:00,17:47:00,18:55:00"
Case 12
A = "4:22:00,11:42:00,14:51:00,17:47:00,18:55:00"
Case 13
A = "4:22:00,11:42:00,14:51:00,17:47:00,18:55:00"
Case 14
A = "4:22:00,11:42:00,14:51:00,17:47:00,18:55:00"
Case 15
A = "4:22:00,11:42:00,14:51:00,17:47:00,18:55:00"
Case 16
A = "4:22:00,11:40:00,14:51:00,17:44:00,18:53:00"
Case 17
A = "4:22:00,11:40:00,14:51:00,17:44:00,18:53:00"
Case 18
A = "4:22:00,11:40:00,14:51:00,17:44:00,18:53:00"
Case 19
A = "4:22:00,11:40:00,14:51:00,17:44:00,18:53:00"
Case 20
A = "4:22:00,11:40:00,14:51:00,17:44:00,18:53:00"
Case 21
A = "4:22:00,11:39:00,14:52:00,17:42:00,18:50:00"
Case 22
A = "4:22:00,11:39:00,14:52:00,17:42:00,18:50:00"
Case 23
A = "4:22:00,11:39:00,14:52:00,17:42:00,18:50:00"
Case 24
A = "4:22:00,11:39:00,14:52:00,17:42:00,18:50:00"
Case 25
A = "4:22:00,11:39:00,14:52:00,17:42:00,18:50:00"
Case 26
A = "4:21:00,11:37:00,14:52:00,17:39:00,18:48:00"
Case 27
A = "4:21:00,11:37:00,14:52:00,17:39:00,18:48:00"
Case 28
A = "4:21:00,11:37:00,14:52:00,17:39:00,18:48:00"
Case 29
A = "4:21:00,11:37:00,14:52:00,17:39:00,18:48:00"
Case 30
A = "4:21:00,11:37:00,14:52:00,17:39:00,18:48:00"
Case 31
A = "4:21:00,11:37:00,14:52:00,17:39:00,18:48:00"
End Select
Case 4
Select Case Day(waktu)
Case 1
A = "4:20:00,11:37:00,14:53:00,17:37:00,18:45:00"
Case 2
A = "4:20:00,11:37:00,14:53:00,17:37:00,18:45:00"
Case 3
A = "4:20:00,11:37:00,14:53:00,17:37:00,18:45:00"
Case 4
A = "4:20:00,11:37:00,14:53:00,17:37:00,18:45:00"
Case 5
A = "4:20:00,11:37:00,14:53:00,17:37:00,18:45:00"
Case 6
A = "4:19:00,11:34:00,14:52:00,17:34:00,18:42:00"
Case 7
A = "4:19:00,11:34:00,14:52:00,17:34:00,18:42:00"
Case 8
A = "4:19:00,11:34:00,14:52:00,17:34:00,18:42:00"
Case 9
A = "4:19:00,11:34:00,14:52:00,17:34:00,18:42:00"
Case 10
A = "4:19:00,11:34:00,14:52:00,17:34:00,18:42:00"
Case 11
A = "4:19:00,11:33:00,14:51:00,17:32:00,18:41:00"
Case 12
A = "4:19:00,11:33:00,14:51:00,17:32:00,18:41:00"
Case 13
A = "4:19:00,11:33:00,14:51:00,17:32:00,18:41:00"
Case 14
A = "4:19:00,11:33:00,14:51:00,17:32:00,18:41:00"
Case 15
A = "4:19:00,11:33:00,14:51:00,17:32:00,18:41:00"
Case 16
A = "4:18:00,11:32:00,14:51:00,17:30:00,18:39:00"
Case 17
A = "4:18:00,11:32:00,14:51:00,17:30:00,18:39:00"
Case 18
A = "4:18:00,11:32:00,14:51:00,17:30:00,18:39:00"
Case 19
A = "4:18:00,11:32:00,14:51:00,17:30:00,18:39:00"
Case 20
A = "4:18:00,11:32:00,14:51:00,17:30:00,18:39:00"
Case 21
A = "4:17:00,11:30:00,14:50:00,17:27:00,18:36:00"
Case 22
A = "4:17:00,11:30:00,14:50:00,17:27:00,18:36:00"
Case 23
A = "4:17:00,11:30:00,14:50:00,17:27:00,18:36:00"
Case 24
A = "4:17:00,11:30:00,14:50:00,17:27:00,18:36:00"
Case 25
A = "4:17:00,11:30:00,14:50:00,17:27:00,18:36:00"
Case 26
A = "4:16:00,11:29:00,14:49:00,17:25:00,18:31:00"
Case 27
A = "4:16:00,11:29:00,14:49:00,17:25:00,18:31:00"
Case 28
A = "4:16:00,11:29:00,14:49:00,17:25:00,18:31:00"
Case 29
A = "4:16:00,11:29:00,14:49:00,17:25:00,18:31:00"
Case 30
A = "4:16:00,11:29:00,14:49:00,17:25:00,18:31:00"
End Select
Case 5
Select Case Day(waktu)
Case 1
A = "4:16:00,11:29:00,14:49:00,17:25:00,18:35:00"
Case 2
A = "4:16:00,11:29:00,14:49:00,17:24:00,18:34:00"
Case 3
A = "4:16:00,11:29:00,14:49:00,17:24:00,18:34:00"
Case 4
A = "4:16:00,11:29:00,14:49:00,17:24:00,18:34:00"
Case 5
A = "4:16:00,11:29:00,14:49:00,17:24:00,18:34:00"
Case 6
A = "4:16:00,11:29:00,14:49:00,17:24:00,18:34:00"
Case 7
A = "4:17:00,11:28:00,14:48:00,17:22:00,18:33:00"
Case 8
A = "4:17:00,11:28:00,14:48:00,17:22:00,18:33:00"
Case 9
A = "4:17:00,11:28:00,14:48:00,17:22:00,18:33:00"
Case 10
A = "4:17:00,11:28:00,14:48:00,17:22:00,18:33:00"
Case 11
A = "4:17:00,11:28:00,14:48:00,17:22:00,18:33:00"
Case 12
A = "4:17:00,11:28:00,14:48:00,17:21:00,18:33:00"
Case 13
A = "4:17:00,11:28:00,14:48:00,17:21:00,18:33:00"
Case 14
A = "4:17:00,11:28:00,14:48:00,17:21:00,18:33:00"
Case 15
A = "4:17:00,11:28:00,14:48:00,17:21:00,18:33:00"
Case 16
A = "4:17:00,11:28:00,14:48:00,17:21:00,18:33:00"
Case 17
A = "4:17:00,11:29:00,14:49:00,17:21:00,18:33:00"
Case 18
A = "4:17:00,11:29:00,14:49:00,17:21:00,18:33:00"
Case 19
A = "4:17:00,11:29:00,14:49:00,17:21:00,18:33:00"
Case 20
A = "4:17:00,11:29:00,14:49:00,17:21:00,18:33:00"
Case 21
A = "4:17:00,11:29:00,14:49:00,17:21:00,18:33:00"
Case 22
A = "4:17:00,11:29:00,14:49:00,17:21:00,18:33:00"
Case 23
A = "4:17:00,11:29:00,14:49:00,17:21:00,18:33:00"
Case 24
A = "4:17:00,11:29:00,14:49:00,17:21:00,18:33:00"
Case 25
A = "4:17:00,11:29:00,14:49:00,17:21:00,18:33:00"
Case 26
A = "4:17:00,11:29:00,14:49:00,17:21:00,18:33:00"
Case 27
A = "4:18:00,11:30:00,14:50:00,17:21:00,18:34:00"
Case 28
A = "4:18:00,11:30:00,14:50:00,17:21:00,18:34:00"
Case 29
A = "4:18:00,11:30:00,14:50:00,17:21:00,18:34:00"
Case 30
A = "4:18:00,11:30:00,14:50:00,17:21:00,18:34:00"
Case 31
A = "4:18:00,11:30:00,14:50:00,17:21:00,18:34:00"
End Select
Case 6
Select Case Day(waktu)
Case 1
A = "4:18:00,11:30:00,14:50:00,17:21:00,18:34:00"
Case 2
A = "4:19:00,11:30:00,14:50:00,17:21:00,18:34:00"
Case 3
A = "4:19:00,11:30:00,14:50:00,17:21:00,18:34:00"
Case 4
A = "4:19:00,11:30:00,14:50:00,17:21:00,18:34:00"
Case 5
A = "4:19:00,11:30:00,14:50:00,17:21:00,18:34:00"
Case 6
A = "4:19:00,11:30:00,14:50:00,17:21:00,18:34:00"
Case 7
A = "4:20:00,11:31:00,14:51:00,17:21:00,18:35:00"
Case 8
A = "4:20:00,11:31:00,14:51:00,17:21:00,18:35:00"
Case 9
A = "4:20:00,11:31:00,14:51:00,17:21:00,18:35:00"
Case 10
A = "4:20:00,11:31:00,14:51:00,17:21:00,18:35:00"
Case 11
A = "4:20:00,11:31:00,14:51:00,17:21:00,18:35:00"
Case 12
A = "4:21:00,11:32:00,14:52:00,17:22:00,18:36:00"
Case 13
A = "4:21:00,11:32:00,14:52:00,17:22:00,18:36:00"
Case 14
A = "4:21:00,11:32:00,14:52:00,17:22:00,18:36:00"
Case 15
A = "4:21:00,11:32:00,14:52:00,17:22:00,18:36:00"
Case 16
A = "4:21:00,11:32:00,14:52:00,17:22:00,18:36:00"
Case 17
A = "4:22:00,11:33:00,14:53:00,17:23:00,18:37:00"
Case 18
A = "4:22:00,11:33:00,14:53:00,17:23:00,18:37:00"
Case 19
A = "4:22:00,11:33:00,14:53:00,17:23:00,18:37:00"
Case 20
A = "4:22:00,11:33:00,14:53:00,17:23:00,18:37:00"
Case 21
A = "4:22:00,11:33:00,14:53:00,17:23:00,18:37:00"
Case 22
A = "4:23:00,11:34:00,14:54:00,17:24:00,18:38:00"
Case 23
A = "4:23:00,11:34:00,14:54:00,17:24:00,18:38:00"
Case 24
A = "4:23:00,11:34:00,14:54:00,17:24:00,18:38:00"
Case 25
A = "4:23:00,11:34:00,14:54:00,17:24:00,18:38:00"
Case 26
A = "4:23:00,11:34:00,14:54:00,17:24:00,18:38:00"
Case 27
A = "4:24:00,11:34:00,14:54:00,17:25:00,18:39:00"
Case 28
A = "4:24:00,11:34:00,14:54:00,17:25:00,18:39:00"
Case 29
A = "4:24:00,11:34:00,14:54:00,17:25:00,18:39:00"
Case 30
A = "4:24:00,11:34:00,14:54:00,17:25:00,18:39:00"
End Select
Case 7
Select Case Day(waktu)
Case 1
A = "4:24:00,11:35:00,14:54:00,17:25:00,18:39:00"
Case 2
A = "4:24:00,11:35:00,14:54:00,17:25:00,18:39:00"
Case 3
A = "4:25:00,11:36:00,14:58:00,17:26:00,18:40:00"
Case 4
A = "4:25:00,11:36:00,14:58:00,17:26:00,18:40:00"
Case 5
A = "4:25:00,11:36:00,14:58:00,17:26:00,18:40:00"
Case 6
A = "4:25:00,11:36:00,14:58:00,17:26:00,18:40:00"
Case 7
A = "4:25:00,11:36:00,14:58:00,17:26:00,18:40:00"
Case 8
A = "4:26:00,11:37:00,14:58:00,17:28:00,18:41:00"
Case 9
A = "4:26:00,11:37:00,14:58:00,17:28:00,18:41:00"
Case 10
A = "4:26:00,11:37:00,14:58:00,17:28:00,18:41:00"
Case 11
A = "4:26:00,11:37:00,14:58:00,17:28:00,18:41:00"
Case 12
A = "4:26:00,11:37:00,14:58:00,17:28:00,18:41:00"
Case 13
A = "4:26:00,11:38:00,14:58:00,17:29:00,18:42:00"
Case 14
A = "4:26:00,11:38:00,14:58:00,17:29:00,18:42:00"
Case 15
A = "4:26:00,11:38:00,14:58:00,17:29:00,18:42:00"
Case 16
A = "4:26:00,11:38:00,14:58:00,17:29:00,18:42:00"
Case 17
A = "4:26:00,11:38:00,14:58:00,17:29:00,18:42:00"
Case 18
A = "4:26:00,11:38:00,14:58:00,17:30:00,18:42:00"
Case 19
A = "4:26:00,11:38:00,14:58:00,17:30:00,18:42:00"
Case 20
A = "4:26:00,11:38:00,14:58:00,17:30:00,18:42:00"
Case 21
A = "4:26:00,11:38:00,14:58:00,17:30:00,18:42:00"
Case 22
A = "4:26:00,11:38:00,14:58:00,17:30:00,18:42:00"
Case 23
A = "4:26:00,11:38:00,14:58:00,17:31:00,18:43:00"
Case 24
A = "4:26:00,11:38:00,14:58:00,17:31:00,18:43:00"
Case 25
A = "4:26:00,11:38:00,14:58:00,17:31:00,18:43:00"
Case 26
A = "4:26:00,11:38:00,14:58:00,17:31:00,18:43:00"
Case 27
A = "4:26:00,11:38:00,14:58:00,17:31:00,18:43:00"
Case 28
A = "4:26:00,11:38:00,14:53:00,17:31:00,18:43:00"
Case 29
A = "4:26:00,11:38:00,14:53:00,17:31:00,18:43:00"
Case 30
A = "4:26:00,11:38:00,14:53:00,17:31:00,18:43:00"
Case 31
A = "4:26:00,11:38:00,14:53:00,17:31:00,18:43:00"
End Select
Case 8
Select Case Day(waktu)
Case 1
A = "4:26:00,11:38:00,14:58:00,17:32:00,18:43:00"
Case 2
A = "4:26:00,11:38:00,14:58:00,17:32:00,18:43:00"
Case 3
A = "4:26:00,11:38:00,14:58:00,17:32:00,18:43:00"
Case 4
A = "4:26:00,11:38:00,14:58:00,17:32:00,18:43:00"
Case 5
A = "4:26:00,11:38:00,14:58:00,17:32:00,18:43:00"
Case 6
A = "4:26:00,11:38:00,14:58:00,17:32:00,18:43:00"
Case 7
A = "4:26:00,11:38:00,14:58:00,17:32:00,18:43:00"
Case 8
A = "4:25:00,11:37:00,14:57:00,17:32:00,18:42:00"
Case 9
A = "4:25:00,11:37:00,14:57:00,17:32:00,18:42:00"
Case 10
A = "4:25:00,11:37:00,14:57:00,17:32:00,18:42:00"
Case 11
A = "4:25:00,11:37:00,14:57:00,17:32:00,18:42:00"
Case 12
A = "4:25:00,11:37:00,14:57:00,17:32:00,18:42:00"
Case 13
A = "4:23:00,11:36:00,14:55:00,17:32:00,18:42:00"
Case 14
A = "4:23:00,11:36:00,14:55:00,17:32:00,18:42:00"
Case 15
A = "4:23:00,11:36:00,14:55:00,17:32:00,18:42:00"
Case 16
A = "4:23:00,11:36:00,14:55:00,17:32:00,18:42:00"
Case 17
A = "4:23:00,11:36:00,14:55:00,17:32:00,18:42:00"
Case 18
A = "4:22:00,11:35:00,14:55:00,17:32:00,18:41:00"
Case 19
A = "4:22:00,11:35:00,14:55:00,17:32:00,18:41:00"
Case 20
A = "4:22:00,11:35:00,14:55:00,17:32:00,18:41:00"
Case 21
A = "4:22:00,11:35:00,14:55:00,17:32:00,18:41:00"
Case 22
A = "4:22:00,11:35:00,14:55:00,17:32:00,18:41:00"
Case 23
A = "4:20:00,11:34:00,14:53:00,17:32:00,18:41:00"
Case 24
A = "4:20:00,11:34:00,14:53:00,17:32:00,18:41:00"
Case 25
A = "4:20:00,11:34:00,14:53:00,17:32:00,18:41:00"
Case 26
A = "4:20:00,11:34:00,14:53:00,17:32:00,18:41:00"
Case 27
A = "4:20:00,11:34:00,14:53:00,17:32:00,18:41:00"
Case 28
A = "4:18:00,11:32:00,14:50:00,17:31:00,18:40:00"
Case 29
A = "4:18:00,11:32:00,14:50:00,17:31:00,18:40:00"
Case 30
A = "4:18:00,11:32:00,14:50:00,17:31:00,18:40:00"
Case 31
A = "4:18:00,11:32:00,14:50:00,17:31:00,18:40:00"
End Select
Case 9
Select Case Day(waktu)
Case 1
A = "4:18:00,11:32:00,14:50:00,17:31:00,18:40:00"
Case 2
A = "4:18:00,11:32:00,14:50:00,17:31:00,18:40:00"
Case 3
A = "4:16:00,11:31:00,14:47:00,17:31:00,18:39:00"
Case 4
A = "4:16:00,11:31:00,14:47:00,17:31:00,18:39:00"
Case 5
A = "4:16:00,11:31:00,14:47:00,17:31:00,18:39:00"
Case 6
A = "4:16:00,11:31:00,14:47:00,17:31:00,18:39:00"
Case 7
A = "4:16:00,11:31:00,14:47:00,17:31:00,18:39:00"
Case 8
A = "4:13:00,11:29:00,14:45:00,17:30:00,18:38:00"
Case 9
A = "4:13:00,11:29:00,14:45:00,17:30:00,18:38:00"
Case 10
A = "4:13:00,11:29:00,14:45:00,17:30:00,18:38:00"
Case 11
A = "4:13:00,11:29:00,14:45:00,17:30:00,18:38:00"
Case 12
A = "4:13:00,11:29:00,14:45:00,17:30:00,18:38:00"
Case 13
A = "4:11:00,11:27:00,14:42:00,17:29:00,18:38:00"
Case 14
A = "4:11:00,11:27:00,14:42:00,17:29:00,18:38:00"
Case 15
A = "4:11:00,11:27:00,14:42:00,17:29:00,18:38:00"
Case 16
A = "4:11:00,11:27:00,14:42:00,17:29:00,18:38:00"
Case 17
A = "4:11:00,11:27:00,14:42:00,17:29:00,18:38:00"
Case 18
A = "3:58:00,11:25:00,14:38:00,17:28:00,18:36:00"
Case 19
A = "3:58:00,11:25:00,14:38:00,17:28:00,18:36:00"
Case 20
A = "3:58:00,11:25:00,14:38:00,17:28:00,18:36:00"
Case 21
A = "3:58:00,11:25:00,14:38:00,17:28:00,18:36:00"
Case 22
A = "3:58:00,11:25:00,14:38:00,17:28:00,18:36:00"
Case 23
A = "3:55:00,11:24:00,14:24:00,17:27:00,18:36:00"
Case 24
A = "3:55:00,11:24:00,14:24:00,17:27:00,18:36:00"
Case 25
A = "3:55:00,11:24:00,14:24:00,17:27:00,18:36:00"
Case 26
A = "3:55:00,11:24:00,14:24:00,17:27:00,18:36:00"
Case 27
A = "3:55:00,11:24:00,14:24:00,17:27:00,18:36:00"
Case 28
A = "3:53:00,11:22:00,14:31:00,17:27:00,18:36:00"
Case 29
A = "3:53:00,11:22:00,14:31:00,17:27:00,18:36:00"
Case 30
A = "3:53:00,11:22:00,14:31:00,17:27:00,18:36:00"
End Select
Case 10
Select Case Day(waktu)
Case 1
A = "4:03:00,11:22:00,14:31:00,17:27:00,18:36:00"
Case 2
A = "4:03:00,11:22:00,14:31:00,17:27:00,18:36:00"
Case 3
A = "4:03:00,11:22:00,14:31:00,17:27:00,18:36:00"
Case 4
A = "3:59:00,11:20:00,14:26:00,17:26:00,18:35:00"
Case 5
A = "3:59:00,11:20:00,14:26:00,17:26:00,18:35:00"
Case 6
A = "3:59:00,11:20:00,14:26:00,17:26:00,18:35:00"
Case 7
A = "3:59:00,11:20:00,14:26:00,17:26:00,18:35:00"
Case 8
A = "3:59:00,11:20:00,14:26:00,17:26:00,18:35:00"
Case 9
A = "3:57:00,11:19:00,14:22:00,17:26:00,18:35:00"
Case 10
A = "3:57:00,11:19:00,14:22:00,17:26:00,18:35:00"
Case 11
A = "3:57:00,11:19:00,14:22:00,17:26:00,18:35:00"
Case 12
A = "3:57:00,11:19:00,14:22:00,17:26:00,18:35:00"
Case 13
A = "3:57:00,11:19:00,14:22:00,17:26:00,18:35:00"
Case 14
A = "3:55:00,11:18:00,14:23:00,17:26:00,18:35:00"
Case 15
A = "3:55:00,11:18:00,14:23:00,17:26:00,18:35:00"
Case 16
A = "3:55:00,11:18:00,14:23:00,17:26:00,18:35:00"
Case 17
A = "3:55:00,11:18:00,14:23:00,17:26:00,18:35:00"
Case 18
A = "3:55:00,11:18:00,14:23:00,17:26:00,18:35:00"
Case 19
A = "3:53:00,11:17:00,14:25:00,17:26:00,18:35:00"
Case 20
A = "3:53:00,11:17:00,14:25:00,17:26:00,18:35:00"
Case 21
A = "3:53:00,11:17:00,14:25:00,17:26:00,18:35:00"
Case 22
A = "3:53:00,11:17:00,14:25:00,17:26:00,18:35:00"
Case 23
A = "3:53:00,11:17:00,14:25:00,17:26:00,18:35:00"
Case 24
A = "3:49:00,11:16:00,14:28:00,17:26:00,18:35:00"
Case 25
A = "3:49:00,11:16:00,14:28:00,17:26:00,18:35:00"
Case 26
A = "3:49:00,11:16:00,14:28:00,17:26:00,18:35:00"
Case 27
A = "3:49:00,11:16:00,14:28:00,17:26:00,18:35:00"
Case 28
A = "3:49:00,11:16:00,14:28:00,17:26:00,18:35:00"
Case 29
A = "3:47:00,11:16:00,14:30:00,17:27:00,18:37:00"
Case 30
A = "3:47:00,11:16:00,14:30:00,17:27:00,18:37:00"
Case 31
A = "3:47:00,11:16:00,14:30:00,17:27:00,18:37:00"
End Select
Case 11
Select Case Day(waktu)
Case 1
A = "3:47:00,11:16:00,14:30:00,17:27:00,18:37:00"
Case 2
A = "3:47:00,11:16:00,14:30:00,17:27:00,18:37:00"
Case 3
A = "3:46:00,11:16:00,14:34:00,17:28:00,18:38:00"
Case 4
A = "3:46:00,11:16:00,14:34:00,17:28:00,18:38:00"
Case 5
A = "3:46:00,11:16:00,14:34:00,17:28:00,18:38:00"
Case 6
A = "3:46:00,11:16:00,14:34:00,17:28:00,18:38:00"
Case 7
A = "3:46:00,11:16:00,14:34:00,17:28:00,18:38:00"
Case 8
A = "3:45:00,11:17:00,14:35:00,17:30:00,18:43:00"
Case 9
A = "3:45:00,11:17:00,14:35:00,17:30:00,18:43:00"
Case 10
A = "3:45:00,11:17:00,14:35:00,17:30:00,18:43:00"
Case 11
A = "3:45:00,11:17:00,14:35:00,17:30:00,18:43:00"
Case 12
A = "3:45:00,11:17:00,14:35:00,17:30:00,18:43:00"
Case 13
A = "3:44:00,11:17:00,14:37:00,17:31:00,18:44:00"
Case 14
A = "3:44:00,11:17:00,14:37:00,17:31:00,18:44:00"
Case 15
A = "3:44:00,11:17:00,14:37:00,17:31:00,18:44:00"
Case 16
A = "3:44:00,11:17:00,14:37:00,17:31:00,18:44:00"
Case 17
A = "3:44:00,11:17:00,14:37:00,17:31:00,18:44:00"
Case 18
A = "3:44:00,11:16:00,14:40:00,17:33:00,18:46:00"
Case 19
A = "3:44:00,11:16:00,14:40:00,17:33:00,18:46:00"
Case 20
A = "3:44:00,11:16:00,14:40:00,17:33:00,18:46:00"
Case 21
A = "3:44:00,11:16:00,14:40:00,17:33:00,18:46:00"
Case 22
A = "3:44:00,11:16:00,14:40:00,17:33:00,18:46:00"
Case 23
A = "3:44:00,11:20:00,14:43:00,17:35:00,18:49:00"
Case 24
A = "3:44:00,11:20:00,14:43:00,17:35:00,18:49:00"
Case 25
A = "3:44:00,11:20:00,14:43:00,17:35:00,18:49:00"
Case 26
A = "3:44:00,11:20:00,14:43:00,17:35:00,18:49:00"
Case 27
A = "3:44:00,11:20:00,14:43:00,17:35:00,18:49:00"
Case 28
A = "3:44:00,11:21:00,14:45:00,17:37:00,18:50:00"
Case 29
A = "3:44:00,11:21:00,14:45:00,17:37:00,18:50:00"
Case 30
A = "3:44:00,11:21:00,14:45:00,17:37:00,18:50:00"
End Select
Case 12
Select Case Day(waktu)
Case 1
A = "3:44:00,11:21:00,14:45:00,17:37:00,18:51:00"
Case 2
A = "3:45:00,11:23:00,14:48:00,17:39:00,18:54:00"
Case 3
A = "3:45:00,11:23:00,14:48:00,17:39:00,18:54:00"
Case 4
A = "3:45:00,11:23:00,14:48:00,17:39:00,18:54:00"
Case 5
A = "3:45:00,11:23:00,14:48:00,17:39:00,18:54:00"
Case 6
A = "3:45:00,11:23:00,14:48:00,17:39:00,18:54:00"
Case 7
A = "3:46:00,11:25:00,14:50:00,17:41:00,18:57:00"
Case 8
A = "3:46:00,11:25:00,14:50:00,17:41:00,18:57:00"
Case 9
A = "3:46:00,11:25:00,14:50:00,17:41:00,18:57:00"
Case 10
A = "3:46:00,11:25:00,14:50:00,17:41:00,18:57:00"
Case 11
A = "3:46:00,11:25:00,14:50:00,17:41:00,18:57:00"
Case 12
A = "3:47:00,11:27:00,14:53:00,17:44:00,18:59:00"
Case 13
A = "3:47:00,11:27:00,14:53:00,17:44:00,18:59:00"
Case 14
A = "3:47:00,11:27:00,14:53:00,17:44:00,18:59:00"
Case 15
A = "3:47:00,11:27:00,14:53:00,17:44:00,18:59:00"
Case 16
A = "3:47:00,11:27:00,14:53:00,17:44:00,18:59:00"
Case 17
A = "3:48:00,11:29:00,14:55:00,17:46:00,19:01:00"
Case 18
A = "3:48:00,11:29:00,14:55:00,17:46:00,19:01:00"
Case 19
A = "3:48:00,11:29:00,14:55:00,17:46:00,19:01:00"
Case 20
A = "3:48:00,11:29:00,14:55:00,17:46:00,19:01:00"
Case 21
A = "3:48:00,11:29:00,14:55:00,17:46:00,19:01:00"
Case 22
A = "3:51:00,11:32:00,14:58:00,17:49:00,19:04:00"
Case 23
A = "3:51:00,11:32:00,14:58:00,17:49:00,19:04:00"
Case 24
A = "3:51:00,11:32:00,14:58:00,17:49:00,19:04:00"
Case 25
A = "3:51:00,11:32:00,14:58:00,17:49:00,19:04:00"
Case 26
A = "3:51:00,11:32:00,14:58:00,17:49:00,19:04:00"
Case 27
A = "3:53:00,11:34:00,15:00:00,17:51:00,19:05:00"
Case 28
A = "3:53:00,11:34:00,15:00:00,17:51:00,19:05:00"
Case 29
A = "3:53:00,11:34:00,15:00:00,17:51:00,19:05:00"
Case 30
A = "3:53:00,11:34:00,15:00:00,17:51:00,19:05:00"
Case 31
A = "3:53:00,11:34:00,15:00:00,17:51:00,19:05:00"
End Select
End Select
Dim C, D, E, F, G, H, J
J = Selisih + 10
C = Split(Trim(A), ",")
D = Split(Trim(C(0)), ":")
E = Split(Trim(C(1)), ":")
F = Split(Trim(C(2)), ":")
G = Split(Trim(C(3)), ":")
H = Split(Trim(C(4)), ":")
P = D(0) * 60 + D(1) + J
Q = E(0) * 60 + E(1) + J
R = F(0) * 60 + F(1) + J
S = G(0) * 60 + G(1) + J
T = H(0) * 60 + H(1) + J
JamP = Int(P / 60)
If JamP < 10 Then JamP = "0" & JamP
JamQ = Int(Q / 60)
If JamQ < 10 Then JamQ = "0" & JamP
JamR = Int(R / 60)
If JamR < 10 Then JamR = "0" & JamP
JamS = Int(S / 60)
If JamS < 10 Then JamS = "0" & JamP
JamT = Int(T / 60)
If JamT < 10 Then JamT = "0" & JamP
MenitP = P - JamP * 60
If MenitP < 10 Then MenitP = "0" & MenitP
MenitQ = Q - JamQ * 60
If MenitQ < 10 Then MenitQ = "0" & MenitQ
MenitR = R - JamR * 60
If MenitR < 10 Then MenitR = "0" & MenitR
MenitS = S - JamS * 60
If MenitS < 10 Then MenitS = "0" & MenitS
MenitT = T - JamT * 60
If MenitT < 10 Then MenitT = "0" & MenitT
namasholat.Subuh = JamP & ":" & MenitP
namasholat.Dhuhur = JamQ & ":" & MenitQ
namasholat.Asar = JamR & ":" & MenitR
namasholat.Magrib = JamS & ":" & MenitS
namasholat.Isyak = JamT & ":" & MenitT
End Sub
2 Comments
