Delphi and MsAccess

Code:


function StrToken(var S: string; Separator: Char): string;
var
  I: Integer;
begin
  I := Pos(Separator, S);
  if I <> 0 then
  begin
    Result := Copy(S, 1, I - 1);
    Delete(S, 1, I);
  end
  else
  begin
    Result := S;
    S := '';
  end;
end;

function StringToInteger(AValue: string): Int64;
const
  AnsiDecDigits = ['0'..'9'];
  AnsiSigns     = ['-', '+'];
var
  i, b: Integer;
begin
  b := 1;
  for i := 1 to Length(AValue) do
  begin
  {$IFDEF DELPHIXE_UP}
    if CharInSet(AValue[i], AnsiDecDigits) or ((b = 1) and CharInSet(AValue[i], AnsiSigns)) then
  {$ELSE}
    if (AValue[i] in AnsiDecDigits) or ((b = 1) and (AValue[i] in AnsiSigns)) then
  {$ENDIF}
    begin
      AValue[b] := AValue[i];
      Inc(b);
    end;
  end;

  SetLength(AValue, b - 1);
  Val(AValue, Result, b);
end;

Code:

[var
  Staz, Temp: string;
  God, Mes, Dan: Integer;
begin
  Staz := '1g,1m,21dan';
  Temp := StrToken(Staz, ',');
  God := StringToInteger(Temp);
  Temp := StrToken(Staz, ',');
  Mes := StringToInteger(Temp);
  Dan := StringToInteger(Staz);
end;

Code:
var
  iGod, iMj, i Dan: integer;
begin

iGod := Copy(sString, 0, 2)

Code:

var
  sgod,smes,sdan:String;
  Godina,mesec,dan,ProtekloDana:Word;
  Dt:TDatetime;
begin
  sgod := Copy(sString, 1, 2);
  smes := Copy(sString, 3, 2);
  sdan := Copy(sString, 5, 2);

  Godina:=Strtoint(sgod);
  mesec:=Strtoint(smes);
 dan:=Strtoint(sdan);
 if Godina > 50 then  Godina := 1900+Godina 
 else
   Godina := 2000+Godina; //ako je posle 2000 te

  //EncodeDateTime za prevodenje podatke u Tdatatime 
  Dt:=EncodeDateTime(Godina,mesec,dan,0,0,0,0);
 ProtekloDana:=DaysBetween(now,Dt); // odreduje broj dana izmedu sadacnjeg dana i dana iz stringa sString koji sadrzi datum iz tvoje baze
end;

Code:


procedure YearsMonthsWeeksDaysBetween(DateFrom, DateTo : TDate; Var YearsGap, MonthsGap, WeeksGap, DaysGap : Word);
var
DaysNumber,DaysCounter,DaysInAMonthCounter: Word;
YearsCount, MonthsCount, WeeksCount, DaysCount,DaysInCurrentMonth: Word;
TempDate : TDate;
begin

//Init Vars.
// Respresents: YearsGap, MonthsGap, WeeksGap, DaysGap
YearsCount:=0; MonthsCount:=0; WeeksCount:=0; DaysCount:=0; 

// Represents: The Days gap by two dates (In Days only) and Days Counter.
DaysCounter:=0; DaysNumber:=DaysBetween(DateFrom, DateTo);

// Represents: The current Month's number of days and Days counter (per a month)
DaysInCurrentMonth:=0; DaysInAMonthCounter:=0;

// Copy the DateFrom parameter for farther calculations
TempDate:=DateFrom;

// Update the number of days in current month
DaysInCurrentMonth:=DaysInMonth(TempDate);

// Actual Job -- Check on each day.
While DaysCounter < DaysNumber do
Begin
Inc(DaysCounter);
Inc(DaysInAMonthCounter);
Inc(DaysCount);
If DaysCount=7 Then
Begin
Inc(WeeksCount);
DaysCount:=0;
End;

// If you reach the end of a month, based on the number
// of days of the current month then
If (DaysInAMonthCounter = DaysInCurrentMonth) Then
Begin
Inc(MonthsCount);
WeeksCount:=0;
DaysCount:=0;

If MonthsCount=12 then
Begin
Inc(YearsCount);
MonthsCount:=0;
End;

// Add a month, based on the month's number of days, to DateFrom
TempDate:=TempDate+DaysInCurrentMonth; 

// Calculate the number of days of the next month
DaysInCurrentMonth:=DaysInMonth(TempDate);

// Start coung Month's days all over again.
DaysInAMonthCounter:=0;
End;

End;
End;