Getal afronden in Textbox

[Spongebop]

Wie kan mij even helpen.
Ik zit vast met het volgende

Ik heb een rekensom gemaakt met datums.
De uitkomst wil ik graag in een textbox.
Nu komt het volgende in de textbox 12,8976347
Ik wil graag dat hij dit afrond en geen getallen toont achter de komma.

Zie voorbeeldje

Alvast bedankt

 

[edmoor]

Doe het eens zo:

TextBox1 = Round(Sheets("blad1").Range("c1"))

Overigens zie ik in je vooorbeeld niet 12,8976347 maar 365,164495717596
In de formule in C1 kan je SOM achterwege laten.
Als je in A1 niet =NU() maar =VANDAAG() gebruikt hoef je helemaal niet af te ronden.

 

[JEC.]

Bvb

Private Sub UserForm_Initialize()
TextBox1.Value = Round(Sheets("Blad1").Range("c1").Value, 0)
End Sub

 

[Spongebop]

Beste Edmoor en Jec,

Ik krijg het niet voor elkaar.
Hoe krijg ik dat voor elkaar in het volgende?

    Sheets("temp2").Select    gev = Application.Match(Range("A20"), Sheets("Koppel1").Columns("A:A"), 0)
    If IsNumeric(gev) Then TextBox57.Text = Sheets("Koppel1").Cells(gev, 18).Value & (" ") & ("dagen oud.")

Ik heb dit geprobeerd maar dat werkt niet

Sheets("temp2").Select    gev = Application.Match(Range("A20"), Sheets("Koppel1").Columns("A:A"), 0)
    If IsNumeric(gev) Then TextBox57.Text = Round (Sheets("Koppel1").Cells(gev, 18).Value, 0 & (" ") & ("dagen oud.")

Ps. Edmoor, je heb gelijk met het getal, was een voorbeeldje

 

[edmoor]

Wijzig de functie in A1 naar wat ik zei in #2.

 

[Spongebop]

Om het datum om te slaan automatisch gebruik ik

Array(Format(Date, "dd-mm-yyyy"))

Wat je voorstelt in 2# komt de tijdstip erachter en dat wil ik niet.

 

[edmoor]

Nee, andersom.
Je gebruikt nu =NU() en dat geeft de datum en tijd.
Voor de datum zonder tijd moet je =VANDAAG gebruiken.

 

[edmoor]

Om het datum om te slaan automatisch gebruik ik

Array(Format(Date, "dd-mm-yyyy"))

En dit is voldoende:
Clng(Date)

Naar een cel die is opgemaakt als datum.

 

[Spongebop]

O, dat wist ik niet.
Deze is handig om te weten.

En ik was stom bezig, wat je voorstelde in #2 werkt wel.
Ik had te maken met drie datums waarvan eentje met nu() is gevuld.
Deze heb ik aangepast en het werkt.

Heel erg bedankt :thumb:

 

[snb]

de datum zonder het tijdsti[p

Sub M_snb()
  textbox1 = Date \ 1
  textbox1 = Now \ 1
  textbox1 = 1 * Date
  textbox1 = Date ^ 1
  textbox1 = CLng(Date)
  textbox1 = CDec(date)
End Sub