#include <ibase.h>
#include <ib_util.h>
#include <stdlib.h>
#include <time.h>
#include <ctype.h>
#include <locale.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <math.h>

#if defined __BORLANDC__ && defined __WIN32__
#define EXPORT _export
#else
#define EXPORT
#endif

#define ERREXIT(status, rc) {isc_print_status(status); return rc;}


#define CR   13;
#define LF   10;
#define TAB  9;

// здесь куча кода которая не относится к данной проблеме
void FormatDate(ISC_TIMESTAMP *ib_date, char *date_format, int lang, char *result, 
                   int month_form, int quart_form)
{
  struct tm date1;
  char *date_format_upper;
  int sl;
  char replace_with[128];
  char* replace_with2;
  char* cu[5];
  char* cl;
  int word_state;
  char res[128];
  div_t div_res;

  if (!ib_date->timestamp_date) goto exit_;

  word_state = 0;
  res[0] = 0x00;

  replace_with[0] = 0x00;

  sl = strlen(date_format);
  date_format_upper = (char*) malloc (sl+1);
  strcpy(date_format_upper, date_format);

  strcpy(result, date_format);

  isc_decode_timestamp(ib_date, &date1);  // Вот здесь оно валится  ибо если это закомментировать то все вроде работает

// здесь куча кода который закоментарен
  free(date_format_upper);
exit_:
  ;
}

char* Gr_FormatDateRus(ISC_TIMESTAMP *ib_date, char* date_format)
{
  char *result; 
  #ifdef UDF_DEBUG
  result = (char*) malloc (sizeof(char)*80); 
  #else
  result = (char*) ib_util_malloc (sizeof(char)*80); 
  #endif
  result[0] = 0x00;
  FormatDate(ib_date, date_format, 0, result, 0, 0);
  return result;
}

DECLARE EXTERNAL FUNCTION Format_Date_Rus
    TIMESTAMP,                                /*дата + время*/
    CSTRING(80)                               /*формат даты*/
    RETURNS CSTRING(80) FREE_IT               /*форматированная дата*/
    ENTRY_POINT 'Gr_FormatDateRus' MODULE_NAME 'grad_udf';