bowogit

Function UploadFiles(aFiles, aAlias : String) : Boolean;
    Var
        aaAlias : String;
    Begin
        Result := False;
        if MyFTP.Connected Then MyFTP.Disconnect;
        MyFTP.Host := sFTPHost;
        MyFTP.Username := sFTPUserID;
        MyFTP.Password := sFTPPass;
        aaAlias := '<..Folder FTP server..>' + aAlias;

bowogit

Procedure TransloadExcelTodb(aFileName : String);
    Function FormatExelDate (sD : String) : String;
    Var
        y, m , d : String;
    Begin
        y := RightStr(sD, 4);
        d := LeftStr(sD, 2);
        m := MidStr(sD, 4, 2);
        Result := y + '-' + m + '-' + d;
    End;

bowogit

{Kasus nya tanggal formatnya dd/mm/yyyy
mau dirubah menjadi format yyyy-mm-dd
}

Function FormatExelDate (sD : String) : String;
Var
    y, m , d : String;
Begin
  y := RightStr(sD, 4);
  d := LeftStr(sD, 2);