Hi Team,

I'm giving an excel sheet as an input to a perl file. In that, one of the column is date. The date format in that excel sheet is "21/03/2018" but when I upload it as input using perl, the format changes to "2018-03-21".

Another thing is , the format of the date in the input has "/" between them but after uploading it into perl, it changes to "-".

PleASE SUPPORT.

CODE

sub Date_Conversion_Julian{
my $origdate = shift;

  #my $date= Time::Piece->strptime($origdate$, '%Y-%m-%d');
  #print $date->strftime('%d/%m/%Y'),"\n";
 print "d:$origdate\n";

        if ($origdate =~ /\//) {
               print "test\n";
           if($dateformat eq 'mm/dd/yyyy') {
                my $dateparts = [ split /\//, $origdate ];
               if (length($dateparts->[0])<2) {$dateparts->[0]= "0".$d
+ateparts->[0];}
                if (length($dateparts->[1])<2) {$dateparts->[1]= "0".$
+dateparts->[1];}
                my ($mon,$mday,$year );
                if(length($dateparts->[2]) > 2) {
                      ($mon,$mday,$year)=(($dateparts->[0] - 1 ),$date
+parts->[1],( $dateparts->[2] - 1900 ));
                }
                else{
                      ($mon,$mday,$year)=(($dateparts->[0] - 1 ),$date
+parts->[1],( $dateparts->[2] + 100 ));
                }


                my ( $sec, $min, $hours ) = ( "00", "00", "12" );
                my $julian_date = timelocal($sec, $min, $hours, $mday,
+ $mon, $year);
                $julian_date = ($julian_date / 86400) + 2440588;
                return $julian_date;

                }
           else {

                my $dateparts = [ split /\//, $origdate ];
                if (length($dateparts->[0])<2) {$dateparts->[0]= "0".$
+dateparts->[0];}
                if (length($dateparts->[1])<2) {$dateparts->[1]= "0".$
+dateparts->[1];}
                #my @dateparts = $dateparts;
                #print Dumper \@dateparts;
                my ($mon,$mday,$year );
                if(length($dateparts->[2]) > 2) {
                       ($mday,$mon,$year)=(($dateparts->[0]),$datepart
+s->[1] - 1,($dateparts->[2] - 1900));
                }
                else{
                       ($mday,$mon,$year) =(($dateparts->[0]),$datepar
+ts->[1] - 1,($dateparts->[2] + 100));
                }
[download]

tHANKS, JP

2018-06-12 Athanasius added code tags and removed paragraph tags from within code

---

In reply to Date format by jsuresh

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.