Format d'heure US _ français [Résolu]

[TeoSitran]

Bonjour à tous,

J'ai un problème de format d'heure

Le calcul pour le poste du matin et de l'après-midi fonctionne bien mais pas celui de nuit

En effet le champ date /heure affiche par exemple 14/11/2011 20:15 mais il n'est pas reconnu et impossible de mettre les limites 20:00:00 car automatiquement le code réécrit 08:00:00 PM

Ci-joint les lignes de code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
'Calcul du poste actuel
    If Me.HeureSa > #4:00:00 AM# And Me.HeureSa < #12:00:00 PM# Then
        VarPoste = "M"
        VarPte = 1
        VarHeureMini = #4:00:00 AM#
    End If
 
    If Me.HeureSa > #12:00:00 PM# And Me.HeureSa < #8:00:00 PM# Then
        VarPoste = "AM"
        VarPte = 2
        VarHeureMini = #12:00:00 PM#
    End If
 
    If Me.HeureSa > #8:00:00 PM# And Me.HeureSa < #4:00:00 AM# Then
        VarPoste = "N"
        VarPte = 3
        VarHeureMini = #8:00:00 PM#
    End If

Comment faire pour que les horaires de 20:00 à 04h00 soient reconnus ?

Par avance merci à tous

Cordialement

[stigma]

Le format US est sur 12H
Le format FR est sur 24H
Tu auras besoin d'écrire une petite fonction de conversion par exemple.

[TeoSitran]

Bonjour

Merci pour la réponse mais je suis un peu sec
pour réaliser cette fonction

Par avance merci

Cordialement

[TeoSitran]

Bonjour

J'ai résolu le problème en extrayant la valeur décimale :

Dim HeureUS as string
HeureUS = Now - Int(Now)

J'ai fait le calcul du poste sur des chiffres et non plus des heures

Merci à tous