Dim sf As JStringFunctions
Dim dateSellin As String
Dim dateSellout As String
dateSellin = sf.Mid(A101DTINAMG,1,2) & "/" & sf.Mid(A101DTINAMG,3,2) & "/" & sf.Mid(A101DTINAMG,5,2)
dateSellout = sf.Mid(A101DTFIAMG,1,2) & "/" & sf.Mid(A101DTFIAMG,3,2) & "/" & sf.Mid(A101DTFIAMG,5,2)