}
//fwrite($txt,$reg[$i]["CodigoHabilitacionIPSTomaMuestra"]); // 90. Codigo de Habilitacion IPS donde se toma Citologia Cervicouterina
fwrite($txt, "|");
if ($reg[$i]["Sexo"] == 'M') {
fwrite($txt, '1845-01-01');
} else {
if ($reg[$i]["FechaColposcopiaInput"] == '1835-01-01') {
fwrite($txt, '1800-01-01');
} else {
fwrite($txt, $reg[$i]["FechaColposcopiaInput"]);
}
}
//fwrite($txt,$reg[$i]["FechaColposcopiaInput"]); // 91. Fecha Colposcopia
fwrite($txt, "|");
// Comparar Fecha de Nacimiento con Fecha de Corte
$dif92 = diferenciaDias($FechaFinal, $reg[$i]["FechaNacimiento"]);
//echo "Diferencia en Dias ".$dif92;
$difanios = $dif92 / 365;
$difanios = floor($difanios);
fwrite($txt, $reg[$i]["CodigoHabilitacionTomaColposcopia"]);
// 92. Codigo de Habilitacion IPS donde se toma Colposcopia
fwrite($txt, "|");
if ($reg[$i]["FechaBiopsiaCervicalInput"] == '1835-01-01') {
fwrite($txt, '1800-01-01');
} else {
fwrite($txt, $reg[$i]["FechaBiopsiaCervicalInput"]);
}
//fwrite($txt,$reg[$i]["FechaBiopsiaCervicalInput"]); // 93. Fecha Biopsia Cervical
fwrite($txt, "|");
fwrite($txt, $reg[$i]["ResultadoBiopsiaCervical"]);
// 94. Resultado Biopsia Cervical
</td>
<td align="center"><?php
echo date("d/m/Y", strtotime($rs["hasta"]));
?>
</td>
<td align="center"><?php
function diferenciaDias($inicio, $fin)
{
$inicio = strtotime($inicio);
$fin = strtotime($fin);
$dif = $fin - $inicio;
$diasFalt = $dif / 60 / 60 / 24;
return ceil($diasFalt);
}
$inicio = $rs["desde"];
$fin = $rs["hasta"];
print diferenciaDias($inicio, $fin);
?>
</td>
</tr>
<?php
}
?>
</table>
<p align="center"><a href="usuario.php" class="Menu1">Volver</a></p>
<p> </p>
</body>
</html>
