Talformat 4 til 04

Function 2tal(intTal)
  If Len(intTal) = 1 Then
      2tal = intTal
  Else
      2tal = "0" & intTal
  End If
End Function


Response.Write(2Tal(1))

//>Rune

Tak.
Er der virkelig ikke en vb funktion, der kan klare det?
Jeg har rettet lidt så det virker, funktionen kan ikke hedde 2tal:

Function tal(intTal)
  If Len(intTal) > 1 Then
      tal = intTal
  Else
      tal = "0" & intTal
  End If
End Function

Hehe ok :)

Thx 4 Poinz

//>Rune

eller bare:

tal = Right("0"&tal,2)

Ja, det er da nemmere, ærgerligt du stod så sent op i dag

Eagleeye
Jeg er lige med på en lurer :-)

tal = Right("0"&tal,2)
Det ser snedigt ud, men hvad hvis tallet er trecifret fx. 123 vil jo så fremstå som 23 ikke sandt?
Er der ikke mere korrekt at checke om tallet er under 10 og kun i dette tilfælde tilføje 0 ?

bugger når man sætte 0'er foran er det fordi man ønsker at alle tal har samme antal ciffer, og ikke nogle med 3 og andre 2. Så linjen skal naturligvis rettes til ens behov.

Hvis tallet er 3-cifret kan det ikke andet end gå galt. Og dog. I det her tilfælde tjekkes det efterfølgende, om det er et gyldigt dag eller måned format, så den 123/05-2004 ville ikke virke. Det er lige hvad der vil ske med det første eksempel, så det er i grunden meget godt, det er på den måde.

Brug det som du vil, men alt efter hvor grundtallet kommer fra kan det ikke være 3 cifferet tal.

Men det bedste er at validere før behandling og ikke omvendt.