Viết bởi: thisplus 02-07-11, 04:50 PM Chuyên mục: Query - Bài trả lời (7) |
Viết bởi: Noname 02-07-11, 11:37 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (7) |
Dim sogiay As Long
Dim H1 As Integer
Dim T1 As Integer
Dim S1 As Integer
Private Sub cmdBatDau_Click()
sogiay = txtThoigian * 60
Me.TimerInterval = 1000
End Sub
Private Sub Form_Timer()
txtDongho = dongho(sogiay)
sogiay = sogiay - 1
If sogiay < 0 Then
Me.TimerInterval = 0
End If
End Sub
Function dongho(giay As Long) As String
H1 = Int(giay / 3600)
T1 = Int((giay Mod 3600) / 60)
S1 = giay Mod 60
dongho = Format(H1, "00") & ":" & Format(T1, "00") & ":" & Format(S1, "00")
End Function
Viết bởi: chauho 01-07-11, 09:05 PM Chuyên mục: Query - Bài trả lời (2) |
Viết bởi: Nguyendinhthanh 01-07-11, 01:11 AM Chuyên mục: Forms - Không có hồi đáp |
Viết bởi: minhtam76 30-06-11, 04:11 PM Chuyên mục: Forms - Bài trả lời (3) |
Chủ đề Mới nhất |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: tranthanhan1962-2 Giờ trước- » Bài trả lời: 31- » Lượt xem: 20,532 |
[Hỏi] Kết nối dữ liệu bằn... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: Seo-Ul-Vah-3 Giờ trước- » Bài trả lời: 53- » Lượt xem: 33,535 |
tradingview -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: RobertFut-4 Giờ trước- » Bài trả lời: 0- » Lượt xem: 7 |
kraken сайт зеркала -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: RobertNer-10 Giờ trước- » Bài trả lời: 0- » Lượt xem: 6 |
postegro -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: MiltonTer-Hôm nay, 02:16 AM- » Bài trả lời: 0- » Lượt xem: 7 |
Làm Video hướng dẫn lập t... -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: bazabkaki-Hôm qua, 10:26 AM- » Bài trả lời: 4- » Lượt xem: 2,671 |
Biến 50GB từ Box.net thàn... -Chuyên mục: Tin Học Văn Phòng-Đăng bởi lần cuối: Seo-Ul-Vah-Hôm qua, 03:38 AM- » Bài trả lời: 1- » Lượt xem: 2,101 |
Windows 10 ISO Full Direc... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SuperMan2543a-26-03-24, 11:55 PM- » Bài trả lời: 0- » Lượt xem: 9 |
Утепление фасадов в москв... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: ppu-pr_dier-26-03-24, 11:35 PM- » Bài trả lời: 0- » Lượt xem: 4 |
Advertising offer to the ... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: Noname-26-03-24, 08:26 AM- » Bài trả lời: 1- » Lượt xem: 25 |
Diễn đàn Thống kê |
» Thành viên: 4,343 » Thành viên mới nhất: RobertFut » Các chủ đề diễn đàn: 9,858 » Các bài viết diễn: 48,398 Thống kê đầy đủ |