Hvis dag og måned < 10, sæt da 0 foran

Noget i denne stil:

Dim vDayofemployment
If LTrim(RTrim(Request.Form("dayofemployment"))) Then
    vDayofemployment = o & LTrim(RTrim(Request.Form("dayofemployment")))
Else
    vDayofemployment = o & LTrim(RTrim(Request.Form("dayofemployment")))
End If



"Ansat: " & vDayofemployment & vbNewLine & vbNewLine & _

Jeg mener: Så må man nemmere kunne sætte 0 foran, så der kommer til at stå 08, og ikke 8, i mailen?

Jeg fik klaret det:

        Dim vDayofemployment
        If LTrim(RTrim(Request.Form("dayofemployment"))) < 10 Then
            vDayofemployment = 0 & LTrim(RTrim(Request.Form("dayofemployment")))
        Else
            vDayofemployment = 0 & LTrim(RTrim(Request.Form("dayofemployment")))
        End If

"Ansat: " & vDayofemployment & vbNewLine & vbNewLine & _

Du kan jo også lige lave det som en funktion; Så kan du bruge den samme kode på både dage og måned. :^)

Det er rigtigt. Jeg benytter noget i forvejen, man kan jo genbruge. Men jeg benytter ovenstående :o)

Trim() fjerner på begge sider. Så slipper du for at kalde både LTrim og RTrim

var = Right("0" & days, 2)

så bøver du ikke en if-sætning

Til evt. interesserede skal jeg lige skynde mig at sige, at det ovenstående ikke er helt korrekt, men det er dette:

Dim vDayofemployment
If Request.Form("dayofemployment") < 10 Then
    vDayofemployment = 0 & LTrim(RTrim(Request.Form("dayofemployment")))
Else
    vDayofemployment = LTrim(RTrim(Request.Form("dayofemployment")))
End If

polle007: Kan du omskrive det? Eller er det bedre, som nielle foreslår, at lave en function?

Der er jo ikke enten-eller for det kan sagtens kombineres:

Function LZ(tal) - LZ for Leading Zero
    If CInt(tal) < 10 Then
        LZ = Right("0" & tal, 2)
    Else
        LZ = tal
    End If
End Function

- og så i resten af din kode:

"Ansat: " & LZ(Request.Form("dayofemployment")) & vbNewLine & vbNewLine & _