View original (French)

[VBA] Time in a textBox

Solved
Noodlesnood -  
Hello,

Here is my problem: I would like to transpose into a textBox my number of hours from my cell C96, but it gives me a decimal number with this part of the code:

UsfNew2.TextBox10.Value = Feuil12.Range("C96").Value

Should I convert it to a string? How should I do that?

Nood
Configuration: Windows XP Firefox 2.0.0.1

8 answers

  1.  blux Moderator
    Hi,

    it's normal, EXCEL saves time as multiples of days:

    12:00 -> 0.5
    01:00 -> 0.041666667
    24:00 -> 1

    So you need to use the functions that return hours, minutes, and seconds from a serial number: 
    UsfNew2.TextBox10.Value = HOUR(Feuil12.Range("C96").Value) & ":" & MINUTE(Feuil12.Range("C96").Value) & ":" & SECOND(Feuil12.Range("C96").Value)

    Would that work?

    --
    See you, Blux 
    "The idiots, they dare everything. That's even how you recognize them"
    0
    1. Noodlesnood Author
      Hi blux,

      I tried your method and I have an error message 'Sub or Function not defined' (cursor on TIME). Thanks for your help ; )

      Nood
      0
      1. Noodlesnood Author
        Up

        I still can't transfer the time into the TextBox. Do I need to declare the functions HOUR, MINUTE, and SECOND before using them? How?
        0
        1. blux Moderator
          Sorry, I didn't realize it was VBA...

          So it's in English: hour, minute, second...

          --
          See you, Blux 
           "You can’t underestimate the stupidity of a good chunk of the population."
          0
          2. Noodlesnood Author
            I should have thought of that: D ... Anyway, thank you blux, you are a great help for me as a beginner; ).
            0
            1. Daranc
              The following instruction:
              TextBox1.Value = Format(Range("a1").Value, "hh:mm:ss AMPM")
              returns the value of cell A1 in the format hour minute seconds PM or AM
              Daranc
              0
              1. Daranc
                In your case
                UsfNew2.TextBox10.Value = format(Feuil12.Range("C96").Value,"hh:mm:ss AMPM")
                Daranc
                0
                1. Lorenzozo
                  Hello,

                  I'm trying to use the codes below, but where should I position this code sequence? In the main procedure that uses this textbox or in the procedure that manages the opening of the dialog box where the textbox is located???? Help please.

                  Thank you in advance

                  Lorenzozo
                  0