Re: Обработка текста из Clipborda
Написал izrukvruki в 15/02/2008 15:04:19
Цитата:
Конечно есть база данных.
Где занесены даты выхода - макет 25104000 должен выйти 10 февраля, а макет 25104001 - 12 февраля.
мы запускаем отчет на 10 февраля и получаем список (текстовый файл) только тех макетов которые выходят 10 февраля.
Моя прога работает при переходе через Новый год - поэтому проблем нет.
Например сейчас 15.02.08
перерегистрация: из 10124000 (явно сделана 2007 г, обозначим Старый год) сделать 14025000 (новый год)
'Определение года
god_star = CStr(Year(Date))
god_new = CStr(Year(Date))
If Month(Date) < Val(Mid(hstar, n, 2)) And Val(Mid(hstar, n, 2)) <= Val(Mid(hnew, n, 2)) Then
god_star = CStr(Year(Date) - 1)
god_new = CStr(Year(Date) - 1)
End If
If Month(Date) < Val(Mid(hstar, n, 2)) And Val(Mid(hstar, n, 2)) > Val(Mid(hnew, n, 2)) Then
god_star = CStr(Year(Date) - 1)
god_new = CStr(Year(Date))
End If
А перерегистрация - это по сути просто переименование макета (для чего это надо - в.ч. для бухгалтерии, номера счетов содержат эти номера, новый договор - новый номер. Также необходимо, переодически обновлять номера - типо не будеш же использовать номера годовалой давности (тем более больше))
aus_gift wrote:
оффтоп:
Я про новый год - в том смысле что сравнение не будет работать по дате.
И я только сейчас въехал насчет газеты. Вы кстати наши конкуренты, только в другом городе и в другой стране ))
вопрос:
Так я так понимаю что база даных есть или текстовый фаил откуда береться и как опеределять к какому изданию относится фаил? И что такое перерегистрация?
Конечно есть база данных.
Где занесены даты выхода - макет 25104000 должен выйти 10 февраля, а макет 25104001 - 12 февраля.
мы запускаем отчет на 10 февраля и получаем список (текстовый файл) только тех макетов которые выходят 10 февраля.
Моя прога работает при переходе через Новый год - поэтому проблем нет.
Например сейчас 15.02.08
перерегистрация: из 10124000 (явно сделана 2007 г, обозначим Старый год) сделать 14025000 (новый год)
'Определение года
god_star = CStr(Year(Date))
god_new = CStr(Year(Date))
If Month(Date) < Val(Mid(hstar, n, 2)) And Val(Mid(hstar, n, 2)) <= Val(Mid(hnew, n, 2)) Then
god_star = CStr(Year(Date) - 1)
god_new = CStr(Year(Date) - 1)
End If
If Month(Date) < Val(Mid(hstar, n, 2)) And Val(Mid(hstar, n, 2)) > Val(Mid(hnew, n, 2)) Then
god_star = CStr(Year(Date) - 1)
god_new = CStr(Year(Date))
End If
А перерегистрация - это по сути просто переименование макета (для чего это надо - в.ч. для бухгалтерии, номера счетов содержат эти номера, новый договор - новый номер. Также необходимо, переодически обновлять номера - типо не будеш же использовать номера годовалой давности (тем более больше))
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=81177
