Poser une question

Re: 2 champs text

Salut,

Alors il y a des différence significative en un système français et anglais. N'ayabt accès qu'à un système anglais il peut y avoir autre chose, enfin je vais t'en donner le plus possible.

1. Tu dois t'assurer que l'heurre est valide. 27:03 provoquera une erreur.

if isDate(sHeures&":"sMinutes) then
' c'est ok!
end if

2. Il y a deux format, internationnal et anglais (Short ou long). Tu peux le faire directement :

dHeuresMinutes = FormatDateTime(sHeures&":"&sMinute)

Ou en précisant

' VBLongTime = 3
' VBShortTime = 4
dHeuresMinutes = FormatDateTime(sHeures&":"&sMinute,VBShortTime)

3. Le code complet:

<%
Dim dHeuresMinutes, sHeures, sMinute

dHeuresMinutes = "Null"
sHeures = "7" ' ou request.form("heures")
sMinute = "5" ' ou request.form("minutes")

if isDate(sHeures&":"&sMinute) then
dHeuresMinutes = FormatDateTime(sHeures&":"&sMinute,VBShortTime)
end if

response.write dHeuresMinutes
%>

Tu as maintenant un format d'heure conforme.

4. MAintenant ça ne suffit peut être pas. Si tu utilise un INSERT, assure toi de baliser la valeur avec le symbole "#", exemple :

... Value("#"&dHeuresMinutes&"#"...

5. Il arrive que tu doivent donner une date 0, l'heure seul ne suffit pas. Dans ce cas il y a plusieurs possibilité selon le type de base, l'utilisation de "storedProcedure" etc.

1. Essai:

' Date zéro pour la plupart des systèmes.
sDate = "1899-12-30 "

if isDate(sDate&sHeures&":"&sMinute) then
dHeuresMinutes = FormatDateTime(sDate&sHeures&":"&sMinute,VBShortTime)
end if

Ciao
Oznog

Réponses

Aucune réponse à ce message...