Imposer un format à une Date et une Heure saisie dans un TexBOX

Version imprimable

20/05/2019, 12h56
Lochtmans Luc

Imposer un format à une Date et une Heure saisie dans un TexBOX

Citation:

Envoyé par DelphiManiac

La fonction à utiliser est CDbl.

? CDbl ("12.6")

Par contre le séparateur décimal reconnu est fonction du paramétrage régional du panneau de configuration. En temps normal sur un système francais c'est la virgule par défaut.

Si le séparateur du champ texte que tu converti ne correspond pas au paramétrage du panneau de configuration, il faut dans ces cas remplacé le séparateur par le caractères adéquat.

? replace ("12.6", ".", ",")

Cette fonction remplace le "." par une "," par exemple.

Bonjour,
Vous lisant si avant, voici une info qui me sera certainement utile.
Toutefois gros débutant en Visual Basic 2010 Express, je suis désolé d'intercepter ainsi votre réponse.
Mais il me serais agréable si vous pouviez m'aider un rien dans ma tentative de réécrire mon Programme FOX Pro 2.6 qui ne tourne plus sous W10 en Visual Basic.
Je précise qu'en premier lieu j'essaye de réaliser cette transcription par moi-même, bien qu'il m’apparaît de plus en plus d'avoir le recours à un programmeur,
ceci bien entendu après avoir préparer toute les parties graphiques (Ecran Menu, Ecran saisie etc.) du programme.
Ceci sans aucune conditions restrictive, si le programme plait il est et sera libre de droit.

BREF voici en fait ma demande.
Dans un ecran de saisie de diverses données j'ai 2 TEXBOX la première sert à introduire la date du jour ( en fonction du jour de mon Observation d'oiseaux )
la seconde concerne l’heure de l'observation
Actuellement lorsque je lance mon application si je saisi la date ce ce jour courant la saisie ce fait sous cette 20052019 pour la date et 1030 pour l'heure.
Comment arriver à d'une part afficher dans ces deux TEXBOXb " --/--/---- " pour la date à introduire et pour l'heure " --:-- " et que au fil de la saisie le saut du Curseur soit automatique
Voilà j'espère que vous avez bien saisi ma requête et Merci pour votre Réponse
Lochtmans Luc (77 ans )
21/05/2019, 09h51
wallace1

Bonjour,

Tu peux utiliser le contrôle MaskedTextBox (l info est en C# mais le principe est le même pour le contrôle de ta boite à outils) :

https://www.c-sharpcorner.com/Upload...ox-in-C-Sharp/

Bonne observation et A+ ;)

Bonjour,
voici un exemple dans textbox1.text , vous pouvez entrer la date et dans textbox2.text, vous entrer l'heure.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Public Class Form1
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If (TextBox1.Text.Length = 2 Or TextBox1.Text.Length = 5) Then
            TextBox1.Text = TextBox1.Text + "/"
            TextBox1.SelectionStart = TextBox1.Text.Length
        End If
        If (TextBox1.Text.Length = 8) Then
            Dim str As String = TextBox1.Text
            Dim split_date As String() = str.Split("/")
            Dim tDate As DateTime = New DateTime(Convert.ToInt32(split_date(2)), _
                                                      Convert.ToInt32(split_date(1)), _
                                                      Convert.ToInt32(split_date(0)))
            TextBox1.Text = tDate.ToString("dd/MM/yyyy")
        End If
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If (TextBox2.Text.Length = 2) Then
            TextBox2.Text = TextBox2.Text + ":"
            TextBox2.SelectionStart = TextBox2.Text.Length
        End If
        If (TextBox2.Text.Length = 5) Then
            Dim str As String = TextBox2.Text
            Dim split_date As String() = str.Split(":")
            Dim tDate As DateTime = New DateTime(Convert.ToInt32(split_date(1)), _
                                                      Convert.ToInt32(split_date(0)))
            TextBox2.Text = tDate.ToString("h:mm")
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.MaxLength = 10
        TextBox2.MaxLength = 5
    End Sub
End Class

j’espère que j'ai bien répondu a votre question!