How to convert correct DateTime function

ParamByName('@DReceived').Value := StrToDateTime(StripIT(fieldByName('Date Received').AsString));

Select allOpen in new window

ParamByName('@DReceived').Value := StrToDateTime(StripIT(fieldByName('Date Received').AsString))

Select allOpen in new window

function ValidateDateTime(const S: string): Boolean;
var
  Temp: TDateTime;
begin
  Result := TryStrToDateTime(S, Temp);
  if Result then
    Result := Temp > StrToDateTime('01/01/1753'); //erliest date supported by SQL Server
end;

//you  can make the function return a datetime if you want

Select allOpen in new window

function ValidateDateTime(const S: string; const ADefault: Double = 36526): TDateTime;
var
  Temp: TDateTime;
begin
  if TryStrToDateTime(S, Temp) and (Temp > StrToDateTime('01/01/1753')) then
    Result := Temp
  else
    Result := ADefault;
end;

Select allOpen in new window

function ValidateDateTime(const S: string; const ADefault: Double = 36526): TDateTime;
var
  Temp: TDateTime;
  Temps: string;
begin
  Temps := Trim(StringReplace(S, '"', '', [rfReplaceAll]));
  if TryStrToDateTime(Temps, Temp) and (Temp > StrToDateTime('01/01/1753')) then
    Result := Temp
  else
    Result := ADefault;
end;

Select allOpen in new window

procedure TParameter.SetValue(const Value: Variant);
const
  SizedDataTypes = [ftUnknown, ftString, ftFixedChar, ftWideString, ftMemo,
    ftBlob, ftBytes, ftVarBytes];
var
  NewSize: Integer;
  NewValue: OleVariant;
begin
  if VarIsClear(Value) or VarIsNull(Value) then
    NewValue := Null
  else
  begin
    if DataType = ftUnknown then
      SetDataType(VarTypeToDataType(VarType(Value)));
    { Convert blob data stored in AnsiStrings into variant arrays first }
    if (DataType = ftBlob) and (VarType(Value) = varString) then
      NewValue := StringToVarArray(Value) else
      NewValue := Value;
  end;
  if DataType in SizedDataTypes then
  begin
    NewSize := VarDataSize(NewValue);
    if (Size = 0) or (NewSize > Size) then
      Size := NewSize;
  end;
  ParameterObject.Value := NewValue;
end;

Select allOpen in new window

ParamByName('@DReceived').Value := ExtractWordL(1,'Date Received', ' ');

Select allOpen in new window

function ValidateDateTime(const S: string; const ADefault: Double = 36526): string;
var
  Temp: TDateTime;
  Temps: string;
begin
  Temps := Trim(StringReplace(S, '"', '', [rfReplaceAll]));
  if TryStrToDateTime(Temps, Temp) and (Temp > StrToDateTime('01/01/1753')) then
    Result := Temps
  else
    Result := DateTimeToStr(ADefault);
end;

Select allOpen in new window

function ValidateDateTime(const S: string; const ADefault: Double = 36526): string;
var
  Temp: TDateTime;
  Temps: string;
begin
  Temps := Trim(StringReplace(S, '"', '', [rfReplaceAll]));
  if TryStrToDateTime(Temps, Temp) and (Temp > StrToDateTime('01/01/1753')) then
    Result := Temps
  else
    Result := DateTimeToStr(ADefault);

  if Length(Result) > 10 then  //truncate
    SetLength(Result, 10);
end;

Select allOpen in new window

USE [Trend]
GO
/****** Object:  StoredProcedure [dbo].[UpDateSamples]    Script Date: 03/02/2011 18:43:39 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO



CREATE PROCEDURE [dbo].[UpDateSamples]
         @AccountID Int,
         @LabID Char (8),
         @LabCNO VarChar(24),
         @LabTestNum VarChar (24),
         @TrackingNum VarChar (24),
         @CompType Varchar(8),
         @CompID Int,
         @Condition Int,
         @DTaken VarChar(12),
         @DReceived VarChar(12),
         @DReported VarChar (12),
         @DCommented VarChar (12),
         @EvalID Varchar(30),
         @FluidMan VarChar (20),
         @FluidBrand VarChar (50),
         @FluidGrade VarChar (30),
         @TimeOnOil VarChar (16),
         @TimeOnComp VarChar (16),
         @TimeOnUnit Int,
         @FluidAdded Int,
         @FluidChange Int,
         @FileName Varchar (64)

AS  
      Declare @NewID Int

      SET NOCOUNT ON 
      
      Select @NewID = Sample_ID
      From Samples 
      Where Lab_ID = @LabID and Lab_Test_Num = @LabTestNum and date_taken = @DTaken

      If (@NewID > 0 ) AND (@NewID is NOT NULL)
        BEGIN
           Delete from Samples where Sample_ID = @NewID

           Delete from Additional_Tests where Sample_ID = @NewID
        end

       exec @NewID = getnextint 'SAMPLES'

       Insert Into Samples (Sample_id, Account_ID, Lab_ID, Lab_CNO,  Lab_Test_Num,  Tracking_Number, 
                            Component_Type, Component_ID, Condition, Date_Taken, Date_Received,
                            Date_Posted, Date_Reported, Date_Commented, Eval_ID, Fluid_Manuf, Fluid_Brand, Fluid_Grade,
                            Time_On_Oil, Time_On_Comp, Time_On_Unit, Fluid_Added, Fluid_Changed, [File_Name])
       Values (@NewID,  @AccountID, @LabID, @LabCNO, @LabTestNum, @TrackingNum, @CompType, @CompID, 
                            @Condition, @DTaken, @DReceived, GetDate(), @DReported, @DCommented, @EvalID, 
                            @FluidMan, @FluidBrand, @FluidGrade, @TimeOnOil, @TimeOnComp, @TimeOnUnit, 
                            @FluidAdded, COALESCE(@FluidChange,0), @FileName )

       IF @@ERROR = 0
          return (@NewID)
       ELSE
          return (-1)

Select allOpen in new window

 ParamByName('@DReceived').Value := StripIT(FieldByName('Date Received').AsString);

Select allOpen in new window