public function zweistellig(wert as long) as string
dim dummy as string
dummy=cstr(wert)
if len(dummy)<2 then dummy="0" & dummy:else dummy=right$(dummy,2)
zweistellig = dummy
end function
aufrufen mit..
MSComm1.Output = zweistellig(VScroll1.Value) & Text4.Text
____________________________________
Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\"
http://www.dream.at/gizmo/bunny.gif
Image is © 2001 Merle
Sterndalsäg.. ähh... jäger
