🚀 go-pugleaf

Het onderstaand VB-scriptje zet een prijskolom van een Excel file om naar
dit formaat "00000000000.00"
(via data-pump in MySQL)
Maar bij de conversie blijkt dat sommige waarden met 1.00 verhoogd zijn. Dus
ik vermoed dat er ergens
een klein foutje zit in dit script. Omdat ik zelf niets afweet van VB, vraag
ik het daarom aan jullie.

Met vriendelijke groeten,

Lucas


**********************************************************************
'  Visual Basic Transformation Script
'  Copy each source column to the
'  destination column
'**********************************************************************
Function Main()
 Euro = DTSSource("F4")
 Zero="00000000000"
 Val=CInt(Euro)
 Resu=Cstr(Val)
' Resu=Cstr(Euro)
 Carac=Len(Resu)
 Comma=Int((Euro-Int( Euro ))*100)
 Nzer=11-Carac
 if Comma  >9  then Pab=Mid(Zero,1,Nzer) & Mid(Resu,1,Carac) & "."&Comma
else Pab=Mid(Zero,1,Nzer) & Mid(Resu,1,Carac) & "." & "0"&Comma
 DTSDestination("TCAPAB") = Pab
 Main = DTSTransformStat_OK
End Function



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.737 / Virus Database: 491 - Release Date: 11/08/2004