VWAP Bands Problem with Exception Floating-point division by zero

inputs:
time_start(1530),
time_stop(2259),
upColor(blue),
dnColor(Red);

vars:
vwap(0),
pv(0),
Totalvolume(0),
Barfromstart(0),
Squareddeviations(0),
Probabilityweighteddeviations(0),
deviationsum(0),
standarddeviation(0),
OncePerDay(0);

// Function to safely perform division
Function SafeDivide(Numerator, Denominator: Numeric): Numeric;
Begin
If Denominator <> 0 Then
Result = Numerator / Denominator
Else
Result = 0; // Avoid division by zero
End;

// Reset OncePerDay at the start of a new day
If date > date[1] then OncePerDay = 0;

// VWAP calculation
If Time >= time_start and Time <= time_stop and OncePerDay = 0 then begin
OncePerDay = 1;
Barfromstart = 0;
pv = AvgPrice * volume;
Totalvolume = volume;
vwap = SafeDivide(pv, Totalvolume); // Use SafeDivide to avoid division by zero
end else begin
Barfromstart = Barfromstart[1] + 1;
pv = pv[1] + AvgPrice * Volume;
Totalvolume = Totalvolume[1] + Volume;
vwap = SafeDivide(pv, Totalvolume); // Use SafeDivide
end;

// Standard deviation calculation
deviationsum = 0;
for value1 = 0 to Barfromstart begin
Squareddeviations = Square(vwap - avgprice[value1]);
// Ensure Totalvolume is not zero
if Totalvolume > 0 then begin
Probabilityweighteddeviations = SafeDivide(volume[value1] * Squareddeviations, Totalvolume);
deviationsum = deviationsum + Probabilityweighteddeviations;
end;
end;

standarddeviation = SquareRoot(deviationsum);

// Plotting and coloring logic...