heonuong00
Thành viên mới
- Tham gia
- 20/5/20
- Bài viết
- 5
- Được thích
- 1
Mình có 1 ô là thời gian là 07h50 muốn chuyển thành 07 giờ 50 phút
tìm trên mạng có cái code này nhưng nó lại hiện là 7 giờ 50 phút
Function HGio(Dulieu As Range)
Dim Gio As String
Dim Phut As String
If Dulieu > 100 Then
Phut = Right(Dulieu, 2)
Gio = Left(Dulieu, Len(Dulieu) - 2)
HGio = Gio & " gi" & ChrW(7901) & " " & Phut & " phút"
Else
HGio = "..... gi" & ChrW(7901) & "..... phút"
End If
End Function
Bạn nào chỉnh lại giúp
tìm trên mạng có cái code này nhưng nó lại hiện là 7 giờ 50 phút
Function HGio(Dulieu As Range)
Dim Gio As String
Dim Phut As String
If Dulieu > 100 Then
Phut = Right(Dulieu, 2)
Gio = Left(Dulieu, Len(Dulieu) - 2)
HGio = Gio & " gi" & ChrW(7901) & " " & Phut & " phút"
Else
HGio = "..... gi" & ChrW(7901) & "..... phút"
End If
End Function
Bạn nào chỉnh lại giúp