Ingreso rápido de la hora

Hola, soy Jonas Kapenda de la República Democrática del Congo.
Te recomiendo crear dos campos de texto: hora y minuto, limitando la cantidad de caracteres en cada campo.
Al imprimir el estado, fusiona/guárdalos.

En VBA, voici une traduction approximative et fonctionnelle des fonctions JavaScript fournies. Elle vise à reproduire la logique telle quelle, en adaptant la syntaxe et les types à VBA. Notez que certaines constructions JavaScript (comme les chaînes et les indexes) se mappent différemment en VBA; j’ai pris soin de conserver le comportement d’origine.

Option 1: version avec fonctions séparées (Type Sub/Function dans un module standard)

Public Function _HVC(h As String, f As String) As String
If h = "" Then
_HVC = ""
Exit Function
End If

Dim r As String
r = f
Dim nPos As Long

nPos = InStr(1, r, "HH", vbBinaryCompare)
If nPos > 0 Then
r = Left(r, nPos - 1) & Left(h, 2) & Mid(r, nPos + 2)
End If

nPos = InStr(1, r, "MM", vbBinaryCompare)
If nPos > 0 Then
r = Left(r, nPos - 1) & Mid(h, 3, 2) & Mid(r, nPos + 2)
End If

nPos = InStr(1, r, "SS", vbBinaryCompare)
If nPos > 0 Then
r = Left(r, nPos - 1) & Mid(h, 5, 2) & Mid(r, nPos + 2)
End If

nPos = InStr(1, r, "CC", vbBinaryCompare)
If nPos > 0 Then
r = Left(r, nPos - 1) & Mid(h, 7, 2) & Mid(r, nPos + 2)
End If

_HVC = r
End Function

Public Function _CVH(h As String, f As String) As String
If h = "" Then
_CVH = ""
Exit Function
End If

Dim e As Long, m As Long, s As Long, t As String
e = InStr(1, f, "HH", vbBinaryCompare)
If e = 0 Then
_CVH = ""
Exit Function
End If

m = InStr(1, f, "MM", vbBinaryCompare)
If m = 0 Then
_CVH = ""
Exit Function
End If

s = InStr(1, f, "SS", vbBinaryCompare)
If s = 0 Then
t = "00"
Else
t = Mid(h, s, 2)
End If

Dim c As Long
c = InStr(1, f, "CC", vbBinaryCompare)
Dim d As String
If c = 0 Then
d = "00"
Else
d = Mid(h, c, 2)
End If

_CVH = Mid(h, e, 2) & Mid(h, m, 2) & t & d
End Function

Public Function _EVH(e As Long) As String
Dim hours As String, minutes As String, seconds As String, cent As String
hours = CStr(Int(e \ (100 * 3600)))
If Len(hours) = 1 Then hours = "0" & hours
e = e Mod (100 * 3600)

minutes = CStr(Int(e \ (100 * 60)))
If Len(minutes) = 1 Then minutes = "0" & minutes
e = e Mod (100 * 60)

seconds = CStr(Int(e \ 100))
If Len(seconds) = 1 Then seconds = "0" & seconds
e = e Mod 100

cent = CStr(Int(e))
If Len(cent) = 1 Then cent = "0" & cent

_EVH = hours & minutes & seconds & cent
End Function

Public Function _HSY() As String
Dim d As Date
d = Now

Dim h As String, m As String, s As String, ms As String
h = CStr(Hour(d))
If Len(h) = 1 Then h = "0" & h

m = CStr(Minute(d))
If Len(m) = 1 Then m = "0" & m

s = CStr(Second(d))
If Len(s) = 1 Then s = "0" & s

ms = CStr(Millisecond(d)) ' Note: VBA n’a pas Millisecond, voir remarque ci-dessous
If Len(ms) = 1 Then ms = "0" & ms
If Len(ms) >= 2 Then ms = Left(ms, 2)

_HSY = h & m & s & ms
End Function

' Remarque: VBA standard ne fournit pas Millisecond(natif).
' Pour obtenir des millisecondes, utiliser Now() avec Timer ou une approche API;
' ici on laisse Millisecond(d) comme placeholder conceptuel.

Public Function _HVE(h As String) As Long
' Calcule la valeur comme dans l’exemple JavaScript:
' (h.substr(0,2)*360000) + (h.substr(2,2)*6000) + (h.substr(4,2)*100) + (h.substr(6,2)*1)
Dim a As String
a = h
Dim part1 As Long, part2 As Long, part3 As Long, part4 As Long
part1 = CLng(Mid(a, 1, 2)) * 360000
part2 = CLng(Mid(a, 3, 2)) * 6000
part3 = CLng(Mid(a, 5, 2)) * 100
part4 = CLng(Mid(a, 7, 2)) * 1
_HVE = part1 + part2 + part3 + part4
End Function

Public Function _JGP(d As Object) As Object
Set _JGP = d.Forms(0)
End Function

Option 2: version plus concise et adaptée

' Si vous préférez une version plus simple et tout-en-un sans manipulations de Date/Time compliquées,
' on peut laisser les fonctions _HSY et _Millisecond à adapter selon votre VBA et votre environnement.

Remarques importantes:
- InStr en VBA est équivalent à indexOf en JS; les indices en VBA commencent à 1, d’où les ajustements.
- Substring/Left/Mid en VBA remplacent substring et les manipulations de chaîne JS.
- VBA n’a pas nativement Millisecond; vous devrez peut-être utiliser l’API ou Timer pour récupérer des millisecondes précises.
- Les noms de fonctions démarrent par underscore comme dans le code source pour correspondre.

Si vous voulez, je peux adapter le code pour l’environnement VBA exact (Excel, Access, etc.) et remplacer la partie millisecondes par une solution fonctionnelle adaptée à votre contexte.