1 Тема от pluton

  • pluton
  • Участник
  • Неактивен

Тема: VBS: Abby Finereader Bank 6.0. Выгрузка даты в dbf в формате ggggmmdd

Добрый день!
В Abby Finereader Bank 6.0 после распознавания платежного поручения необходимо сделать выгрузку полей данного платежного поручения в dbf файл для последующей загрузки в АБС (RS-банк). В частности с полем "Дата" возникла проблема. Необходимо сделать так, чтобы "Дата" в dbf файл выгрузилось в формате ggggmmdd.
В данный момент дата выгружается в след. формате dd.mm.gggg.
При помощи vb скрипта можно сделать в Abby Finereader Bank 6.0 преобразование даты к виду ggggmmdd перед загрузкой в dbf файл. Буду благодарен тому, кто сможет подсказать код такого скрипта.

2 Ответ от Xameleon

  • Xameleon
  • Разработчик
  • Неактивен

Re: VBS: Abby Finereader Bank 6.0. Выгрузка даты в dbf в формате ggggmmdd

Как-то так


Option Explicit

Dim sTmp, vDate, sLog

'Примеры
vDate = Date

sLog = sLog & "1) " & vDate & " -> " & ConvertDateForDBF(vDate) & vbCrlf

sTmp = Now

sLog = sLog & "2) " & sTmp & " -> " & ConvertDateForDBF(vDate) & vbCrlf

vDate = "1.12.2015"

sLog = sLog & "3) " & vDate & " -> " & ConvertDateForDBF(vDate) & vbCrlf

vDate = "3.5.2015"

sLog = sLog & "4) " & vDate & " -> " & ConvertDateForDBF(vDate) & vbCrlf

vDate = "13.10.15"

sLog = sLog & "5) " & vDate & " -> " & ConvertDateForDBF(vDate) & vbCrlf

MsgBox sLog, vbInformation, "Sample"

'Функция конвертации
Function ConvertDateForDBF(vDate)
	ConvertDateForDBF = Year(vDate) & Right("0" & Month(vDate),2) & Right("0" & Day(vDate),2)
End Function
Передумал переделывать мир. Пашет и так, ну и ладно. Сделаю лучше свой !